VBA/Excel/Access/Word/Excel/Worksheet Export Import
Adding a Schema to a Workbook
<source lang="vb">
Sub ImportXMLSchema()
Dim xmMap As XmlMap Application.DisplayAlerts = False Set xmMap = ActiveWorkbook.XmlMaps.add("C:\invoice.xml", "Invoice") Application.DisplayAlerts = True xmMap.AdjustColumnWidth = False xmMap.PreserveNumberFormatting = True Set xmMap = Nothing
End Sub
</source>
Exporting XML
<source lang="vb">
Sub ExportInvoiceXML()
Dim xlMap As XmlMap Set xlMap = ThisWorkbook.XmlMaps("Invoice_Map") If xlMap.IsExportable Then xlMap.Export "C:\testxmljunk.xml" Else MsgBox "Sorry, this XML Map is not exportable", vbOKOnly End If Set xlMap = Nothing
End Sub
</source>
Importing an XML Data File
<source lang="vb">
Sub ImportXMLData()
Dim xlImportResult As XlXmlImportResult xlImportResult = ThisWorkbook.XmlMaps("Invoice_Map").Import("C:\invoice.xml", True) Select Case xlImportResult Case xlXmlImportElementsTruncated Debug.Print "XML data items imported with truncation." Case xlXmlImportSuccess Debug.Print "XML data items imported successfully." Case xlXmlImportValidationFailed Debug.Print "XML data items not imported. Validation failed." Case Else Debug.Print "Data import process reported an unknown result code." End Select Set xlImportResult = Nothing
End Sub
</source>