IE操作 StatusTextの文字を取得したい

質問

現在IE9を使っています。

IE８なら、添付画像の赤で囲った部分に
"ページが表示されました"と表示されますが、IE９では表示されません。

ここに文字を表示し、文字を取得するにはどうすればいいでしょうか？

*************************************
Sub Sample()
Dim objIE As InternetExplorer

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.Navigate "http://www.goo.ne.jp/"

objIE.StatusText = True '意味ないっぽい
Debug.Print objIE.StatusText

objIE.Quit
Set objIE = Nothing
End Sub
*************************************

これでは取得されませんでした。

Do
DoEvents
Loop Until objIE.StatusText = "ページが表示されました"

のように、ページが表示されたら、次のコードに進む・・・とやりたいです。

回答No.1

kumatti1 · ベストアンサー

ページの読み込み待ちなら、DocumentComplete イベントでどうぞ。
(参照設定してるので)

参考URL：

https://gist.github.com/1619670

お礼

ありがとうございます。