excel IE运行时中的VBA和windows安全警告弹出答案

【问题标题】：VBA in excel IE runtime and windows security warning pop upexcel IE运行时中的VBA和windows安全警告弹出
【发布时间】：2019-01-11 02:43:07
【问题描述】：

需要你的帮助。我需要从公司网站获取所有标签。但是每当我使用这个 VBA 代码Set ie = New InternetExplorer 时，我都会在下面遇到这个错误。（但与 google.com、facebook.com 连接没有问题）

“运行时错误'-2147417848 (80010108)': 自动化错误调用的对象已与其客户端断开连接"

如果我将我的 ie 代码更改为Set ie = New InternetExplorerMedium，我可以继续打开网站，但会弹出警告。

此弹出窗口导致 vba 停止，因为用户需要单击“是或否” 我创建了一个 vbscript，但如果弹出窗口不是活动窗口，它将停止该进程。

“为了让本网站为您提供个性化的信息，您是否允许它在您的计算机上放置一个小文件（称为 cookie）？”

在这里需要您的帮助。非常感谢。

【问题讨论】：

请将所有错误消息和代码作为纯文本包含在问题本身中。屏幕截图并不总是很容易阅读，它通常有助于能够复制/粘贴错误以进行研究。您可以使用问题下方的edit 链接更改内容。
如果您将网站添加到您的信任列表中会有什么不同吗？另外，你能提供有问题的网址吗？
对于运行时错误，这里是消息运行时错误'-2147417848 (80010108)'：自动化错误调用的对象已从其客户端断开第二个屏幕截图，弹出错误允许此网站为您提供个性化的信息，您会允许它在您的计算机上放置一个小文件（称为 cookie）吗？对不起，我第一次在这里发帖，只需要你的帮助来完成我的自动化任务:) 顺便说一下，所有网站都在 IE 中受信任，使用这个网站也遇到了这个错误accenture.com

标签： excel vba internet-explorer

【解决方案1】：

对于错误，“自动化错误调用的对象已与其客户端断开连接”。您可以尝试参考以下建议。

尝试编写如下代码。

Sub demo()
Set ie = CreateObject("InternetExplorer.Application")
 Do While ie.ReadyState <> READYSTATE_COMPLETE
 DoEvents
 Loop
ie.Visible = True
ie.navigate ("www.microsoft.com")
While ie.busy
 DoEvents
 Wend

Do While ie.ReadyState = 4: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop

End Sub

'--------------------------OR-----------------------------------
Sub demo()
 Set ie = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
ie.Visible = True
End Sub

您也可以尝试禁用增强保护模式进行测试，以检查它是否解决了您的问题。

调用的对象可以基于 IE 安全区域与 IE 客户端断开连接设置。
转到工具-> IE 选项-> 高级选项卡-> 安全部分-禁用“启用增强保护模式”。

参考：

VBA Error: The object invoked has disconnected from its clients

【讨论】：