VBA - 从 XML 代码循环特定子节点

使用VBA编程语言可以轻松地从XML代码中循环特定子节点。XML是一种常用的数据交换格式，它使用标签来表示数据的结构和层次关系。通过使用VBA中的XML解析器，我们可以访问和操作XML文件中的数据。

vba
Sub LoopXMLNodes()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    
    ' 创建XML对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML代码
    xmlDoc.LoadXML "John30Jane25"
    
    ' 获取所有person节点
    Set xmlNodeList = xmlDoc.SelectNodes("//person")
    
    ' 循环遍历所有person节点
    For Each xmlNode In xmlNodeList
        ' 提取name节点的值
        Debug.Print xmlNode.SelectSingleNode("name").Text
        
        ' 提取age节点的值
        Debug.Print xmlNode.SelectSingleNode("age").Text
    Next xmlNode
End Sub

John
30
Jane
25

vba
Sub LoopXMLNodes()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    
    ' 创建XML对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML代码
    xmlDoc.LoadXML "John30Jane25"
    
    ' 获取所有person节点
    Set xmlNodeList = xmlDoc.SelectNodes("//person")
    
    ' 循环遍历所有person节点
    For Each xmlNode In xmlNodeList
        ' 提取name节点的值
        Debug.Print xmlNode.SelectSingleNode("name").Text
        
        ' 提取age节点的值
        Debug.Print xmlNode.SelectSingleNode("age").Text
    Next xmlNode
End Sub