vba - 查找节点的 xpath答案

【问题标题】：vba - finding the xpath of a nodevba - 查找节点的 xpath
【发布时间】：2011-09-20 13:41:16
【问题描述】：

c.Value 是来自工作表第一行的单元格的文本（典型值为：名称、类型、重量、货币，但可以是任何值）。

filenames 是来自 Dir() 的循环，基本上是通过文件夹中的 XML 循环。

这些 xmls 可能具有最低级别的节点“权重”（例如），但在多个不同的父节点下。即这 3 个不同的 xpath： //Client/personal/weight 和 //Client/details/weight 和 //Client/details/info/weight。

我有这个代码：

   Dim aDoc As DOMDocument
    Dim aNode As IXMLDOMNode
    Set aDoc = LoadXmlDoc(filenames(f))
    Set aNodes = aDoc.getElementsByTagName(c.Value)
For f = 1 To UBound(filenames)
    If aNodes.Length > 0 Then 'if at least one node is present
       For Each aNode In aNodes 'loop thru each occurence of a node
          c.Offset(f, 0).Value = aNode.Text & "parent is " & aNode.parentNode.parentNode
       Next
    End If
Nxt f

我要做的是为我在 c.value 中指定的子节点获取一个不同的 xpath 列表。

例如，

if c.value is weight

我正在尝试取回这个列表：

//Client/personal/weight
//Client/details/weight
//Client/details/info/weight.

http://msdn.microsoft.com/en-us/library/aa163921(office.10).aspx 是一个很好的参考，但我似乎无法找到如何从子节点获取 xpath。我刚刚设法获得了直接的父节点。

【问题讨论】：

标签： xml excel vba xpath

【解决方案1】：

您需要从节点开始，沿着其父节点向上走，直到到达文档级别。

Sub Tester()

    Dim oDoc As New MSXML2.DOMDocument
    Dim oNodes As MSXML2.IXMLDOMNodeList
    Dim oNode As MSXML2.IXMLDOMNode
    Dim pNode As MSXML2.IXMLDOMNode
    Dim XML As String, sPath As String

    XML = "<Client><LastName>Bill</LastName><FirstName>Gates</FirstName>" & _
    "<MiddleName/><Suffix/><DateOfBirth>30-May-1968</DateOfBirth>" & _
    "<PlaceOfBirth/><SSN>n/a</SSN><Gender>Male</Gender><District>" & _
    "<City>SHELTON</City><Mayor>wong</Mayor></District><State>WA</State>" & _
    "<Zip>96484</Zip></Client>"

    oDoc.LoadXML XML

    Set oNodes = oDoc.getElementsByTagName("City")
    If oNodes.Length > 0 Then

        For Each oNode In oNodes
            sPath = oNode.nodeName
            Set pNode = Nothing
            Do
                If pNode Is Nothing Then
                    Set pNode = oNode.ParentNode
                Else
                    Set pNode = pNode.ParentNode
                End If

                If pNode.nodeTypeString <> "document" Then
                    sPath = pNode.nodeName & "/" & sPath
                Else
                    sPath = "//" & sPath
                    Exit Do
                End If
            Loop
            Debug.Print sPath
        Next oNode
    End If

End Sub

【讨论】：