Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Adding a Schema to a Workbook

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