进口和将XML文件导出到Excel

Question

我正在尝试导入一个xml文件来编辑一些参数，然后将其导出而不更改原始结构。

导入它使用以下宏SubXXXtoList（），导出文件我尝试了网上可用的所有代码。但生成的.xml文件的结构与原始文件完全不同。

我有.biz和.xsd架构文件，但我无法使用它们来保存结构。我想用宏来做所有事情

所有文件均可在此处获取：http://dropcanvas.com/4dy4l

感谢您的支持。真的很感激

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


Application.ScreenUpdating = False
Application.DisplayAlerts = False
'strTargetFile = "C:\example.xml"

strTargetFile = Application.GetOpenFilename("RICETTA (*.xml), *.xml")

If strTargetFile = False Then
MsgBox "Select a file!"

GoTo Fine
End If


Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadList)
Application.DisplayAlerts = True


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


Fine:
End Sub