sz1121

Dim t

Dim ws

Set ws = CreateObject("wscript.shell")

Do

t = Time()

If StrComp(t,"10:00:00") = 0 Or StrComp(t,"15:00:00")= 0 Then ws.Run("D:\测试.xls")

WScript.Sleep(1000)

loop
复制代码

尊重生命,请勿堕胎 http://tieba.baidu.com/p/932891654