excel - EXCEL 宏将 XML 文件作为 XML 表而不是只读工作簿打开

Question

我正在使用以下代码打开多个 xml 文件，但是它们作为只读工作簿打开，但是我要求它作为 XML 表打开，有什么建议吗？

代码：

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

您需要Workbooks.OpenXML改用

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

我不完全是您要使用的 LoadOption，但您可以选择：

• xlXmlLoadImportToList自动创建 XML 列表并将数据导入列表。
• xlXmlLoadMapXml将 XML 文件加载到 XML 源任务窗格中。
• xlXmlLoadOpenXml打开 XML 文件的方式与 Excel 2002 打开 XML 文件的方式相同（仅用于向后兼容）。
• xlXmlLoadPromptUser提示用户并让他们选择导入方法。