タグ: VBA WEB XML

VBAでRSSを取得する

最近あまり見る機会も減りましたが、ちょっと仕事上必要になったのでメモ。簡単です!!

流れとしてはxmlHTTPオブジェクトを作成、"Open"メゾットにて取得の方法とURLを指定し、"Send"すれば、リクエストは投げれます。

受け側としてはxmlHTTPオブジェクトの"readyState"関数にて取得状態を監視し、完了したらそれなりの処理へ移行するのみです。

以下サンプル。参照設定に"MicroSoft XML,XXX"が必要。

導入部

Sub test()

  Dim httpReq As XMLHTTP60
  Set httpReq = New XMLHTTP60
  

  Call httpReq.Open("GET", "https://news.yahoo.co.jp/pickup/rss.xml")
  httpReq.send
  Do While httpReq.readyState > 4
    Application.Wait Now() + TimeValue("0:00:01")
    DoEvents
  Loop
  Debug.Print httpReq.responseXML.XML
  Set httpReq = Nothing
  
End Sub