https:/○○login.php エラーになる
win7 32ビット オフィス2010です。
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
これじゃないですかね。
http://stackoverflow.com/questions/12965032/excel-vba-controlling-ie-local-intranet
投稿日時 - 2015-11-07 13:46:08
ありがとうございます。
投稿日時 - 2015-11-10 22:40:45
このQ&Aは役に立ちましたか?
1人が「このQ&Aが役に立った」と投票しています