Methode Dokument des Objekts iwebbrowser2 fehlgeschlagen

Question

Ich bekomme diesen Fehler "Methode Dokument des Objekts iwebbrowser2 fehlgeschlagen" .. Bitte schauen Sie den Code unten.

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

Stellen Sie zunächst sicher, dass Sie eine Website im Internet Explorer geöffnet haben. Dann führe den Code aus. Ich habe den Fehler nicht als Ihren Fehler erhalten, aber den Objektverweisfehler erhalten. Also, fügte hinzu, wenn das Objekt nichts ist.

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