vba - 自动化错误: The object invoked has disconnected from its clients

Question

我所做的就是将一段在不同子程序中运行良好的代码复制粘贴到我的新子程序中，并更改我想要导航的 URL。第一个子仍然有效，但第二个不行。我很困惑。

Dim ie As InternetExplorer              
Dim html As HTMLDocument                 
Set ie = New InternetExplorer            
ie.Visible = False                       
ie.navigate "http://cesp.hma.eu/Contacts" 
With ie                                  
    Do Until .READYSTATE = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop
End With
Set html = ie.document             
Set ie = Nothing                   
Application.StatusBar = ""  

使用F8逐步检查代码，似乎URL忽略了ie.Visible = False(当我到达With ie时它打开)，然后使错误在 Do While .Busy: DoEvents: Loop

上弹出

老实说，我不知道从哪里开始解决这个问题，因为我实际上只更改了 URL，没有更改其他内容。我最好的选择是关闭我的工作簿并重新打开它，但问题仍然存在。如果您能提出任何提示、解释或解决方案，我们将不胜感激。

Answer 1

这可能与 IE 的安全设置有关。正如@Vigneshts88 here所建议的，尝试改变

Set ie = New InternetExplorer 

至:

Set ie = New InternetExplorerMedium

正如 @Mike 在上述答案下的评论中指出的那样，InternetExplorerMedium 需要引用 Microsoft Internet Controls