运行时错误“-2147417848（80010108）”

我得到错误运行时错误'-2147417848（80010108）'

当我在一台电脑上尝试这个工作，我已经做了一个形象，它不工作。 问题是他正在打开，然后代码将不再工作。 在工作的个人电脑，他不打开即我们可以继续工作过程。

IE.Visible = False IE.Navigate url Do: DoEvents: Loop Until IE.ReadyState = READYSTATE_COMPLETE 

我试图设置安全的Internet Explorer选项都一样。 已经尝试过另一个浏览器。 尝试一个新的干净的形象，并通过一个图像的完整副本的电脑。

任何想法？ 提前致谢

Answer 1

我几天前刚刚有同样的问题。 我的build议是在您的引用库中启用Microsoft Internet Controls ，然后将您的Set IE =行更改为Set IE = New InternetExplorerMedium 。 解决了我的问题。

通过这样做，您可以避免惹恼您的互联网安全选项。

全行：

 Dim IE As InternetExplorer Set IE = New InternetExplorerMedium IE.Visible = True IE.navigate url