打开工作薄后定时执行一段程序无法实现呢？求助

sctcp

代码如下：
Sub Application_VBAStart()
Call Application.settimer(0, 2 * 1000)
Call Application.settimer(9, 5 * 1000)
End Sub

Sub Application_Timer(ID)
If ID = 0 Then
Application.msgout CDate(Time) & ",0号计时器触发了"
End If
If ID = 9 Then
Application.msgout CDate(Time) & ",0号计时器触发了"
End If
End Sub
Private Sub Workbook_Open()
Call Application_VBAStart
End Sub

蓝粆

代码无法运行的问题有：
1、Call Application.settimer，但没这个 过程名称，只有Application_Timer
2、即使有Application.settimer这个过程，参数个数不一样，Call的是两个参数，过程里只有一个参数
3、Application.msgout不知道是什么东西，猜测应该是msgbox
4、Sub Application_Timer()一定要放在模块里，不能跟上面的过程一样放在thisworkbook里

1. Sub Application_VBAStart()
   
2. Application.OnTime Now + TimeValue("00:00:02"), "Application_Timer"
   
3. Application.OnTime Now + TimeValue("00:00:05"), "Application_Timer"
   
4. End Sub

复制代码

1. Sub Application_Timer()
   
2.     MsgBox CDate(Time) & ",0号计时器触发了"
   
3. End Sub

复制代码

sctcp

蓝粆 发表于 2014-5-31 01:35
代码无法运行的问题有：
1、Call Application.settimer，但没这个 过程名称，只有Application_Timer
2、即 ...

哦，谢谢了，再问你一个问题，这个模块里写代码有什么作用呢？

sctcp

蓝粆 发表于 2014-5-31 01:35
代码无法运行的问题有：
1、Call Application.settimer，但没这个 过程名称，只有Application_Timer
2、即 ...

可以在自己设定的时间触发吗？

sctcp

蓝粆 发表于 2014-5-31 01:35
代码无法运行的问题有：
1、Call Application.settimer，但没这个 过程名称，只有Application_Timer
2、即 ...

特定时间的问题已解决了，TimeValue里可以加入年月日吗？代码怎么写呢？

蓝粆

sctcp 发表于 2014-6-5 17:56
特定时间的问题已解决了，TimeValue里可以加入年月日吗？代码怎么写呢？

这个用的也不多~

如果 time 参数包含日期信息，TimeValue 将不会返回它。但是，若 time 包含无效的日期信息，则会导致错误发生。


这个是帮助信息的~

sctcp

哦，谢谢了