VBA - 显示 XML 中的每个节点及其值

在VBA中，我们经常需要处理XML数据。XML是一种标记语言，用于存储和传输结构化的数据。当我们需要从XML中提取数据时，我们可以使用VBA编写代码来显示XML中的每个节点及其对应的值。

vba
Sub DisplayXMLNodes()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    
    ' 创建DOMDocument对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    xmlDoc.Load "C:\path\to\your\xmlfile.xml"
    
    ' 获取XML文件中的所有节点
    Set xmlNodeList = xmlDoc.SelectNodes("//*")
    
    ' 遍历每个节点并显示节点及其值
    For Each xmlNode In xmlNodeList
        Debug.Print xmlNode.nodeName & ": " & xmlNode.Text
    Next xmlNode
    
    ' 释放对象
    Set xmlNodeList = Nothing
    Set xmlDoc = Nothing
End Sub

xml
    
        张三
        18
        男
    
    
        李四
        19
        女
    
    
        王五
        20
        男
    

students: 
student: 
name: 张三
age: 18
gender: 男
student: 
name: 李四
age: 19
gender: 女
student: 
name: 王五
age: 20
gender: 男

vba
Sub DisplayXMLNodes()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    
    ' 创建DOMDocument对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    xmlDoc.Load "C:\path\to\your\xmlfile.xml"
    
    ' 获取XML文件中的所有节点
    Set xmlNodeList = xmlDoc.SelectNodes("//*")
    
    ' 遍历每个节点并显示节点及其值
    For Each xmlNode In xmlNodeList
        Debug.Print xmlNode.nodeName & ": " & xmlNode.Text
    Next xmlNode
    
    ' 释放对象
    Set xmlNodeList = Nothing
    Set xmlDoc = Nothing
End Sub