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

名前

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

本文 魔界の仮面弁士 様 魔界の仮面弁士さん！ありがとうございます。 やっと頭が動き始めたというか、うまくできました。 本当にありがとうございます。 下記のようにプログラムしてみました。 Public Sub DisplayXMLNode(ByRef Nodes As MSXML.IXMLDOMNodeList, _ ByVal Indent As Integer, ByVal Role As String) Dim xNode As MSXML.IXMLDOMNode Dim Attr As IXMLDOMAttribute 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, Role End If Role = "" Next xNode End Sub 魔界の仮面弁士さんの指導をいただいたおかげです。 MSXML4の使い方についても引き続いて ご指導いただけると幸いです。