Question

I’m using the following code to open multiple xml files, however they are opening as a read only workbook, however I require it to open as an XML table, any suggestions?

Code:

Sub AllFolderFiles()
    Dim wb As Workbook
    Dim TheFile As String
    Dim MyPath As String
    MyPath = "C:\Documents and Settings\"
    ChDir MyPath
    TheFile = Dir("*.xml")
    Do While TheFile <> ""
        'Call Logs 'This calls for Macro2 to run
        Set wb = Workbooks.Open(MyPath & "\" & TheFile)
        MsgBox wb.FullName
        'wb.Close
        TheFile = Dir
    Loop
End Sub

Answer 1

You need to use Workbooks.OpenXML instead

Set wb = Workbooks.OpenXML(Filename:=MyPath & "\" & TheFile, LoadOption:=xlXmlLoadImportToList)

I’m not exactly which LoadOption you want to use, but you can choose from:

• xlXmlLoadImportToList Automatically creates an XML List and imports
  data into the list.
• xlXmlLoadMapXml Loads the XML file into the XML Source task pane.
• xlXmlLoadOpenXml Open XML files in the same way that Excel 2002
  opens XML files (for backwards compatibility only).
• xlXmlLoadPromptUser Prompts the user and lets them choose the Import
  method.