Excel VBA创建IE对象时出现运行时错误，二次点击同步按钮失败

问题本质 #

点击同步按钮第一次运行正常，第二次在CreateObject/New InternetExplorer语句处报错，核心原因是第一次运行后IE进程未彻底终止，残留进程占用系统资源，导致无法重新实例化IE对象。

解决方案 #

1. 强制清理残留IE进程（最有效） #

在创建IE对象前，先杀死所有iexplore.exe进程，确保资源完全释放：

' 清理残留IE进程
Dim objWMIService As Object, colProcesses As Object, objProcess As Object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'iexplore.exe'")

For Each objProcess In colProcesses
    objProcess.Terminate()
Next

' 释放进程相关对象
Set objProcess = Nothing
Set colProcesses = Nothing
Set objWMIService = Nothing

' 创建IE对象并执行后续逻辑
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Silent = True
IE.Navigate2 URL

' 等待页面加载完成（直接用数值4替代READYSTATE_COMPLETE，避免常量未定义问题）
Do While IE.Busy Or IE.ReadyState <> 4
    Application.Wait Now + TimeValue("00:00:02")
Loop

' --- 你的业务逻辑写在这里 ---

' 退出并释放IE对象
IE.Quit
Application.Wait Now + TimeValue("00:00:01") ' 给IE足够时间关闭进程
Set IE = Nothing

2. 优化IE退出逻辑 #

如果不想杀死所有IE进程，可在退出时增加延迟，确保进程正常终止：

' 业务逻辑完成后
IE.Quit
Application.Wait Now + TimeValue("00:00:01") ' 等待进程彻底关闭
Set IE = Nothing

3. 改用ShellExecute启动IE（备选） #

若上述方法无效，可通过ShellExecute打开IE，再通过窗口句柄获取对象（需API支持，代码稍复杂）：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim hwnd As Long
' 打开指定URL
ShellExecute 0, "open", URL, vbNullString, vbNullString, vbNormalFocus
Application.Wait Now + TimeValue("00:00:03") ' 等待窗口加载

' 后续需通过API（如FindWindow、AccessibleObjectFromWindow）获取IE对象，此处省略具体实现

注意事项 #

• 避免使用未定义的READYSTATE_COMPLETE常量，直接用数值4更可靠
• 运行代码前关闭手动打开的IE窗口，防止进程清理时误关其他窗口
• 64位Office环境下，优先使用CreateObject而非New关键字实例化IE对象

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