vba 每天定时运行

zgjxncytl 2014-06-03 08:54:48

一个vba程序每天定时运行一个宏怎么实现
用任务计划做过：运行这个宏但是设置为每天运行实际情况是运行一段时候不运行然后再运行
不知道vba怎么写这个程序

...全文

1340 9 打赏收藏转发到动态举报

写回复

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

是EXCEL的定时执行 Sub OntimeRun() '运行前用k先判断是否运行 If k = False Then Exit Sub Else '执行程序aa Call aa '如果k=true，那么每隔3秒执行程序OntimeRun Application.OnTime Now() + TimeValue("00:00:03"), "OntimeRun" End If '释放控制权，让excel可以干其他事情 VBA.DoEvents End Sub

使用方法，新建java项目，把下载的文件粘贴到src目录下，包名自己改。运行main方法即可，同样也可以web形式运行。原理一样。若不明白，空间留言。

关于VBA Application.OnTime用法 application.ontime |举报 |字号订阅 Application.OnTime可实现定时执行vba程序。在vb.net中可定时执行windows程序。下面介绍定时执行vba程序过程: 1.Application.OnTime参数 Application.OnTime(EarliestTime,Procedure as String,[LatestTime],[Schedule]) EarliestTime调用程序的时间 Procedure调用程序的程序名，类型String LatestTime程序执行的结束时间，可选，默认不停调用 Schedule默认True：预定新的调用过程，False非预定调用新的过程 2.举例 Sub fslk() '本程序在每天的12点运行yourproc过程" Application.OnTime _ EarliestTime:=TimeValue("12:00:00"), _ Procedure:="YourProc" End Sub '被调用程序 Sub yourpc() Cells.(1, 2).Value = 4423 End Sub 3.循环调用程序自身，并设置调用时间举例 Option Explicit '公共变量说明 Dim endtime As String Sub oneminute() '主程序 endtime = Now + TimeValue("00:01:00") Call updateself End Sub Sub updateself() '被调用程序 Sheet1.Cells(4, 3).Value = Format(Now(), "hh:mm:ss") Application.OnTime Now + TimeValue("00:00:01"), "updateself", endtime, True End Sub 此例子在单元格C4读秒持续显示，显示时间长度1分钟 http://wenku.baidu.com/link?url=vgi6RL7p_2TqF7B-okY4Z-6glN-wjRcMw9UzBjf7yZrLLPztBNAdllM5u__bwkKxgyGdELCy1Lsz7PVYJxBkEPybO64LFAKxMtn9JeKoUTG

利用VB开发的定时任务程序，可供大家参考！

vb写的用微信给某个人发信息的代码，记事本打开，更改好友name及消息内容msg（电脑端微信要保持登录状态），后缀改为vbs即可运行。用电脑自带的任务计划功能定时运行程序，就可以实现每天自动给某人发信息。不好用可以私信我！！！！！

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章