XMLファイルのタグの属性を読み取るには？ (ID:116319)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士 様 ありがとうございます。 なんだか、感動してしまいました。 （と共に自分がいかにVBも何もわかっていないか痛感しました） まずXMLですが、急いで書いてしまったので、 すみません。 ○→<price currency='dollar'>150</price> です。 魔界の仮面弁士さんのアドバイスに従って 下記のように直してみました。 Public Sub DisplayXMLNode(ByRef Nodes As MSXML.IXMLDOMNodeList, _ ByVal Indent As Integer) Dim xNode As MSXML.IXMLDOMNode Dim Attr As IXMLDOMAttribute Dim Role$ Indent = Indent + 2 For Each xNode In Nodes If xNode.nodeType = NODE_ELEMENT Then For Each Attr In xNode.Attributes Role = Attr.nodeValue Next ElseIf xNode.nodeType = NODE_TEXT Then Debug.Print Space$(Indent) & xNode.parentNode.nodeName & _ "(" & Role & ")" & ":" & xNode.nodeValue End If If xNode.hasChildNodes Then DisplayXMLNode xNode.childNodes, Indent End If Next xNode End Sub 実は、<price currency='dollar'/> となっているときの事を 考えての事なのですが・・・。 どうも今ひとつ上手くいっていません。 現在はそのような状態です。 ※上記のように訂正する前に 最初の質問のプログラムの「→→→→→→」部に For Each Attr In xNode.Attributes 〜 を 挿入し、属性がprintされるのは確認しました。