来自导入 xml 文件的 VBA 错误值答案

【问题标题】：VBA Wrong value from import xml file来自导入 xml 文件的 VBA 错误值
【发布时间】：2018-06-19 16:39:15
【问题描述】：

来自 XML：

<PartNumberList>
<PartNumber PartNumber="DTRxxxxxxxxxxx" Cost="0" Description="Test" Manual="No" Mass="0.216" MountedOnHarness="Yes" PN_Source="WH" PN_Status="OK" PN_Type="Contact" PN_Version="1" Quantity="1" UnitType="Unit" />
</PartNumberList>

我想将它 DTRxxxxxxxxxxx 拉到电子表格中，但每次 excel 都给我最后一个属性“单位”

这是我来自 vba 的部分代码：

Set xmlNodeListPin = xmldoc.SelectNodes("//ConnectiveDevice[@Tag='" & ForDTRFromTag & "']/PinList/Pin[@Tag='" & ForDTRFromPinTag & "']/*/*/*/PartNumberList/PartNumber[@PartNumber]")
        On Error Resume Next
        For Each xmlNodePin In xmlNodeListPin
            'Debug.Print xmlNode.BaseName
            For Each myAtr In xmlNodePin.Attributes
            'If myAtr.BaseName = "Description" Then pnv = myAtr.Text
                'Debug.Print myAtr.BaseName & ": " & myAtr.Text
                Sheets("WL-test1").Cells(y, x).Value = myAtr.Text
            Next myAtr
            x = x + 1
            myCheck = 0
        Next xmlNodePin
        x = x + myCheck * (UBound(CableFrom) + 1)
        myCheck = 1

有什么想法吗？

生成文档的一些代码

Sub Test()

    Dim oDOC As MSXML2.DOMDocument60
    Set oDOC = New MSXML2.DOMDocument60

    oDOC.LoadXML "<PartNumberList>" & _
        "<PartNumber PartNumber='DTRxxxxxxxxxxx' Cost='0' Description='Test' Manual='No' Mass='0.216' MountedOnHarness='Yes' PN_Source='WH' PN_Status='OK' PN_Type='Contact' PN_Version='1' Quantity='1' UnitType='Unit' />" & _
        "</PartNumberList>"

    Debug.Assert oDOC.parseError.ErrorCode = 0

End Sub

【问题讨论】：

我想帮忙但是文档只是一个片段，ConnectiveDevice没有出现在文档中
我只想要 PartNumber="DTRxxxxxxxxxxx"，怎么样？
在 XPath 的末尾使用 [@PartNumber='DTRxxxxxxxxxxx']。

标签： xml vba import

【解决方案1】：

给你。

Option Explicit

Sub Test()

    Dim xmldoc As MSXML2.DOMDocument60
    Set xmldoc = New MSXML2.DOMDocument60

    xmldoc.LoadXML "<ConnectiveDevice Tag='foo'><PinList><Pin Tag='bar'><a><b><c><PartNumberList>" & _
        "<PartNumber PartNumber='DTRxxxxxxxxxxx' Cost='0' Description='Test' Manual='No' Mass='0.216' MountedOnHarness='Yes' PN_Source='WH' PN_Status='OK' PN_Type='Contact' PN_Version='1' Quantity='1' UnitType='Unit' />" & _
        "</PartNumberList></c></b></a></Pin></PinList></ConnectiveDevice>"

    Debug.Assert xmldoc.parseError.ErrorCode = 0

    Dim ForDTRFromTag, ForDTRFromPinTag, y, x, myCheck, CableFrom
    ForDTRFromTag = "foo"
    ForDTRFromPinTag = "bar"

    Dim xmlNodeListPin As MSXML2.IXMLDOMNodeList
    'Set xmlNodeListPin = xmldoc.SelectNodes("//ConnectiveDevice[@Tag='" & ForDTRFromTag & "']/PinList/Pin[@Tag='" & ForDTRFromPinTag & "']/*/*/*/PartNumberList/PartNumber[@PartNumber]")
    Set xmlNodeListPin = xmldoc.SelectNodes("//ConnectiveDevice[@Tag='" & ForDTRFromTag & "']/PinList/Pin[@Tag='" & ForDTRFromPinTag & "']/*/*/*/PartNumberList/PartNumber[@PartNumber]")


    If xmlNodeListPin.Length = 0 Then
        Debug.Print "bad xpath not no nodes found!"
        Stop
    Else
        On Error Resume Next
        Dim xmlNodePin As MSXML2.IXMLDOMNode
        For Each xmlNodePin In xmlNodeListPin
            'Debug.Print xmlNode.BaseName
            Dim myAtr As MSXML2.IXMLDOMAttribute
            For Each myAtr In xmlNodePin.Attributes
                If myAtr.Name = "PartNumber" Then
                'If myAtr.BaseName = "Description" Then pnv = myAtr.Text
                    'Debug.Print myAtr.BaseName & ": " & myAtr.Text
                    'Sheets("WL-test1").Cells(y, x).Value = myAtr.Text

                    Debug.Print myAtr.NodeValue
                End If
            Next myAtr
            x = x + 1
            myCheck = 0
        Next xmlNodePin
        x = x + myCheck * (UBound(CableFrom) + 1)
        myCheck = 1
    End If

    '*****
    '*
    '*   OR with a single line ...
    '*
    '*****
    Dim xmlPartNumber As MSXML2.IXMLDOMAttribute
    Set xmlPartNumber = xmldoc.SelectSingleNode("//ConnectiveDevice[@Tag='" & ForDTRFromTag & "']/PinList/Pin[@Tag='" & ForDTRFromPinTag & "']/*/*/*/PartNumberList/PartNumber/@PartNumber")

    Debug.Print xmlPartNumber.nodeTypedValue


End Sub

【讨论】：