间歇性报错：“方法'ontime'作用于对象'_application'时失败”的原因

wjve

各位大侠，最近小弟编写了一个userform，在窗体中嵌入了一个textbox显示实时时间，但是在关闭userform时，大多数时候都是很正常的，但是间歇性地会出现报错（频率大概是6-7次正常后，就有一次报错），报错显示以下内容：

运行时错误'1004'
方法ontime作用于对象_application时失败

小弟用调试，结果发现程序停留在了下面的这段命令上：

Public Sub 取消实时时间()
Application.OnTime Now + TimeValue("00:00:01"), "实时时间", , False
End Sub

请问各位大侠，这是什么原因导致的呢？为什么会间歇性地报错呢？有没有什么改进方法？小弟先行拜谢！

附件.rar (50.54 KB, 下载次数: 38)

2013-2-27 12:46 上传

点击文件名下载附件

wjve

请各位高手不吝赐教啊，小弟谢谢了！

wjve

为什么没有人来回答啊……

wjve

求高手指教啊………………

ngnndkkk

猜测：Now + TimeValue("00:00:01")所指定的时间计划不存在，当然出现错误了。
解决方法：建立一个变量用于存储指定的时间，比如　theTime!　这一单精度浮点型变量，然后取消计划的语句为Application.OnTime theTime, "实时时间", , False

wjve

ngnndkkk 发表于 2013-3-1 18:41
猜测：Now + TimeValue("00:00:01")所指定的时间计划不存在，当然出现错误了。
解决方法：建立一个变量用于 ...

你好，谢谢你的回答，但是我觉得问题应该不是在这里，NOW + TIMEVALUE("00:00:01")这个时间是能够被VBA识别的，我后来自己分析，觉得问题可能是出在程序的循环上面，可能是当新的循环正在进行的时候，如果有程序去关闭它的话，可能就报错了，但是不是很确定，所以请大家帮助一起分析下

gufeng7

我也遇到了这个问题，好像手动启动没有问题的代码，但是打开其它一些excel文件后，再跑这个就出错。
好像文件处于protectedview模式下就会报这个错，因为把处于protectedview模式下的文件改成可编辑以后，程序就可以往下运行了。
但是又不是所有的protectedview模式下的文件打开都有这个问题，郁闷啊。

lixiaoqing2008

Public Sub 取消实时时间()
On Error Resume Next '加上这一句试试
Application.OnTime Now + TimeValue("00:00:01"), "实时时间", , False
End Sub

z_hao0917

取消ONTIME时，要求具有相同 Procedure 和 EarliestTime 值，还有就是ONTIME并没有触发，这三个条件都满足了才能取消成功的。
否则会出错的，你这表现应该就是取消不成功造成的，
加上这个  On Error Resume Next 就可以了。  

cnxx000

我也是同样的问题。。。间歇性报错所以感觉很莫名其妙。。想了好久终于解决了。。原理其实很简单，就是ls说的取消ontime的条件不对。。
具体一点，其实问题在于earliest time不同，因为直接用now+作为ontime参数的话，运行取消的时候可能有时间差，导致取消的now+和ontime的now+不同，所以解决办法就是用变量存一下就好了。。。思维盲区啊。。。