获取运行时错误'-2147417848（80010108）：自动化错误。调用的对象已与其客户端断开连接

Question

以下代码出错：

Sub test()
    Set ie = CreateObject("InternetExplorer.application")
    ie.Visible = True
    ie.navigate ("http://www.siteminder.com" & ActiveCell)
    Do
            If ie.readyState = 4 Then
                ie.Visible = True
                Exit Do
        Else
            DoEvents
        End If
    Loop

    ie.document.forms(0).all("User").Value = "me"
    ie.document.forms(0).all("Password").Value = "mypasssword"
    ie.document.forms(0).submit
End Sub

出现线路错误：If ie.readyState = 4 Then

Answer 1

对于 Internet Explorer，我更喜欢使用 InternetExplorerMedium 对象（过去我发现它更可靠）：

Dim ie as InternetExplorer

Set ie = New InternetExplorerMedium

无论如何，等待浏览器的可以是以下几种：

Do While ie.readystate <> 4 Or ie.Busy
    Application.Wait Now + TimeValue("00:00:01")
Loop