ExcelVBAでサイトにアクセス、XMLを受け取ったら、セルに書き出したい!
http://blog.goo.ne.jp/xmldtp/e/1060c7d1a90990850b14fcf2fde2258d
では、
Set xdoc = httpObj.ResponseXML
Set itemNodeList = xdoc.getElementsByTagName("item")
でXMLのRSSが読み込めるんだけど、
サイトによっては、まったく読み込めないことがある。
このときなんだけど、理由は不明なのだが・・・
'target_urlに読み込み先URL,sendDataに送信データをあらかじめセット Set httpObj = CreateObject("MSXML2.XMLHTTP") httpObj.Open "POST", target_url, False Call httpObj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") httpObj.send (sendData) ' 結果表示 Set xdoc = CreateObject("MSXML2.DOMDocument") xdoc.LoadXML (httpObj.ResponseText) 'itemを取り出し(複数ある) Set itemNodeList = xdoc.getElementsByTagName("Name") |
のように、xdocをMSXML2.DOMDocumentでオブジェクト生成して、
それに、読んできたテキスト(httpObj.ResponseText)を
LoadXMLすると、うまくいくことがある・・・なぜか・・?
【ヒントにしたサイト(そのやり方ではない)】
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200707/07070021.txt