ウィリアムのいたずらの、まちあるき、たべあるき

ウィリアムのいたずらが、街歩き、食べ物、音楽等の個人的見解を主に書くブログです(たま~にコンピューター関係も)

ResponseXMLで読めないとき

2014-08-06 15:04:41 | Officeソフト&VBA

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


  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする