取得には、以下のコードは、これを出力しますノード

Question

のリストから、最初のノードの名前項目属性リスト内の各ノードに対して '？ 私は親が1つのノードだけであることを知っているので、私はこれを使う必要があり、新しい変数（ 'ノード'）を定義しなければならないと愚かなようです。
助けてくれてありがとう！

VBA：

Dim xDoc As DOMDocument 
    Set xDoc = New DOMDocument 
    xDoc.Load ("C:\....\example2.xml") 
    Set list = xDoc.SelectNodes("/animal/cat[(@ID)=""17""]") 
    Dim attr As IXMLDOMAttribute 
    Dim node As IXMLDOMNode 
    Dim childNode As IXMLDOMNode 

    For Each node In list 
     Debug.Print node.Attributes.getNamedItem("Name").Text 
    Next node 

XML：

<animal> 
      <dog ID="16" Name="Lucy"/> 
      <cat ID="156" Name="Chloe"/> 
      <cat ID="17" Name="GAL"> 
       <child ID="173" Name="Tigger"/> 
       <child ID="1256" Name="Angel"/> 
       <child ID="256" Name="Peanut"/> 
      </cat> 
      <cat ID="18" Name="Charlie"> 
       <child ID="173" Name="Smokey"/> 
      </cat> 
    </animal> 

Answer 1

あなたが本当に持っている場合、私は、あなたが新しい質問を開いた理由、これはとにかく昨日のRead XML child node Attribute on VBA with oDOC

を再訪されたかわかりません1つの項目を実行しているループの問題（率直に言って、わからない）listオブジェクトのlengthを調べることができます。

If list.length=1 Then 
    List.item(0).Attributes.getNamedItem("Name").Text 
Else 
    'Do the loop 
End If 

forループが1つのアイテムに対して実行されることを期待しているというコメントを追加できませんか？あなたのコード

Sub Tst() 


    Dim xDoc As MSXML2.DOMDocument60 
    Set xDoc = New MSXML2.DOMDocument60 
    xDoc.Load ThisWorkbook.Path & "\example2.xml" '<---- my path is different 

    Dim oSingular As MSXML2.IXMLDOMNode 
    Set oSingular = xDoc.SelectSingleNode("/animal/cat[(@ID)=""17""]") 

    Debug.Print oSingular.Attributes.getNamedItem("Name").Text 

' Set List = xDoc.SelectNodes("/animal/cat[(@ID)=""17""]") 
' Dim attr As IXMLDOMAttribute 
' Dim node As IXMLDOMNode 
' Dim childNode As IXMLDOMNode 
' 
' For Each node In List 
'  Debug.Print node.Attributes.getNamedItem("Name").Text 
' Next node 


End Sub