VBA ＩＥ読み込み出来ないときの処理

質問

エクセルＶＢＡで　ＩＥ読み込み完了まで、というサンプルは有るのですが
時間来ても、読み込め無い時　中止の処理ですが、

下記で如何でしょうか（実験が出来ないので、お知恵拝借）
さらに、もっと、スマートな方法が有ればご教示ください。

Set IE = CreateObject("internetExplorer.application")
url = yobiurl ' "http://admin.blog.fc2.com/control.php?mode=editor&process=new"

With IE
.Navigate url
.Visible = True
i = 1
Do While .Busy = True
Call Sleep(50) '0.05sec　*　400　=20秒
DoEvents
i = i + 1
If i > 399 Then
.Quit
' End With
Set IE = Nothing
Exit Sub
End If

Loop

i = 1
Do While .document.ReadyState <> "complete"
Call Sleep(50)
DoEvents
i = i + 1
If i > 399 Then
.Quit
' End With
Set IE = Nothing
Exit Sub
End If
Loop

回答No.1

mitarashi · ベストアンサー

イベントドリブンでやるのはいかがでしょうか。
イベントを捕捉するためにクラスモジュールに記述する必要があります。
簡便にクラスモジュールである、シートモジュールに記述して試してみました。

'Microsoft Internet Control
'Microsoft HTML Object Library
'に参照設定

Public WithEvents ie As WebBrowser

Sub test()
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://www.hoge^3.jp/" 'ありそうもないURL
End Sub

'下記でエラーがトラップできます
'但しGoogle Tool Bar アドインが有効だと、検索画面に移ってしまってNavigateErrorになりませんでした。
Private Sub ie_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
Debug.Print pDisp.Name
Debug.Print URL
Debug.Print Frame
Debug.Print StatusCode
Cancel = True
End Sub

'NavigateErrorと、エラーコードについてはこちら
'http://msdn.microsoft.com/en-us/library/bb268221(v=vs.85).aspx
'http://msdn.microsoft.com/en-us/library/bb268233(v=vs.85).aspx

首尾良く読込完了のイベントDocumentComplete、NavigateComplete2等は下記をご参照下さい。
http://d.hatena.ne.jp/dayflower/20070926/1190787926
こちらもご参考まで。
http://okwave.jp/qa/q8434979.html

お礼

なるほど。

サンクス