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

我使用下面的代码从XML到Excel获取数据。 但问题是，结果在一个新的工作簿“ Book1 ”中打开。 但我想在具有此macros的相同Excel中的特定工作表中获得结果。
请注意，我不想在代码中创build模式，因为所有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 

Answer 2

我创build了一个简单的xmlmap。 我需要一个代码来导入xml数据到excel（右键点击xml导入），从XML或其他的数据。 我想保留我创build的xmlmap，只是将我的xlxs中的数据replace为另一个xlm的数据。

 'Select the file Fname = Application.GetOpenFilename(FileFilter:="xml files (*.xml), *.xml", MultiSelect:=False) 'Check if file selected If Fname = False Then Exit Sub Else Workbooks.Open Filename:=Fname End If