运行时错误'-2147417848（80010108）'

Question

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

当我尝试在一台电脑上运行时，我已经制作了它的图像并且它不起作用。 问题是他正在打开ie然后代码将不再起作用。 在工作的电脑上，他没有打开ie，我们可以继续工作过程。

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

我试图设置安全性的Internet Explorer选项。 已经尝试了另一个浏览器。 通过图像尝试了一个新的干净的图像和一个完整的电脑副本。

有什么想法吗？ 提前致谢

Answer 1

我几天前刚遇到同样的问题。我的建议是在参考库中启用Microsoft Internet Controls，然后将Set IE =行中的任何内容更改为Set IE = New InternetExplorerMedium。解决了我的问题。

https://gist.github.com/NikkiChristofi/bf79ca37028b29b50cffb215360db999

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

全线：

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

IE.navigate url