访问Intranet站点后尝试关闭IE时出现VBA错误

Question

如果使用Google等互联网网站，则以下代码可以正常使用。但是，我需要访问工作Intranet站点。当我这样做时，我收到以下错误，运行时错误'-2147023179（800706b5）'：自动化错误界面未知。

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "INTRANET SITE"

Do While ie.Busy
    DoEvents
Loop

ie.Quit
Set ie = Nothing

请帮忙。感谢。

注意：如果以管理员身份运行excel，那么这样可以正常工作;但是，我不认为excel可以作为管理员运行这个工作簿。

Answer 1

取消选中保护模式解决了问题。

也可以使用以下代码

Set ie = New InternetExplorerMedium