当我们在使用VBA操作OFFICE文档时,如何让循环代码或者是普通代码甚至是选择语句,在执行的过程中,中途暂停几秒之后,再继续往下执行语句?
如果您需要这方面的知识,请使用如下两种办法来解决。
一、自动式的VBA暂停语句
'用户代码行1
'用户代码行2
'用户代码行3……
waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
Application.Wait waitTime
'用户代码行4
'用户代码行5
'用户代码行N……
以上代码中,绿色的那两行代码就是暂停代码,后面的+10代表暂停10秒。
实现代码暂停几秒的依据是:
Application.Wait waitTime 意思是从现在开始暂停至waitTime这个时间,然后才开始往下执行。
方法是:waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 秒数),先使用Hour(Now()), Minute(Now()), Second(Now()) 获取现在时间,再加上秒数,就可以让Application.Wait暂停到N秒后才执行后面语句。
二、手工暂停VBA语句的办法
当VBA在运行的时候,我们可以通过按下键盘的 Ctrl+PauseBreak 键来暂停,想暂停多久就多久,完全由人控制。
如果想让代码继续运行,当我们看到对话框时,点击“继续”按钮即可。