actdaa.blogg.se

AddElementItem(XMLItem, "Capital", "", "Sacramento")Ĭall. AddElementItem(XMLItem, "Name", "", "California")Ĭall. AddElementItem(XMLItemStates, cstrState)Ĭall. ' Add states to the states item with each state's name and capital AddElementItem(XMLelement, "States", "Name", cstrState) ' For states, we get the element so we can add individual states to it AddElementItem(XMLelement, "Capital", "", "Washington, DC") AddElementItem(XMLelement, "Name", "", "United States")Ĭall. No need to keep the return object since additional items are not added to them.Ĭall. ' Create two values for the first element.

Keep the element object to add other items to it InitializeDocument("Nations", enmXML_UTF8) ' Intialize with the root name (only one root per XML document) and encoding typeĬall. ' The example shows how to create the file header, elements, and add items or elements to elements.Ĭonst cstrFileName As String = "C:\Total Visual SourceBook 2013\Samples\XMLTest.xml"Ĭonst cstrProvince As String = "Province" ' Create an XML file that includes a list of nations, states, and counties. ' Comments: Example of using the CXMLFileCreate class to create XML files from VBA and VB6. ' Then run the procedure by putting the cursor in the procedure and pressing: ' F5 to run it, or ' F8 to step through it line-by-line (see the Debug menu for more options) ' Example of CXMLFileCreate ' ' To use this example, create a new module and paste this code into it.