連続したURLからのテキストの取得

解決

マジック 2008-02-28 11:00:43 No: 100365 IP: 192.*.*.*

よろしくお願いします。
複数のＵＲＬがあります。
そこでそこからそれぞれのページのテキストを取得したいのですが上手く行きません。教えてください。

Private Sub Command1_Click()
    WebBrowser1.Navigate2 "http://jp.msn.com/"
    Debug.Print Form1.WebBrowser1.Document.documentElement.InnerHTML
    WebBrowser1.Navigate2 "http://weather.yahoo.co.jp/weather/"
    Debug.Print Form1.WebBrowser1.Document.documentElement.InnerHTML
    WebBrowser1.Navigate2 "http://www.yahoo.co.jp/"
    Debug.Print Form1.WebBrowser1.Document.documentElement.InnerHTML
End Sub
上記のようにすると何も取れませんが、以下のようにすると最後のＵＲＬのテキストのみとれる見たいです。

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Debug.Print Form1.WebBrowser1.Document.documentElement.InnerHTML

End Sub

これをそれぞれのページについてのテキストが取得できる形にするにはどのようにすればよいでしょうか。

編集削除

VBレスキュー(花ちゃん) 2008-02-28 12:33:37 No: 100366 IP: 192.*.*.*

どこかで見かけたような気がするのですが？
質問される前に、ここのサイト内検索で、InnerHTML をキーに検索すれば
回答が見つかったはずですが。

編集削除

マジック 2008-02-28 16:56:33 No: 100367 IP: 192.*.*.*

有難うございます。

http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200409/04090048.txt

上記を参考に何とか動くものが作れました。

編集削除