VBA 使用架构文件提取数据

使用VBA（Visual Basic for Applications）编程语言可以方便地提取架构文件中的数据。架构文件是一种包含结构化数据的文件，常见的格式有XML、JSON等。通过使用VBA，我们可以轻松地读取架构文件，并从中提取所需的数据。

vba
Sub ExtractDataFromXML()
    ' 定义XML文档对象
    Dim xmlDoc As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    xmlDoc.Load "C:\path\to\your\file.xml"
    
    ' 定义节点对象
    Dim xmlNode As Object
    Set xmlNode = xmlDoc.SelectSingleNode("/root/record")
    
    ' 提取数据
    Dim name As String
    Dim age As Integer
    Dim address As String
    
    name = xmlNode.SelectSingleNode("name").Text
    age = xmlNode.SelectSingleNode("age").Text
    address = xmlNode.SelectSingleNode("address").Text
    
    ' 在输出窗口显示提取的数据
    Debug.Print "姓名: " & name
    Debug.Print "年龄: " & age
    Debug.Print "地址: " & address
End Sub

xml
    
        张三
        25
        
北京市朝阳区
    
    
        李四
        30
        
上海市浦东新区
    

vba
Sub ExtractEmployeesData()
    ' 定义XML文档对象
    Dim xmlDoc As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    xmlDoc.Load "C:\path\to\your\employees.xml"
    
    ' 定义记录节点集合
    Dim recordNodes As Object
    Set recordNodes = xmlDoc.SelectNodes("/root/record")
    
    ' 遍历节点集合，提取数据
    Dim recordNode As Object
    For Each recordNode In recordNodes
        Dim name As String
        Dim age As Integer
        Dim address As String
        
        name = recordNode.SelectSingleNode("name").Text
        age = recordNode.SelectSingleNode("age").Text
        address = recordNode.SelectSingleNode("address").Text
        
        ' 在输出窗口显示提取的数据
        Debug.Print "姓名: " & name
        Debug.Print "年龄: " & age
        Debug.Print "地址: " & address
        Debug.Print "------------------"
    Next recordNode
End Sub

姓名: 张三
年龄: 25
地址: 北京市朝阳区
------------------
姓名: 李四
年龄: 30
地址: 上海市浦东新区
------------------