VBAによるIE操作について

質問

VBAによるIE操作について

WEBブラウザの表示が完了しているかを確認する方法で以下を利用しています。

While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Wend
Set objDoc = objIE.Document
Do Until objDoc.ReadyState = "complete": DoEvents: Loop

これで完了するまで処理を待つのですが、たまにブラウザが読み込み状態で固まってしまうことがあります。
F5で更新すると再度読み込みを行い、処理が正常に戻るのですが、固まってしまった場合のプログラムでの対処法はないでしょうか？

10秒間ループし続けたらsendkeysでF5を押下するなど色々考えたんですが、うまく表現できません＞＜

どなたか分かる方ご教授お願いします!

回答No.2

kumatti1 · ベストアンサー

こんな感じですかね。
---
Dim TimeOut As Date
Dim flg As Boolean

flg = False
TimeOut = Now + TimeSerial(0, 0, 10)
While ie.busy
DoEvents
Sleep 100
If Now > TimeOut Then
flg = True
Exit Do
End If
Wend
If flg Then
ie.Refresh
End If

お礼

ありがとうございます！

回答No.3

kumatti1

下のコードの訂正。
while～wendは、do while～loopに。

参考URL：

https://gist.github.com/kumatti1/166c2d72dc386b5f9f17

お礼

while～wendは利用しないほうがいいんですね！
ありがとうございます！

回答No.1

pa_cotta

# 直接の回答ではありません

Win32APIを使ってIEの状態を調べることができた記憶があります。VBAでもWin32APIは使えるのでそちらで調べてみるのはいかがでしょうか。
ただ、IE自体が固まってしまうことも多々あるので、タイムアウト時間を決めてエラー処理やリトライ処理を入れた方がいいかもしれません。