如何仅从VBA EXCEL（VBA DOM）XML中具有特定属性的节点检索值。

Stick Rodrigues 发表于 Dev

棒罗德里格斯

我只需要从其属性为“ true”的节点中检索值。这是我所拥有的和我需要的-感谢您的帮助：

    <AudioTracks>
      <original available="true">ENG</original>
      <localized available="false">SPA</localized>
      <localized available="true">POR</localized>
    </AudioTracks>

这是我的代码，它将检索所有值，但是我想找到一种只检索ENG和POR（true）的方法。我似乎找不到合适的方法来做到这一点。

'AudioTracks
    Set oAudioNodes = featureNode.SelectSingleNode("videos/video/AudioTracks")

    For i = 0 To oAudioNodes.ChildNodes.Length
          sAudio = oAudioNodes.ChildNodes.Item(i).nodeTypedValue & ";" & sAudio
    Next

    sAudio = Left(sAudio, Len(sAudio) - 1)
    ActiveSheet.Cells(intRow, colAudioTracks).Value = NullCheck(sAudio)
    sAudio = ""
    sRawData = ""

这将返回ENG; SPA; POR ...但是我需要它仅返回ENG; POR

帮我Obi Wan，你是我唯一的希望。

棒罗德里格斯

尤里卡。我已经找到了实现这一目标的方法。不漂亮，但是效果很好！我只是使用getAttribute属性做了一个小的条件。作为参数，我只使用了属性名称（在这种情况下为“可用”）。哈！美丽-对我来说。

    Set oAudioNodes = featureNode.SelectSingleNode("videos/video/AudioTracks")

    txt = ""

    For i = 0 To oAudioNodes.ChildNodes.Length


          txt = oAudioNodes.ChildNodes.Item(i).getAttribute("available")

If txt = "true" Then sAudio = oAudioNodes.ChildNodes.Item(i).nodeTypedValue & ";" & sAudio

    Next

    sAudio = Left(sAudio, Len(sAudio) - 1)
    ActiveSheet.Cells(intRow, colAudioTracks).Value = NullCheck(sAudio)
    sAudio = ""
    sRawData = ""
    txt = ""