ってことを、きっとこのブログに書いているはずだけど、
自分でも見つけられない・・・
ということで、書き直します。
【お題】
gooのいまトピのRSS
http://ima.goo.ne.jp/rank.rss
にアクセスして、
な風に表示したい
【VBA ソースコード】
自分でも見つけられない・・・
ということで、書き直します。
【お題】
gooのいまトピのRSS
http://ima.goo.ne.jp/rank.rss
にアクセスして、
な風に表示したい
【VBA ソースコード】
Sub main() On Error GoTo err Dim httpObj Dim sendData ' データセット target_url = "http://ima.goo.ne.jp/rank.rss" sendData = "username=admin&password=pass" ' POSTで飛ばします Set httpObj = CreateObject("Microsoft.XMLHTTP") httpObj.Open "POST", target_url, False Call httpObj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") httpObj.send (sendData) ' 結果表示 Set xdoc = httpObj.ResponseXML 'itemを取り出し(複数ある) Set itemNodeList = xdoc.getElementsByTagName("item") For i = 0 To itemNodeList.Length - 1 ' 1アイテムごとに Set rec = itemNodeList.Item(i) ' レコード書き出し Cells(i + 2, 1) = i + 1 Cells(i + 2, 2) = rec.getElementsByTagName("title").Item(0).Text Cells(i + 2, 3) = rec.getElementsByTagName("description").Item(0).Text Cells(i + 2, 4) = rec.getElementsByTagName("link").Item(0).Text Cells(i + 2, 5) = rec.getElementsByTagName("pubDate").Item(0).Text Next Exit Sub err: MsgBox "error" End Sub |