网页抓取宏创建第二个IE实例报错：无需新开窗口求解决方案

这个错误我之前帮不少人排查过，本质是要么你在复用同一个IE实例时，它还在处理前一次的导航请求，资源被占用导致冲突；要么你想创建新实例的方式不对，其实还是在复用旧的进程。结合你“不想打开新窗口”的需求，给你两个可行的解决方案：

方案一：复用单个IE实例，等待导航完成后再操作 #

如果不需要同时处理两个页面，只是先后导航不同URL，核心是确保前一次导航完全完成后再调用下一次navigate。可以通过检查IE的Busy属性和ReadyState状态来实现等待：

Sub ReuseIEWithWait()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False ' 设为False就不会显示窗口，满足你的需求
    
    ' 第一次导航
    ie.Navigate "https://your-first-url.com"
    ' 循环等待，直到IE不再忙碌且加载完成（ReadyState=4表示已加载）
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents ' 让系统处理其他消息，避免宏假死
    Loop
    
    ' 这里可以处理第一个页面的内容，比如提取数据
    Debug.Print "第一个页面标题：" & ie.Document.Title
    
    ' 第二次导航，此时资源已释放
    ie.Navigate "https://your-second-url.com"
    ' 再次等待加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 处理第二个页面内容
    Debug.Print "第二个页面标题：" & ie.Document.Title
    
    ' 用完记得关闭实例，释放资源
    ie.Quit
    Set ie = Nothing
End Sub

方案二：创建多个隐藏的IE实例（同时处理多个页面） #

如果需要同时运行两个独立的IE进程（比如并行抓取不同页面），可以创建多个IE对象，并且都设置为隐藏状态，这样就不会弹出新窗口：

Sub CreateHiddenMultipleIEs()
    Dim ie1 As Object, ie2 As Object
    
    ' 创建第一个隐藏实例
    Set ie1 = CreateObject("InternetExplorer.Application")
    ie1.Visible = False
    ie1.Navigate "https://first-target-url.com"
    Do While ie1.Busy Or ie1.ReadyState <> 4
        DoEvents
    Loop
    
    ' 创建第二个隐藏实例（注意是重新CreateObject，不是复制引用）
    Set ie2 = CreateObject("InternetExplorer.Application")
    ie2.Visible = False
    ie2.Navigate "https://second-target-url.com"
    Do While ie2.Busy Or ie2.ReadyState <> 4
        DoEvents
    Loop
    
    ' 分别处理两个实例的内容
    Debug.Print "实例1页面标题：" & ie1.Document.Title
    Debug.Print "实例2页面标题：" & ie2.Document.Title
    
    ' 关闭所有实例，清理资源
    ie1.Quit
    ie2.Quit
    Set ie1 = Nothing
    Set ie2 = Nothing
End Sub

关键注意点 #

• 不要直接复用同一个IE实例的引用（比如Set ie2 = ie1），这只是指向同一个进程，不是创建新实例，依然会触发资源占用错误。
• 无论哪种方案，都要加上等待循环，否则IE还在加载时调用navigate必然会报错。
• 用完实例后一定要调用Quit并设置对象为Nothing，避免后台残留IE进程，导致资源浪费。

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