投稿日 | : 2004/08/06(Fri) 18:53 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 試してみましたが |
Private Sub Command1_Click()
sURL1 = "http://www.bcap.co.jp/hanafusa/in.html"
WebBrowser1.Navigate sURL1
Do While WebBrowser1.Busy
DoEvents
Loop
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Call check(1)
End Sub
試してみましたが、問題なく取得できています。