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

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

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

这将返回我的英语；水疗；波。。。但我只需要它返回ENG；波尔

帮助我，欧比万，你是我唯一的希望

---

尤里卡。我已经找到了实现这一目标的方法。不漂亮，但工作很好！我只是使用getAttribute属性做了一个小的条件设置。作为参数，我刚刚使用了属性名（在本例中为“available”）。哈美丽-对我来说

    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 = ""

---

尤里卡。我已经找到了实现这一目标的方法。不漂亮，但工作很好！我只是使用getAttribute属性做了一个小的条件设置。作为参数，我刚刚使用了属性名（在本例中为“available”）。哈美丽-对我来说

    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 = ""