VBA XML解析故障：遍历NodeList提取节点值重复返回首个结果

问题场景 #

需要从XML发票文档的每个<ram:IncludedSupplyChainTradeLineItem>订单项节点中提取<ram:SellerAssignedID>的值，预期输出两个不同的ID：

111111
222222

但运行现有VBA代码后，实际重复输出首个节点的值：

111111
111111

要求必须遍历每个订单项节点以验证主数据完整性，不能直接提取所有匹配的ID。

核心问题分析 #

问题出在XPath表达式的路径前缀：
原代码中DomNode.SelectSingleNode("//ram:SellerAssignedID")里的//是全局搜索前缀，表示从整个XML文档的根节点开始查找匹配节点，而非从当前遍历的DomNode（单个订单项节点）的上下文开始搜索。因此每次循环都会返回文档中第一个匹配的<ram:SellerAssignedID>值。

修正方案 #

将XPath改为相对路径，有两种可选方式：

1. 使用.//表示从当前节点的所有后代节点中搜索
2. 使用精确的层级路径（更高效，避免歧义）

修正后的完整代码 #

Sub getMetaDataFromXmlFile()
    'Declare variables (early bind)
    Dim xDoc As New MSXML2.DOMDocument60
    Dim xNodes As MSXML2.IXMLDOMNodeList
    Set xDoc = New MSXML2.DOMDocument60
    Dim DomNode As IXMLDOMNode
    
    'Setup Namespace
    xDoc.SetProperty "SelectionNamespaces", _
        "xmlns:qdt='urn:un:unece:uncefact:data:standard:QualifiedDataType:100' " & _
        "xmlns:ram='urn:un:unece:uncefact:data:standard:ReusableAggregateBusinessInformationEntity:100' " & _
        "xmlns:udt='urn:un:unece:uncefact:data:standard:UnqualifiedDataType:100' " & _
        "xmlns:rsm='urn:un:unece:uncefact:data:standard:CrossIndustryInvoice:100' "
    
    Dim strXML As String: strXML = "C:\Users\JohnDoe\Desktop\factur-x.xml"
    
    With xDoc
        .async = False
        .validateOnParse = True
        If xDoc.Load(strXML) = False Then
            Debug.Print .parseError.reason, .parseError.ErrorCode
            Exit Sub
        End If
        
        Set xNodes = xDoc.SelectNodes("//ram:IncludedSupplyChainTradeLineItem")
        Debug.Print xNodes.Length '输出2
        
        For Each DomNode In xNodes
            ' 方式1：相对路径搜索后代节点
            Debug.Print DomNode.SelectSingleNode(".//ram:SellerAssignedID").Text
            ' 方式2：精确层级路径（更推荐）
            ' Debug.Print DomNode.SelectSingleNode("ram:SpecifiedTradeProduct/ram:SellerAssignedID").Text
        Next
    End With
End Sub

验证结果 #

修正后运行代码，会正确输出每个订单项对应的SellerAssignedID值，同时保持遍历每个订单项节点的逻辑，满足主数据完整性验证的要求。

内容的提问来源于stack exchange，提问作者smartini