使用Excel VBA导入XML数据

Sub ImportXMLData()
    Dim XMLDoc As Object
    Dim XMLFilePath As String
    Dim XMLNode As Object
    Dim RowIndex As Integer
    
    ' 设置XML文件路径
    XMLFilePath = "C:\path\to\your\file.xml"
    
    ' 创建XML文档对象
    Set XMLDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    XMLDoc.Load (XMLFilePath)
    
    ' 设置行索引
    RowIndex = 1
    
    ' 遍历XML节点并将数据导入Excel工作表
    For Each XMLNode In XMLDoc.SelectNodes("/root/node")
        ' 导入数据到工作表中的单元格
        Cells(RowIndex, 1).Value = XMLNode.SelectSingleNode("element1").Text
        Cells(RowIndex, 2).Value = XMLNode.SelectSingleNode("element2").Text
        ' ...
        
        ' 增加行索引
        RowIndex = RowIndex + 1
    Next XMLNode
    
    ' 释放对象
    Set XMLNode = Nothing
    Set XMLDoc = Nothing
End Sub