對象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