VBA时间间隔重复执行程序

所需积分/C币:49 2015-11-23 13:18:00 10KB 7Z
313
收藏 收藏
举报

关于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

...展开详情
立即下载 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
  • 分享精英

关注 私信
上传资源赚钱or赚积分
最新推荐
VBA时间间隔重复执行程序 49积分/C币 立即下载
1/0