循环时插入空闲时间

Question

我编写了一个VBA代码，用于根据excel列表生成一些数据库条目：由于数据库的设置方式，我需要先生成一个URL，然后打开URL以生成在线数据库条目。 / p>

我可以循环遍历整个列表，但我担心使用此循环启动50个甚至更多连续的IE实例会挂起计算机。值得一提的是，在手动打开单个URL时，DB需要几秒钟才能显示正确的页面。

有没有办法在每次迭代结束时定义空闲时间？

Answer 1

Application.Wait()怎么样？例如，每5秒从0到10计数：

Sub main()

For i = 0 To 10
    MsgBox i
    Application.Wait (Now() + TimeValue("0:00:05"))
Next i

End Sub