Excel VBA質問箱 IV

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

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


41280 / 76732 ←次へ | 前へ→

【40533】Re:xmlの読みとり
回答  H. C. Shinopy  - 06/7/15(土) 22:36 -

引用なし
パスワード
   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 *----*----*  *----*----*  *----*----*  *----*----*
1 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 お礼

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