可以使用定时器来代替Application.Wait方法来实现需要的等待时间。下面是一个使用定时器来等待5秒钟的示例代码:
Sub WaitForFiveSeconds() Dim TimerStartTime As Double TimerStartTime = Timer '记录定时器的开始时间 Do While Timer < TimerStartTime + 5 '循环,直到定时器的时间到达5秒 DoEvents '允许其他程序运行并更新界面 Loop End Sub
使用这个方法时,确保在等待期间不会让用户进行任何操作。