gpt4 book ai didi

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

转载 作者:数据小太阳 更新时间:2023-10-29 01:44:14 28 4
gpt4 key购买 nike

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

关于xml - 如何使用 VBA 将数据从 XML 文件提取到 Excel 工作表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13620011/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com