当前的代码如下:VBA:试图访问的网站,但网站偶尔会无法加载
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.website.com/"
Application.StatusBar = "https://www.website.com/ is loading. Please wait..."
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.StatusBar = "Search form submission. Please wait..."
我遇到的问题是,“https://www.website.com/”无法从时间加载时间(我相信这是由于我反复访问它)。其结果是,该代码永远不会超越了这个循环:
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
一个合乎逻辑的解决方案,在我看来,是杀IE和一定的时间限制后重新启动整个过程(30秒?)已经达到。请告知如何编码此解决方案,和/或如何编写更有效的解决方案。非常感谢你!而且我使用IE10,如果这很重要的话。
而且,这里是一个链接,我发现了有些相关的相关信息: http://www.ozgrid.com/forum/showthread.php?t=161094
您在宏完成执行代码后是否将'IE'设置为空? – Jaycal
是的,先生!代码最后清理很多。 – autzen7