Windows11下Excel VBA调用IWebBrowser2的Busy方法失败求助

Windows 11已完全移除内置IE浏览器，系统默认会将InternetExplorer.Application COM对象的调用重定向到Edge的IE兼容模式，若兼容模式相关配置未正确设置，就会出现启动后可见、Busy/ReadyState属性调用失败的问题。

方案1：适配Edge IE兼容模式，修复原有代码 #

• 首先完成Edge浏览器基础配置：打开Edge设置→默认浏览器，将「允许在 Internet Explorer 模式下重新加载网站」设为允许，也可在「Internet Explorer 模式页面」列表中添加你需要访问的站点域名
• 修改原有VBA代码，调整等待逻辑增加错误捕获和超时机制，修改后代码如下：

Dim HTMLDoc As Object
Dim oBrowser As Object

Sub Website_()
    Dim oHTML_Element As Object
    Dim sUrl As String
    Dim timeout As Date
    sUrl = "https://www.example.com/"
    
    Set oBrowser = CreateObject("InternetExplorer.Application")
    oBrowser.silent = True
    oBrowser.Visible = False
    oBrowser.Navigate sUrl
    
    ' 替换原有等待逻辑，设置10秒超时
    timeout = DateAdd("s", 10, Now)
    On Error Resume Next
    Do While (oBrowser.Busy Or oBrowser.ReadyState <> 4) And Now < timeout
        DoEvents
    Loop
    On Error GoTo 0
    
    If oBrowser.ReadyState = 4 Then
        Set HTMLDoc = oBrowser.Document.getElementsByClassName("val")
        ' 此处添加你的数据提取逻辑
    Else
        MsgBox "页面加载超时"
    End If
    
    ' 释放资源
    oBrowser.Quit
    Set oBrowser = Nothing
End Sub

• 若修改后Edge仍强制可见，可通过注册表修改配置：打开注册表编辑器，定位到HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Edge，新建DWORD值InternetExplorerIntegrationForceNoVisibility，值设为1即可。

方案2：替换为无浏览器请求方案（更稳定，推荐） #

如果目标站点为静态页面，无需JS动态渲染内容，可直接用XMLHTTP请求获取页面源码解析，完全规避浏览器兼容问题，执行速度更快：

Sub GetDataByXMLHTTP()
    Dim xhr As Object
    Dim HTMLDoc As Object
    Dim sUrl As String
    sUrl = "https://www.example.com/"
    
    Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")
    With xhr
        .Open "GET", sUrl, False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36"
        .send
        If .Status = 200 Then
            Set HTMLDoc = CreateObject("htmlfile")
            HTMLDoc.body.innerHTML = .responseText
            ' 直接调用DOM方法提取数据
            Dim targetElements As Object
            Set targetElements = HTMLDoc.getElementsByClassName("val")
            ' 此处添加你的数据处理逻辑
        Else
            MsgBox "请求失败，错误码：" & .Status
        End If
    End With
    
    ' 释放资源
    Set xhr = Nothing
    Set HTMLDoc = Nothing
End Sub

如果目标页面需要JS动态加载数据，可改用Selenium Basic for VBA驱动Edge/Chrome浏览器，稳定性远高于Edge IE兼容模式。

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