オブジェクトiwebbrowser2のメソッド・ドキュメントが失敗しました

Question

このエラーは、「オブジェクトiwebbrowser2のメソッド・ドキュメントが失敗しました」です。以下のコードを見てください。

Sub getIE() 
Dim sh As Object, oWin As Object, IE As Object 

Set sh = CreateObject("Shell.Application") 

For Each oWin In sh.Windows 
    If TypeName(oWin.document) = "HTMLDocument" Then 
     Set IE = oWin 
     Exit For 
    End If 
Next 

MsgBox IE.document.URL 

End Sub 

Answer 1

まず、Internet Explorerでサイトを開いてください。次に、コードを実行します。私はあなたのエラーを取得しませんでしたが、オブジェクト参照エラーが発生しました。したがって、オブジェクトが何もないときにチェックを追加しました。

Sub getIE() 
    Dim sh As Object, oWin As Object, IE As Object 

    Set sh = CreateObject("Shell.Application") 

    For Each oWin In sh.Windows 
    If TypeName(oWin.document) = "HTMLDocument" Then 
     Set IE = oWin 
     Exit For 
    End If 
    Next 

    If Not IE Is Nothing Then 
    MsgBox IE.document.URL 
    End If 

End Sub