Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


41258 / 76732 ←次へ | 前へ→

【40555】Re:xmlの読みとり
回答  H. C. Shinopy  - 06/7/16(日) 22:21 -

引用なし
パスワード
   ある一つの「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 *----*----*  *----*----*  *----*----*  *----*----*
2 hits

【40506】xmlの読みとり 風魔 06/7/15(土) 10:19 質問
【40533】Re:xmlの読みとり H. C. Shinopy 06/7/15(土) 22:36 回答
【40542】Re:xmlの読みとり 風魔 06/7/16(日) 8:07 発言
【40555】Re:xmlの読みとり H. C. Shinopy 06/7/16(日) 22:21 回答
【40561】Re:xmlの読みとり 風魔 06/7/17(月) 8:54 お礼

41258 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free