|
VBScriptの本にヒントがありましたので、
書き込みします。
[2]の249頁に、getElementsByTagNameの引数として、
記述例 要素a/要素b = 要素aの子の要素b とあります。
「Aタグ」が御提示のデータ例にありませんが、
要素a/要素b/要素c… と続けて指定してもいいようです。
[参考文献] いずれも、VBScriptの本
[1]佐藤信正『VBScript Hackers Technique Webクライアント・アプリケーションの制作』メディア・テック出版
[2]坂田健二『Windowsで学ぶXML』技術評論社
Sub MyXmlParse()
Rem *----*----* *----*----* *----*----* *----*----*
Rem 参照設定:(?) 判らないため、Variantを指定。↓
Rem *----*----* *----*----* *----*----* *----*----*
Dim myFile As String
Dim myXmlDoc, myNodeList, myNode ' As Variant
Dim myFileValue As Boolean
Dim i As Long
Rem *----*----* *----*----* *----*----* *----*----*
'
ActiveSheet.Range("A1").Select
i = 0
myFile = "C:\Documents and Settings\User\My Documents\Zzz\test.xml"
'
Set myXmlDoc = CreateObject("MSXML2.DOMDocument") ' ("Microsoft.XMLDOM")
myXmlDoc.Async = False
myFileValue = myXmlDoc.Load(myFile)
Rem *----*----* *----*----* *----*----* *----*----*
'
If myFileValue = True Then
Set myNodeList = myXmlDoc.getElementsByTagName("D/Name") ' ("A/D/Name")
'
For Each myNode In myNodeList
i = i + 1
Cells(i, "A").Value = myNode.Text
Next ' myNode
End If
End Sub ' MyXmlParse *----*----* *----*----* *----*----* *----*----*
|
|