使用VBA导入XML。单独单元格上的每个标记行

Sub ImportXML()
    Dim XMLDoc As Object
    Dim XMLFile As String
    Dim XMLNode As Object
    Dim RowIndex As Integer
    
    ' 设置XML文件路径
    XMLFile = "C:\path\to\your\file.xml"
    
    ' 创建XML对象
    Set XMLDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    XMLDoc.Load (XMLFile)
    
    ' 设置起始行索引
    RowIndex = 1
    
    ' 循环遍历XML节点
    For Each XMLNode In XMLDoc.SelectNodes("/root/row")
        ' 在Excel中的指定单元格上写入XML节点的值
        Cells(RowIndex, 1).Value = XMLNode.SelectSingleNode("column1").Text
        Cells(RowIndex, 2).Value = XMLNode.SelectSingleNode("column2").Text
        ' ...
        
        ' 增加行索引
        RowIndex = RowIndex + 1
    Next XMLNode
    
    ' 释放内存
    Set XMLDoc = Nothing
End Sub