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

Question

我使用以下代码将数据从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

Answer 1

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