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

标题：[求助]关于定时器的问题

1楼

ares89 发表于：2012/2/15 11:25:18

1.如果要每天进行一个动作，这样设定时器就好了吧？

Application.SetTimer(1,24*60*60*1000)

2.settimer的第一个参数ID，与计时器的动作怎么对应呢？

比如下段代码，第一个过程中，ID=10，但系统怎么知道去触发第二个过程呢而不是其他过程呢？

Sub APPLICATION_VBAStart()
     Call Application.SetTimer(10, 1000)
     GetExcelFile("D:\Stock.xls")
End Sub

Sub APPLICATION_Timer(ID)
     GetStockCode
     GetNewPrice
End Sub

2楼

王锋发表于：2012/2/15 11:58:47

1。是的

2.参数ID就是识别你是定时器类型的

Call Application.SetTimer(10, 1000)
Call Application.SetTimer(11, 1000)

这样就设定了2个定时器

Sub APPLICATION_Timer(ID)

If ID = 10 then
GetStockCode

end if

if ID = 11 then
GetNewPrice

end if
End Sub

3楼

ares89 发表于：2012/2/15 13:10:21

谢谢！

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