VBA网页抓取时Debug.Print LocationURL返回非预期值如何解决

问题原因 #

你得到res://ieframe.dll/navcancl.htm返回值本质是IE浏览器导航请求被取消，触发的内置错误页面，常见原因有3个：

• 微软已在2022年全面停止IE浏览器的官方支持，YouTube等绝大多数主流网站早已停止适配IE，收到IE的访问请求后会直接拒绝连接，导致导航失败
• 目标站点网络连通性问题：YouTube本身在国内无法正常访问，网络连接超时也会触发导航取消
• IE浏览器安全配置冲突：保护模式开启、站点未加入可信列表、安全级别过高都会拦截VBA发起的导航请求

解决办法 #

方案1：替换淘汰的IE自动化方案（优先推荐） #

IE已经完全退出市场，建议改用Selenium Basic实现VBA网页自动化，可兼容Chrome、Edge等现代浏览器，适配所有主流站点。

方案2：仍要使用IE自动化的调整步骤 #

• 先做基础验证：手动打开IE浏览器，输入目标站点地址，确认可以正常加载页面，排除网络连通性、站点不兼容IE的问题，也可先把测试地址替换为国内可正常访问的站点（比如百度）验证代码本身逻辑是否正常
• 调整IE安全配置：打开IE的「Internet选项」-「安全」页，取消所有区域的「启用保护模式」勾选，将目标站点加入可信站点列表，调低对应区域的安全级别后重启IE
• 优化代码容错：可在等待加载的逻辑中增加最长等待超时判断，避免页面加载异常进入死循环，示例调整后的代码如下：

Sub BrowseToSite()
    Dim IEObject As InternetExplorer
    Dim waitTime As Integer
        
    Set IEObject = New InternetExplorer
    IEObject.Visible = True
    IEObject.Navigate URL:="https://www.baidu.com" ' 先用可访问站点测试
    
    waitTime = 0
    Do While (IEObject.Busy = True Or IEObject.ReadyState <> READYSTATE_COMPLETE) And waitTime < 10 ' 最多等待10秒避免死循环
        Application.Wait Now + TimeValue("00:00:01")
        waitTime = waitTime + 1
    Loop
        
    Debug.Print IEObject.LocationURL
    IEObject.Quit ' 用完记得退出IE进程避免残留
    Set IEObject = Nothing
End Sub

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