「ページが表示されました」まで取得したい

質問

ＩＥを立ち上げてステータスバーのテキストを取得して、
「ページが表示されました」を取得出来たら、次のコードへ進みたいのですが、
下のコードでStatusTexttを書き出しても「ページが表示されました」まで取得できません。

Sub test()
Dim objIE As InternetExplorer
Dim i As Long

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate "http://www.goo.ne.jp/"
objIE.Visible = True

Workbooks.Add

Cells(1, 1) = objIE.StatusText

i = 2
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Cells(i, 1) = objIE.StatusText
i = i + 1
Loop

Cells(i, 1) = objIE.StatusText

Set objIE = Nothing
End Sub

Do While objIE.Busy = True Or objIE.ReadyState <> 4
ここら辺のコードを弄ればいいような気がしますが、うまくいきません。

ご回答よろしくお願いします。

回答No.1

hirotn · ベストアンサー

CellsだからExcelですか？

Do While objIE.Busy = True Or objIE.ReadyState <> 4
→ Do While objIE.Busy = True And objIE.ReadyState <> 4

試せず恐れ入りますが、IEオブジェクトが「暇」かつ(AND)、「Complete」ならばどうでしょうか。

お礼

回答ありがとうございました。