excel - VBA InternetExplorer.Application 对象挂起

Question

我正在使用带有 VBA 的旧 Excel 文档，该文档在 Windows 7 上的 IE 11 上运行良好，但是在 Windows 10 上的 IE 11 上它不起作用。 IE 11 会启动到请求的 URL，仅此而已。每当我尝试访问事件、方法或属性时，它都会停止。没有错误代码，没有崩溃，只是停止。

我已经确认包含了我对 Microsoft Internet 控件和 Microsoft HTML 对象库的引用(以前没有，但现在有)。

Dim ie As Object

If ie Is Nothing Then
   Set ie = CreateObject("InternetExplorer.Application")
   ie.Visible = True
End If

url = "www.myurl.com"

ie.Navigate url

While ie.ReadyState <> 4 Or ie.Busy: DoEvents: Wend

检查下面的代码永远不会执行，我在测试前后放置了 MsgBox 代码。只有循环之前的 MsgBox 才有效，除非我尝试使用 MsgBox ie.Document.Title , 但我可以 MsgBox ie.ReadyState或 MsgBox "Loading webpage"正好。

再次，该代码在带有 IE 11 的 Windows 7 上运行良好，没有问题，但在带有 IE 11 的 Windows 10 上不起作用。在多台 W7 和 W10 机器上测试，结果相同。

Answer 1

在尝试了许多不同的选项后，我终于能够让它工作了。根据 OmegaStripes 的建议，我开始搞乱兼容模式。像许多事情一样，最简单的解决方案最终成为正确的解决方案。将我的 Intranet 站点添加到兼容性 View 设置后，它可以完美地对 VBA 进行零代码更改。

发射 IE 11

点击工具

点击兼容性 View 设置

在文本区域中输入您的 URL，然后单击 添加

查看以兼容模式显示 Intranet 站点

点击关闭

完成此操作后，我退出了 IE 11，使用以前无法运行的 VBA 重新启动了我的 Excel 电子表格。执行 VBA 代码，它的工作方式与在 IE 11 的 Windows 7 上一样。

希望这对其他人有所帮助，并为他们省去很多麻烦。

特别感谢 OmegaStripes 与我一起坚持并帮助我看到实际问题而不是过度思考。