|
ある一つの「Dタグ」に囲まれている中の「Nameタグ」の一覧のみを取得するということですが、
複数あるわけですから、添え字を付けて選択することになります。
下記は、Dタグの中のNameタグをセルに入れる処理です。
(Dタグごとに横書きします。)
Sub MyXmlParse4()
Rem *----*----* *----*----* *----*----* *----*----*
Rem 参照設定:(?)
Rem *----*----* *----*----* *----*----* *----*----*
Dim myFile As String
Dim myXmlDoc, myNodeList, myNode, myChildNode ' As Variant
Dim myFileValue As Boolean
Dim r As Long
Dim c As Long
Rem *----*----* *----*----* *----*----* *----*----*
'
ActiveSheet.Range("A1").Select
r = 0 ' 行
c = 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")
'
For Each myNode In myNodeList
' MsgBox myNodeList(1).ChildNodes(1).Text
If myNode.hasChildNodes Then
Set myChildNode = myNode.SelectNodes("Name")
r = r + 1
For c = 0 To myChildNode.Length - 1
Cells(r, c + 1).Value = myChildNode(c).Text
Next ' c
End If
Next ' myNode
End If
End Sub ' MyXmlParse4 *----*----* *----*----* *----*----* *----*----*
|
|