VBAからXMLを取得したくて方法を検索し、以下のコードで何とか取得ができました。
Sub httpRequest()
Dim HttpReq As MSXML2.XMLHTTP
Dim DomDoc As MSXML2.DOMDocument
Dim targetURL As String
targetURI = "http://www.drk7.jp/weather/xml/14.xml"
'HTTP GET
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", targetURI, False
HttpReq.send (Null)
'XML PARSE
Set DomDoc = CreateObject("MSXML2.DOMDocument")
DomDoc.LoadXML (HttpReq.responseText)
dumpDomDoc DomDoc.ChildNodes
Set HttpReq = Nothing
Set DomDoc = Nothing
End Sub
Sub dumpDomDoc(objNode)
Dim obj
For Each obj In objNode
MsgBox obj.ParentNode.nodeName & " : " & obj.NodeValue
If obj.HasChildNodes Then
dumpDomDoc obj.ChildNodes
End If
Next
End Sub
このコードですと、読み込んだXMLを一行づつメッセージボックスに延々と表示するだけなのですが、
例えば行先のXMLファイルにある<description>と</description>に囲まれた部分だけを変数に格納するにはどのように記述すればよろしいのでしょうか?
ググってはみましたが知識不足の為、解説も理解できず困っております。
大変お手数ですがご教示いただけますようお願いします。
No.1ベストアンサー
- 回答日時:
スレ主さんのコードを元にちょこっと書き直してみました。
変数名、オブジェクト名等は適当ですが、動作確認はして
<description>の値が取れることは確認しました。
dumpDomDoc関数は不要だったので消しました。
■サンプル1
Sub httpRequest()
Dim HttpReq As MSXML2.XMLHTTP
Dim DomDoc As MSXML2.DOMDocument
Dim targetURL As String
Dim xmlNodeList As IXMLDOMNodeList ←追加
Dim value As String ←追加
targetURI = "http://www.drk7.jp/weather/xml/14.xml"
'HTTP GET
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", targetURI, False
HttpReq.send (Null)
'XML PARSE
Set DomDoc = CreateObject("MSXML2.DOMDocument")
DomDoc.LoadXML (HttpReq.responseText)
Set xmlNodeList = DomDoc.selectNodes("weatherforecast/description") ←追加
value = xmlNodeList(0).Text ←追加
Set HttpReq = Nothing
Set DomDoc = Nothing
End Sub
またweatherforecastとdescriptionの指定を分けたい場合は、
■サンプル2
Sub httpRequest()
Dim HttpReq As MSXML2.XMLHTTP
Dim DomDoc As MSXML2.DOMDocument
Dim targetURL As String
Dim xmlNodeList1 As IXMLDOMNodeList ←追加
Dim xmlNodeList2 As IXMLDOMNodeList ←追加
Dim value As String ←追加
targetURI = "http://www.drk7.jp/weather/xml/14.xml"
'HTTP GET
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", targetURI, False
HttpReq.send (Null)
'XML PARSE
Set DomDoc = CreateObject("MSXML2.DOMDocument")
DomDoc.LoadXML (HttpReq.responseText)
Set xmlNodeList1 = DomDoc.selectNodes("weatherforecast") ←追加
Set xmlNodeList2 = xmlNodeList1(0).selectNodes("description") ←追加
value = xmlNodeList2(0).Text ←追加
Set HttpReq = Nothing
Set DomDoc = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
ExcelのVBAコードについて教え...
-
HTML電卓で1文字消す方法
-
Exel VBA 別ブックから該当デ...
-
Excel VBA素人です。VBAで図形...
-
pythonにてseleniumを使うも、...
-
chatgptでつくってもらったコー...
-
SQL
-
1日に1人がこなせるプログラム...
-
1、Rstudioで回帰直線を求める...
-
JANコードとPOSコードは同じ?
-
access2003 クエリSQL文に...
-
パイソンプログラム
-
楽観的排他処理のためViewState...
-
VBAのifで
-
データバインドした値のコード...
-
vb6.0の実行時エラー'3075'につ...
-
Gitのクローンについて
-
ホームページや書籍などのサン...
-
CFormViewでの印刷について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
COBOLの文法
-
VBAでファイルオープン後にコー...
-
Nullの使い方が不正です。
おすすめ情報