VBA (Excel) 中的 XPath 评估

使用VBA（Excel）中的XPath进行评估

vba
Sub ExtractDataFromXML()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    Dim i As Integer
    
    '加载XML文件
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    xmlDoc.Load "C:\example.xml"
    
    '使用XPath选择节点集合
    Set xmlNodeList = xmlDoc.SelectNodes("//book")
    
    '遍历节点集合，提取数据
    For i = 0 To xmlNodeList.Length - 1
        Set xmlNode = xmlNodeList.Item(i)
        MsgBox xmlNode.SelectSingleNode("title").Text
    Next i
    
    '释放对象
    Set xmlNodeList = Nothing
    Set xmlNode = Nothing
    Set xmlDoc = Nothing
End Sub

vba
Sub AnalyzeDataWithXPath()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    Dim i As Integer
    Dim count As Integer
    
    '加载XML文件
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    xmlDoc.Load "C:\example.xml"
    
    '使用XPath选择节点集合
    Set xmlNodeList = xmlDoc.SelectNodes("//book")
    
    '遍历节点集合，统计满足条件的节点数量
    For i = 0 To xmlNodeList.Length - 1
        Set xmlNode = xmlNodeList.Item(i)
        If xmlNode.SelectSingleNode("price").Text > 50 Then
            count = count + 1
        End If
    Next i
    
    '输出统计结果
    MsgBox "共有" & count & "本图书的价格大于50元。"
    
    '释放对象
    Set xmlNodeList = Nothing
    Set xmlNode = Nothing
    Set xmlDoc = Nothing
End Sub

vba
Sub ExtractDataFromXML()
    ' 代码内容
End Sub
Sub AnalyzeDataWithXPath()
    ' 代码内容
End Sub