CreateObject ("InternetExplorer.Application"中的 VBA 自动化错误)

Question

我在调用以下对象时遇到自动化错误

Set IE = CreateObject("InternetExplorer.Application")

显示错误

运行时错误“-2147467259 (80004005)”自动化错误未指定错误

任何人都可以知道为什么会发生这种情况

'从评论中移动了代码

Sub TableExample()

    Dim IE As Object
    Dim doc As Object
    Dim strURL As String
    strURL = Range("B2").Value

    Set IE = CreateObject("InternetExplorer.Application")
    With IE '
        .Visible = True
        .navigate Range("B2").Value
        Do Until .readyState = 4
            DoEvents
        Loop
        Do While .Busy
            DoEvents
        Loop
        Set doc = IE.document
        GetAllTables doc
        .Quit
    End With
End Sub

Answer 1

我只是在这个问题上浪费了 4 个小时，我对这个解决方案是如此简单而感到惊讶。每次运行该行时，Excel 都会创建一个新的 activeX 实例:

Set IE = CreateObject("InternetExplorer.Application")

它到底是如何工作的我无法理解，但即使在您重新启动 Excel 后，这些引用仍然存在。几十个堆积起来后，Excel 内存不足，无法生成更多

重新启动计算机(可能是一种更简单的方法，但这对我有用)然后粘上线

IE.Quit 

在代码末尾