VBA定时执行某程序 vba excle刷新

除非注明,文章均为 战战如疯 原创,转载请保留链接: http://www.zhanzhanrufeng.com/cat4/349.html,VBA交流群273624828。

在工作中我们经常需要定时执行某程序,或者有时需要每隔特定时间执行某个程序,例如我们需要每15分钟执行一次保存的动作,这个功能在VBA中是通过Application.OnTime函数来实现的。这个函数有两个参数,一个是执行程序的时间,另一个是要执行的程序名称。下面来看一代简单代码

Sub macro1()

Dim NewTime As Date

NewTime = Now + TimeValue("00:00:05")

Application.OnTime NewTime, "Macro2"

End Sub

Sub macro2()

MsgBox "你执行了程序Macro2"

End Sub

上面Macro1代码的意思是在5秒之后执行宏Macro2,在Macro1中我们定义了一个日期变量NewTime,其值是当前时间加上5秒,注意下这里时间的写法,"hh:mm:ss"时、分、秒。之后用到application.ontime函数,两个参数上面说过了,一个代表时间,一个代表要执行的程序。要想在5秒之后执行Macro2,你首先要手动运行Macro1,这样5秒之后才会运行Macro2,这点很重要,不要以为写出了这个代码其就可以自动运行了。

上面只是在特定时间执行某程序,那现在如果我们要循环执行某程序怎么办?比如我们每隔10秒钟就要执行一次自动保存的动作。这也好办,看下面的代码

Sub 自动保存()

Dim NewTime

NewTime = Now + TimeValue("00:00:05")

ThisWorkbook.Save

Application.OnTime NewTime, "自动保存"

End Sub

在这里我们没有用两个程序,而是将要执行的代码也嵌入到了Application.OnTime程序中,Application.OnTime NewTime, "自动保存",看到了吧,我们执行的是程序自身,每5秒调用一下本程序,运行的时候又设定了5秒之后执行本程序,形成了一个循环,这就达到了我们定时循环执行某动作的目的。

上面说过要这些程序首先要手动运行一次,如果想要打开工作簿就自动执行,那在Open事件中调用一下就可以了

Private Sub Workbook_Open()

Call 自动保存

End Sub

本节示例文件下载:http://pan.baidu.com/s/1dDGionf。

1

您可能也喜欢:
VBA定时执行某程序 vba excle刷新

VBA中的Resize函数

批量打印word文档小程序

VBA中的Ubound函数

VBA批量生成Word报告

VBA窗体事件

VBA Word排版

VBA窗体之进度条

Excel VBA中Find函数的应用

无觅关联推荐[?]

  

爱华网本文地址 » http://www.413yy.cn/a/25101012/104905.html

更多阅读

oracle如何创建数据库 oracle数据库创建实例

oracle如何创建数据库——简介我们这里所说的创建是用图形化的界面来创建数据库的。oracle如何创建数据库——工具/原料oracle软件电脑oracle如何创建数据库——方法/步骤oracle如何创建数据库 1、从Windows桌面执行“开始”→“

linux怎样查看当前使用的是哪个终端机 linux 查看当前用户

1、只查看当前终端的可以使用如下两个命令:tty 和 who am i其中who am i仅显示当前用户正使用的终端和登录时间如下图所示:2、查看所有终端1.命令w的功能最全面,能显示用户登录名、终端标志、星期几登录和具体登录时间、闲置时间、用户

LoadRunner性能测试指标分析 loadrunner11性能测试

Memory:·AvailableMbytes简述:可用物理内存数.如果Available Mbytes的值很小(4MB或更小),则说明计算机上总的内存可能不足,或某程序没有释放内存。参考值:4MB或更小,至少要有10%的物理内存值·Page/sec(Input/Out)简述:为了解析硬页错

父母在婚礼如何给红包 婚礼红包

在婚礼仪式中,大部分公公、婆婆、岳父、岳母在听到新娘,新郎叫自己爸爸、妈妈的时候,都要给新娘和新郎红包,表示自己的一点心意。有的人把它叫做改口,有的把它叫做认亲,总之,这也是新人成家仪式的一部分。那么在设定这个程序和执行这个程序

增加虚拟内存的措施 增加虚拟内存

1》、让Windows管理虚拟内存设置如果没有设置让Windows管理虚拟内存或者禁用虚拟内存,那么计算机可能无法正常工作,也可能收到“内存不足”的消息,或在运行某程序时出现相同的错误消息。1.单击“开始”,单击“设置”,单击“控制面板”,然

声明:《VBA定时执行某程序 vba excle刷新》为网友绝版无敌男分享!如侵犯到您的合法权益请联系我们删除