xml - 如何使用VBA将数据从XML文件提取到Excel工作表

我使用以下代码从XML到Excel提取数据。
但是问题是，结果在新的工作簿“Book1”中打开。但是我想在具有此宏的同一Excel中的特定工作表中获取结果。
请注意，我不想在代码中创建架构，因为所有XML的架构都会发生变化。下面提到的代码不需要指定架构。它可以使用正确的列名将结果转储到新的Excel工作表中。因此，请让我知道如何在同一工作簿中的sheet2中获得结果？

Sub ImportXMLtoList()
 Dim strTargetFile As String
 Application.DisplayAlerts = False
 strTargetFile = "C:\example.xml"
 Workbooks.OpenXML Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList
 Application.DisplayAlerts = True

End Sub

最佳答案

Sub ImportXMLtoList()
Dim strTargetFile As String
Dim wb as Workbook

     Application.Screenupdating = False
     Application.DisplayAlerts = False
     strTargetFile = "C:\example.xml"
     Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
     Application.DisplayAlerts = True

     wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet2").Range("A1")
     wb.Close False
     Application.Screenupdating = True


End Sub