VBAのIE操作について質問があります。

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年9月10日(木)16時58分
From: VBAマスター

返事削除変更

ie.hWndでエラーが起こるということは、オブジェクトを取得していないのではないですか？

一応IE待機処理は入っていますが、読み込みが完全でない状態で次の処理に移っている可能性もあります。

application.waitなどを利用して処理停止を入れてみてためされてはいかがですか？

Message#1 2015年9月9日(水)08時31分
From: cocolo

返事削除変更

VBAのIE操作について質問があります。

VBAでIEを操作する際にうまくいかない時が時々あります。
たとえば、自分のパソコン上で作成したマクロを作動させるとふつうはうまくいくのですが、たまにIEがVBAの、たとえばクリックメソッドに反応しなかったりします。
その際パソコンを再起動して再び実行するとうまくいきます。

また、共有フォルダにアップし、それを自分のパソコン上で開き作動させるとうまくいかない時があります。

たとえば
dim ie as internet explorer
Set sh = CreateObject("Shell.Application")
For k = 0 To sh.Windows.Count - 1
If (TypeName(sh.Windows.Item(k).document) = "HTMLDocument") Then
Set ie = sh.Windows.Item(k)

Exit For
End If
Next

Do While ie.Busy = True Or ie.readyState <> 4
DoEvents
Loop
If IsIconic(ie.hWnd) Then
ShowWindowAsync ie.hWnd, &H9
End If

SetForegroundWindow (ie.hWnd)

の部分で.hWnd部分で型が一致しません、というエラーコードが表示され、マクロが実行できない、ということが時々あります。

何が原因だと考えられますでしょうか？
非常に困っております。
時々起きることが非常に疑問です。