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 Source任务窗格中。
xlXmlLoadOpenXml以与Excel 2002相同的方式打开XML文件打开XML文件（仅用于向后兼容）。
xlXmlLoadPromptUser提示用户并让他们选择导入方法

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

1 个答案: