https:/○○login.php　エラーになる

win7　32ビット　オフィス２０１０です。

https:/○○login.php
のようなサイトを開こうとすると

------------------------------------------------------

Dim objIE As InternetExplorer

Sub test()

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https:/○○login.php"

Call WaitIE1(objIE)

End Sub

------------------------------------------------------

Function WaitIE1(objIE As InternetExplorer)

Do While objIE.Busy = True
DoEvents
Loop

Do While objIE.Document.ReadyState <> "complete"
DoEvents
Loop

End Function

------------------------------------------------------

このコードがエラーになります。

Do While objIE.Document.ReadyState <> "complete"
の部分で

実行時エラ―　-2147417848
オートメーションエラーです。
起動されたオブジェクトはクライアントから切断されました。

となります。

objIEをウォッチ式に登録してみてみると
Function WaitIE1(objIE As InternetExplorer)
の時に、「変数なし」となっています。

objIE.Navigate http://www.goo.ne.jp/
にすれば、
エラーにならずに、コードが最後まで行きます。

ウォッチ式を見ても
「変数なし」にはなりません。

この違いは何でしょうか？

投稿日時 - 2015-11-06 23:08:05