VBA调用CreateObject创建InternetExplorer.Application时随机出现自动化错误

解决方法 #

1. 实现带重试逻辑的错误捕获

你之前用On Error Resume Next无效是因为没有搭配重试和错误清空逻辑，按如下写法可以实现出错自动重试：

' 头部先声明Sleep API，根据Office位数二选一
' 32位Office
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' 64位Office
Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

' 创建IE实例的逻辑
Dim ie As Object
Dim retryCount As Integer
Const MAX_RETRY As Integer = 5

retryCount = 0
On Error Resume Next
Do
    Err.Clear
    Set ie = CreateObject("InternetExplorer.Application")
    If Err.Number = 0 Then Exit Do
    retryCount = retryCount + 1
    Sleep 1000 ' 重试间隔1秒，可自行调整
Loop While retryCount < MAX_RETRY
On Error GoTo 0

' 兜底判断
If ie Is Nothing Then
    MsgBox "IE实例创建失败，已达到最大重试次数"
    Exit Sub ' 替换为你自己的异常处理逻辑
End If

2. 优化IE实例释放逻辑

你当前仅杀进程的处理没有释放COM组件缓存，增加如下逻辑：

' 头部声明COM缓存释放API
Declare Sub CoFreeUnusedLibraries Lib "ole32.dll" ()

' 循环结束销毁IE时的逻辑
ie.Quit
Set ie = Nothing
CoFreeUnusedLibraries ' 主动释放未使用的COM组件
Sleep 500 ' 等待缓存释放完成

3. 调整IE配置适配高版本Windows

Win10/Win11系统中IE已停止官方支持，COM启动会默认加权限校验：

• 打开Internet选项→安全面板，取消4个区域的「启用保护模式」勾选
• 将你需要访问的站点添加到信任站点列表
• 若使用New InternetExplorerMedium创建实例，需要同步调整信任站点的自定义安全级别，允许ActiveX控件运行

内容的提问来源于stack exchange，提问作者Mr K