使用具有多个<Item>节点的VBA读取XML文件

Sub ReadXML()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    
    ' 创建XML文档对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    xmlDoc.Load "C:\path\to\your\file.xml"
    
    ' 获取所有<Item>节点
    Set xmlNodeList = xmlDoc.SelectNodes("//Item")
    
    ' 遍历<Item>节点
    For Each xmlNode In xmlNodeList
        ' 获取<Item>节点的属性值
        Dim attributeValue As String
        attributeValue = xmlNode.getAttribute("attributeName")
        
        ' 获取<Item>节点的文本值
        Dim textValue As String
        textValue = xmlNode.Text
        
        ' 在此处进行处理，可以将属性值和文本值存储到变量中或进行其他操作
        
        ' 示例：打印属性值和文本值
        Debug.Print "Attribute: " & attributeValue
        Debug.Print "Text: " & textValue
    Next xmlNode
    
    ' 释放对象
    Set xmlNodeList = Nothing
    Set xmlDoc = Nothing
End Sub