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

解決

マジック 2008-02-28 20:00:43 No: 100365

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

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 21:33:37 No: 100366

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

マジック 2008-02-29 01:56:33 No: 100367

有難うございます。

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

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