Excel VBA 强制关闭 IE

Question

我目前正在使用以下子程序在自动化后关闭我的 IE：

Public Sub CloseIE()
    Dim Shell As Object
    Dim IE As Object

    Set Shell = CreateObject("Shell.Application")

    For Each IE In Shell.Windows
        If TypeName(IE.Document) = "HTMLDocument" Then
            IE.Quit
        End If
    Next
End Sub

这很好用，但是当我再次尝试运行 IE 代码时出现问题，我得到以下信息：

运行时错误'-2147023706 (800704a6)'：

自动化错误

已安排系统关闭。

20 秒后，我可以重新运行代码。有什么方法可以“强制关闭”IE，这样我就可以在没有错误的情况下直接再次运行代码？

编辑：

这是启动 IE 的代码：

Sub testSub()

    Dim IE As Object, Doc As Object, strCode As String

    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

      IE.Navigate "website name"

        Do While IE.ReadyState <> 4: DoEvents: Loop

        Set Doc = CreateObject("htmlfile")
        Set Doc = IE.Document 

       CODE HERE

       CloseIE

End Sub

Answer 1

我使用了一个简单的过程来创建一个InternetExplorer 对象，导航，然后使用IE.Quit 和Set IE = Nothing 关闭它。

显然关闭后，互联网仍在后台运行了大约一分钟（我注意到它使用任务管理器，后台进程）。我进入 Internet Explorer 选项并取消单击“退出时删除浏览历史记录”。

这解决了我的问题。我不确定为什么 IE 需要这么长时间来清除历史记录，我不确定是否有解决方法，但它是迄今为止我唯一可行的选择。

Answer 2

修改你的main sub为QuitIE应用，然后设置object变量为Nothing：

Sub testSub()

    Dim IE As Object, Doc As Object, strCode As String

    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

      IE.Navigate "website name"

        Do While IE.ReadyState <> 4: DoEvents: Loop

        Set Doc = CreateObject("htmlfile")
        Set Doc = IE.Document 

       '### CODE HERE

       IE.Quit
       Set IE = Nothing

End Sub

您将不再需要CloseIE 过程。