Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Returns a workbook object with the XML data mapped to your spreadsheet

Sub ImportXMLtoList()      Dim strTargetFile As String      Application.DisplayAlerts = False      strTargetFile = ThisWorkbook.Path & "\Employee.xml"      Workbooks.OpenXML FileName:=strTargetFile, LoadOption:=xlXmlLoadImportToList      Application.DisplayAlerts = True End Sub