您现在的位置: 首页 > 微信营销 > 营销推广 > 定时运行程序, 定时运行程序

定时运行程序, 定时运行程序

作者:   来源:  热度:78  时间:2021-06-20






在这个教程最开始的时候,我们就讲了Application对象的几个重要属性: ScreenUpdating和DisplayAlert,不知道大家还记不记得?如果不是很清楚,那么就猛击这里。今天我们当然

在这个教程最开始的时候,我们就讲了Application对象的几个重要属性: ScreenUpdating和DisplayAlert,不知道大家还记不记得?如果不是很清楚,那么就猛击这里。

今天我们当然不是复习这两个属性,而是接着讲讲Application的另外一个略实用的功能:定时运行。

举个例子吧,最近《战狼》火的一塌糊涂,股票市场这个概念炒的也很火。你的老板,王建国同志,作为一个投资专家,要求你:一旦电影票房超过50亿,立刻通知他,过了50亿概念就炒的差不多了,他就该把手里因为《战狼》这部电影大涨的股票给抛了!

作为一个懒癌晚期患者,你当然不会傻到自己一次一次刷新网站来看票房情况。这种事情当然要交给电脑啦!你很快写好了爬取数据的程序,但怎么让他来定时刷新呢? 这时候,我们的OnTime就隆重出场了!

OnTime

这是Application的一个方法,用于定时运行指定的程序。用法如下:

Application.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
  • EarliestTime就是你希望这个定时运行程序的时间

  • Procedure就是到了时间点儿,你要运行的程序名字。这是一个字符串。

  • LatestTime就是:如果到了系统该定时运行程序的时候了,但此时还有另外一个程序在运行,那么系统就会一直等到LatestTime,再运行你当时指定好的程序。

  • Schedule:简单点理解,这就是指定程序到了指定的时间要不要运行。如果是True,就运行,False,就不运行。这个一般用于取消自动运行。

讲了这么多空泛的概念,我们还是上手写写代码吧。Talk is cheap, show me the code.  

简单点,我想要系统每隔两秒钟就打印出当前的时间来。

Dim dScheduleDate As Date

Sub TypeNextCell()
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = Format(Now, "hh:mm:ss")
End Sub

Sub TypeData()
    dScheduleDate = Now + TimeSerial(0, 0, 2)
    TypeNextCell
    Application.OnTime dScheduleDate, "TypeData"
End Sub

Sub StopTyping()
    Application.OnTime dScheduleDate, "TypeData", , False
End Sub

我们写了3个过程

  • TypeNextCell属于纯操作执行者,在下一个单元格里打印时间

  • TypeData里,指定了一个dScheduleDate,表示要定时运行的时间。我们在这里,让TypeData定时运行自己,作一个递归,就可以让系统一直每隔两秒钟打印。

  • StopTyping是用来停止定时运行的。这里需要说明的是,dScheduleDate是一个模块级的变量。只有这样,才可以知道下一次定时运行时什么时间,并把OnTime的第四个参数设为False,取消运行。

大家可以自己运行一下试试看,效果如何?

总结一下

  • OnTime定时运行的设置,自我调用和取消定时运行

相信大家都知道,微软系统中有一个任务计划程序功能很好用,我们可以使用任务计划程序这个功能来定时自动运行程序。那么,Win10如何使用任务计划程序来定时运行程序呢?接下来,我们就一起往下看看Win10使用任务计划程序来定时运行程序的具体方法。

  方法/步骤

  1、鼠标右键点击“开始”图标按钮,在弹出的菜单选项框中找到“控制面板”选项并点击它;

  2、点击“控制面板”选项后,这个时候系统会打开的“控制面板”对话窗口;

  3、在打开的“控制面板”对话窗口中,将查看方式选择为“大图标”模式;

  4、在大图标查看方式下,找到“管理工具”选项并点击它;

  5、点击管理工具选项后,这个时候会打开“管理工具”窗口;

  6、在管理工具窗口中,找到“任务计划程序”选项并点击它;

  7、在打开的创建任务窗口,根据自身的需要进行任务创建即可。

  以上就是使用任务计划程序来定时运行程序的具体方法,按照以上方法进行操作,就能轻松使用任务计划程序来创建定时运行程序了。

两秒后提示sub tim()window.settimeout  "tzs()",2000'两秒后调用tzsend subsub tzs()msgbox "2"end sub

转载请注明出处:定时运行程序, 定时运行程序 :http://www.720weixin.com/marketing/442837.html
  • 登录

    使用微信帐号直接登录,无需注册