Excel VBA网页抓取出现The called object is disconnected from its clients错误怎么办

可能的原因 #

• 内部站点身份验证限制：绝大多数企业内部站点会要求域身份验证、SSO单点登录，你当前的代码没有处理验证逻辑，IE对象启动后可能停在登录校验环节没有跳转到目标页面，而公开外部站点不需要验证所以可以正常运行。
• IE兼容模式适配问题：很多内部老旧站点仅兼容特定IE版本，或者开启了企业模式配置，IE对象的默认渲染模式和站点要求不匹配，导致页面加载中断。
• 服务器侧请求拦截：部分内部站点会拦截异常客户端的请求，带有CSRF、会话校验逻辑，直接用IE对象跳转没有携带必要的会话参数会被服务器拒绝访问。

VBA侧可尝试的修复方案 #

增加登录等待与身份验证逻辑 #

如果手动打开IE访问内部链接需要先登录，可以在跳转后增加登录逻辑，自动填充账号密码提交，修改后代码示例如下：

Sub WebScr()
Dim Internet As InternetExplorer
Set Internet = New InternetExplorer
Internet.Visible = True
Internet.navigate "intern company link"
' 优化等待逻辑，同时监听加载状态和忙状态
Do While Internet.readyState <> READYSTATE_COMPLETE Or Internet.Busy: DoEvents: Loop
' 检查是否跳转到登录页，可根据实际登录页特征调整判断条件
If InStr(Internet.LocationName, "统一登录") > 0 Then
    ' 替换为实际登录表单的元素ID
    Internet.Document.getElementById("username").Value = "你的域账号"
    Internet.Document.getElementById("password").Value = "你的密码"
    Internet.Document.getElementById("submitBtn").Click
    ' 等待登录完成跳转
    Do While Internet.readyState <> READYSTATE_COMPLETE Or Internet.Busy: DoEvents: Loop
End If
MsgBox Internet.LocationName
End Sub

调整IE安全配置 #

手动把内部站点加入IE的受信任站点列表，降低受信任站点的安全级别，允许ActiveX控件运行，避免IE主动拦截页面加载。

替换为WinHttpRequest请求 #

如果不需要渲染页面仅需要获取数据，可以直接用HTTP请求方式，无需启动IE，还能自定义请求头携带验证信息，示例代码如下：

Sub HttpReq()
Dim req As Object
Set req = CreateObject("WinHttp.WinHttpRequest.5.1")
' 开启自动携带域身份验证信息
req.SetAutoLogonPolicy 0
req.Open "GET", "intern company link", False
' 模拟浏览器请求头避免被拦截
req.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)"
req.Send
MsgBox req.ResponseText
' 后续可解析返回的HTML/JSON写入Excel
End Sub

备选实现方案 #

如果上述VBA方案调试后仍无法正常运行，可以更换实现方式：

• 用Python搭配requests、pandas库实现，处理身份验证、数据解析的能力更强，代码灵活度更高，爬取完成后可直接写入Excel文件。
• 确认内部站点是否开放官方API接口，直接调用接口拿数据是最稳定的方案，不需要解析网页结构。

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