ストリーミングのタイミング処理 (ID:139157)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初めて質問させていただきます。
  VBAにて、Webサイトからオンメモリで特定のタグ部分を抜き出すプログラムを作成しております。方法としては本サイトの質問項[HTML取得について],[WebbrowserコントロールなしでのDHTMLの操作]等々に書かれていた内容を基に組みました。
  しかし実行においてステップインを用いての処理であれば正常に終わるもの、全部を一度に行った場合(F5)は変数aaaの値が反映されずnothingとなり以降がエラーとなっています。
ストリーミングを行う時間が必要なのであろうと解釈しているのですが、forループやWait関数を用いても改善が見られないためどの様な対応を行えばよいか質問させていただいております。
少しVBから趣旨がずれているかも知れませんが、処理手順としてもっとスマートなやり方等もあればご指導よろしくお願いします。

'VBAにてWebサイト(HTTPver：XHTML1.0 Transitional)からMSXML2.XMLHTTP を用いてソースを入手
'---
    Set http = CreateObject("MSXML2.XMLHTTP")
    If (Err.Number <> 0) Then
        Set http = CreateObject("MSXML.XMLHTTPRequest")
    End If
    
    With http
        .Open "GET", url, False
        .send
    End With
'---    
'メモリ上からソースを読み込み、あるタグ<"PRE">中の値をdebug出力
'---
    Dim doc As MSHTML.HTMLDocument
    Set doc = New MSHTML.HTMLDocument

Dim stm As IPersistStreamInit
    Set stm = doc
    stm.Load http.responseStream
    Set doc = stm

Set aaa = doc.getElementsByTagName("PRE").Item(0) '.innerText
    buf = aaa.innerText
    Debug.Print buf 'doc.getElementsByTagName("PRE").Item(0).innerText
---

←解決時は質問者本人がここをチェックしてください。

戻る