如何使用VBA将数据从XML文件读入Excel文件

Question

我有以下问题，我有一个很大的XML文件，必须通过VBA在Excel中读取该文件，以填写Excel工作表的不同列。

我编写了以下代码来打开XML文件

Sub openxXML()
    Dim xml As Workbook
    Dim varxml As Variant

    varxml = Application.GetOpenFilename("Alle Data (*.*), *.*,XML-Data(*.xml),*xml*", 2, "Choose XML-File", _
      "choose", False)

    If varxml = False Then
        MsgBox "No Data selected"
    End If     
End Sub

但是现在我不知道如何将这些数据转换为具有许多列的Excel表。
有人可以告诉我上面的代码是否正确以及如何继续吗？

谢谢你，抱歉我的英语，我来自法国

Answer 1

使用Application.GetOpenFilename只能获取用户选择的文件的文件名。 它不打开文件本身，只需选择您的硬盘驱动器中的文件。

因此， varxml包含类似C:\\Temp\\test.xml的文件，该文件名包含完整路径。

然后，您需要打开/导入/执行任何操作。

例如导入：

Workbooks.OpenXML Filename:=varxml, LoadOption:=xlXmlLoadImportToList

一种简单的方法是在Excel中使用宏记录器，然后手动执行一次导入，这样您就可以了解如何在VBA中进行导入或其他操作。