Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Export to XML file

Option Compare Database Private Sub ExportTestsData()     Dim objad As AdditionalData     Set objad = Application.CreateAdditionalData     objad.Add "Questions"     objad(Item = "Questions").Add "Answers"     Application.ExportXML acExportTable, "Tests", "c:\tests4.xml", "c:\tests4.xsd", AdditionalData:=objad End Sub