VBA (Excel) 中的 XPath 评估

使用VBA (Excel)中的XPath评估

VBA
Sub EvaluateXPath()
    Dim xmlDoc As Object
    Dim xmlNodeList As Object
    Dim xmlNode As Object
    Dim i As Integer
    
    ' 创建XML文档对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    ' 加载XML文件
    xmlDoc.Load "books.xml"
    
    ' 使用XPath评估，选择所有的书籍标题节点
    Set xmlNodeList = xmlDoc.SelectNodes("//book/title")
    
    ' 遍历节点集，输出书籍标题
    For i = 0 To xmlNodeList.Length - 1
        Set xmlNode = xmlNodeList.Item(i)
        Debug.Print xmlNode.Text
    Next i
    
    ' 释放对象
    Set xmlDoc = Nothing
    Set xmlNodeList = Nothing
    Set xmlNode = Nothing
End Sub