XMLをエクセルに書き出すVBAを作成中です。
(EXCELの標準機能でも可能なことは知っています)
下記サイトを参考にしていたのですが、
https://freefly3104.hatenablog.com/entry/2015/04/03/222516
ChildNodes(1)…の部分を指定せずに処理する方法はありませんでしょうか。
自分なりに施行してみたのですがうまくいかず、
アドバイスいただければ幸いです。
----------------------------------------
'<DATA>ノードの子要素をループで抽出
Dim Node As IXMLDOMNode
For Each Node In xmlDataNode.ChildNodes
'<PRODUCTINFO>ノードの子要素を出力
Cells(intY, intX) = Node.ChildNodes(0).Text '<SERIALNO>情報を出力
intX = intX + 1
Cells(intY, intX) = Node.ChildNodes(1).Text '<PRODUCTNAME>情報を出力
intX = intX + 1
Cells(intY, intX) = Node.ChildNodes(2).Text '<PRICE>情報を出力
intX = intX + 1
Cells(intY, intX) = Node.ChildNodes(3).Text '<STOCK>情報を出力
intX = intX + 1
'<STOCK quantity="10" lineNumber="1">
Cells(intY, intX) = Node.ChildNodes(3).Attributes(0).Text 'quantity属性情報を出力
intX = intX + 1
Cells(intY, intX) = Node.ChildNodes(3).Attributes(1).Text 'lineNumber属性情報を出力
intX = intX + 1
Next
----------------------------------------