小编aut*_*en7的帖子

目前的代码如下:

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

在我看来,一个逻辑解决方案是在达到一定的时间限制(30秒？)后杀死IE并重启整个过程.请告知如何编写此解决方案,和/或如何编写更有效的解决方案.非常感谢你!我正在使用IE10,如果这很重要的话.

此外,这里有一个链接我发现有一些相关和相关的信息:http: //www.ozgrid.com/forum/showthread.php？t = 161094