無限ループ VBA IE操作

質問

VBAです。

とあるサイトで
Sub IE_wait()
Const READYSTATE_COMPLETE As Long = 4

Do Until objIE.readyState = READYSTATE_COMPLETE
Loop

Do While objIE.Busy = True
DoEvents
Loop

End Sub
が無限ループに陥ります。

中断して
Exit Sub
を入れてみましたが、抜けれません。

ページは既に表示済みです。

なぜ無限ループが抜けられないのか、
なぜページが表示されているのにこのコードが繰り返されるのか
何かわかる方よろしくお願いします。

回答No.2

kumatti1 · ベストアンサー

IE11以降で拡張保護モードが有効かつ、特定のサイト(Yahoo!等)で発生する問題かも知れません。
定番の対応として、navigateメソッドの前後でVisibleプロパティを操作するとか。

objIE.Visible = False
objIE.navigate "url"
objIE.Visible = True

お礼

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

回答No.1

dogs_cats

IE制御はした事はありませんが、ネットで検索したら下記サイトがありましたのでご参考まで。

そのコードはWEBページを表示されるまで待機する為のコードとなっていますが、違うのでしょうか？

'完全にページが表示されるまで待機する
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

http://www.vba-ie.net/ieobject/readystate.html

勘違い書き込みの場合はスルー下さい。

お礼

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