VBA代码大全022:如何让vba程序暂停运行几秒再继续?

您所在的位置:网站首页 vba写完函数如何运行 VBA代码大全022:如何让vba程序暂停运行几秒再继续?

VBA代码大全022:如何让vba程序暂停运行几秒再继续?

2024-06-23 21:42| 来源: 网络整理| 查看: 265

VBA代码大全022:如何让vba程序暂停运行几秒再继续? 2016年10月29日 作者:水星Excel 25,065 次浏览 暂无评论

在一些场景,特别是涉及到复制、粘贴的操作或者是跨软件操作时,由于一些操作需要一定的时间,如果程序直接运行有可能上一步的操作还没完成就运行到下一步了,这样就会导致程序出错。

再比如,对于网站的爬取,如果爬取的频率过快,有可能被服务器发现从而禁止爬取或弹出验证码,这些都需要让代码暂停运行几秒后再继续运行。

这里介绍两种让vba代码暂停运行的方法。

方法一 用Application对象的Wait方法让程序暂停运行,代码如下:

Sub 让vba暂停几秒() Dim i For i = 1 To 10000 '主程序 '******************** '每次暂停程序5秒再继续执行下一个for 循环 Application.Wait Now + TimeValue("0:00:05") Next i End Sub

方法二 用api函数Sleep暂停程序的运行,代码如下:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub 让vba暂停几秒() Dim i For i = 1 To 10000 '主程序 ' ******************** '每次暂停程序500毫秒再继续执行下一个for 循环 Sleep 500 Next i End Sub

两者的区别在于Application对象的Wait方法可以让程序暂停到具体的时间,而Sleep只是规定暂停多少毫秒。

其它相关文章推荐:如何在vba中用GDI函数LineTo在屏幕上画线?在vba中用lineto函数画线时如何修改线型、大小、颜色?如何用vba设置word文档段落的各种缩进?如何在vba中用SetCursorPos移动光标?如何用vba读取pdf文件的总页数?如何在vba中用GetTickCount获取计算机的已开机时间? 分类 :  VBA , VBA代码大全 标签 :  Application.Wait , sleep , sleep 暂停运行 , vba暂停运行 , wait , 暂停        

声明: 本站文章均属原创,未经作者同意必须保留此段声明,且在文章页面明显位置给出原文链接,否则视为侵权。如果想要每天都收到本站的技术文章推送,可以微信搜索公众号:水星Excel或者Excel_Office关注。其它事宜请加QQ:1722187970 或微信号:xycgenius 联系。 



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3