共3 条记录, 每页显示 10 条, 页签: [1]

标题：VBS执行模块的问题

1楼

Marcus 发表于：2012/10/19 9:27:01

高手请帮忙看一下以下VBS代码会有什么问题，我把这个代码放在一个模块mdMonitor.bas中。昨天晚上编写好测试正常，今天开盘了发现根本没有被执行，连APPLICATION_VBAStart都没有执行。太奇怪了，难道这种宏的运行时间也会跟开盘时间冲突？

Const cnTimerMonitor = 1
Const cnTimerMonitorInterval = 30000       '30 seconds

Sub APPLICATION_VBAStart()
    Call Application.SetTimer(cnTimerMonitor,cnTimerMonitorInterval)
End Sub

Sub APPLICATION_Start()
End Sub

Sub APPLICATION_VBAEnd()
   Call Application.KillTimer(cnTimerMonitor)
End Sub

Sub APPLICATION_Timer(nID)
   IF nID=cnTimerMonitor then
       MonitorSystem
   End If
End Sub

Sub MonitorSystem()
'''
End Sub

2楼

王锋发表于：2012/10/19 9:32:46

参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=582

金字塔的VBA中，不能有重复的函数定义，估计你是有了多个APPLICATION_VBAStart定义了，导致一个都不执行

3楼

Marcus 发表于：2012/10/19 9:47:30

以下是引用王锋在2012-10-19 9:32:46的发言：

参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=582

金字塔的VBA中，不能有重复的函数定义，估计你是有了多个APPLICATION_VBAStart定义了，导致一个都不执行

果真如此，问题已解决，谢谢！

共3 条记录, 每页显示 10 条, 页签: [1]