Excel IE运行时中的VBA和Windows安全警告弹出

Question

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

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

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

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

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

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

Answer 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