VBAオートメーションエラーの特定方法について

Question

###前提・実現したいこと
VBAのIE操作でエラーが発生しましたが、原因の追究をどのようにやっていけばよいかアドバイスをいただけませんか。

###発生している問題・エラーメッセージ

オートメーションエラーです。エラーを特定できません。

###該当のソースコード

Sub ieCheck(objIE As InternetExplorer)

Dim timeOut As Date

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 30)

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 30)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 30)

Do While objIE.document.ReadyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 30)
End If
Loop

End Sub

###試したこと
サブプロシージャーを通常のプロシージャーに組み込む事。しかし、同様の場所でエラーが出ました。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
VBA

Answer 1

参照設定とSleepのAPI宣言はどのように行っていますか？
APIについては64ビット環境と32ビット環境で参照が分岐するようにする必要があります。
まあ、こちらはコンパイルエラーに関する類なので、関係は無さそうですけど、念のため。

で、本題は、ieCheck()をどの様に呼び出しているかです。
InternetExplorer型のパラメータとして渡せてないのではないでしょうか。

追記

動作しているものが、エラーが出るようになったというなら、こちら（MicrosoftUpdate後　vbaで「オートメーションエラー　エラーを特定できません」）が参考になるかもしれません。

Comments

[kazupop]

パラメータの調べ方ググってみます。有難うございます。