excel VBA 2013中的运行时自动化未指定错误

Question

我正在尝试在excel 2013中运行一段VBA代码来访问我们的Intranet站点中的一些数据，并且我得到运行时错误2147467259（80004005） - 自动化错误未指定错误。

Sub AccessWar()

    Dim oIE As InternetExplorer
    Dim oHTML As HTMLDocument
    Set oIE = New InternetExplorer
    oIE.Navigate ("http://iscls3apps/WAR40/aspx/WAR40AllReports.aspx")
    oHTML = oIE.document

End Sub

我是excel VBA的新手并且没有太多想法。任何指针都会有所帮助

Answer 1

我也尝试将IE与VBA一起使用，但似乎运行并不关心IE中页面的加载是否完成！

所以我做了一个小例程导航和等待，只需添加

Application.Wait(Now + TimeValue("0:00:05"))

每次导航之后...没有超级高效但VBA不会在网上解析信息，如果你愿意，你可以使用更多适当的语言！ ;）