关于定时器运行问题--------求高手解答！！！

liuyihan87

我设计了一个定时保存，清空，激活的程序
23：59：58自动另存  
00：00：02清空A栏
00：00：03清空B栏和C栏 并激活A1格
程序编写没有错误 均可运行
但存在这样一个问题  比如我是 7月1日打开的文件 程序确实会完成我想要的效果
但我不关闭文件的话 到了7月2日相同时间的时候 程序就完全没有反应了
请教高手解答 万分感谢！！！

程序如下：
定时程序：

Private Sub Workbook_Open()
   Application.OnTime TimeValue("23:59:58"), "Sheet1.AutoBackup"
   Application.OnTime TimeValue("00:00:02"), "Sheet1.test1"
   Application.OnTime TimeValue("00:00:03"), "Sheet1.test2"
End Sub

另存和清空程序：

Sub AutoBackup()
Application.DisplayAlerts = False
    ThisWorkbook.Save
myFilename = "D:\dianzi\" & Format(Now, "yyyy-mm-dd") & ".xls"
    ThisWorkbook.SaveCopyAs Filename:=myFilename
Application.DisplayAlerts = True
End Sub
Sub test1()
Sheets("sheet1").Select
Range("a2:a500").Select
Selection.ClearContents
End Sub
Sub test2()
Sheets("sheet1").Select
Range("b2:c500").Select
Selection.ClearContents
Sheets("sheet1").[a2].Select '
End Sub

zez

试一试这样能行吗？（我没测试）
Private Sub Workbook_Open()
   定时1
End Sub

Private Sub 定时1()
   Application.OnTime TimeValue("23:59:58"), "Sheet1.AutoBackup"
   定时2
End Sub

Private Sub 定时2()
   Application.OnTime TimeValue("00:00:02"), "Sheet1.test1"
   定时3
End Sub
Private Sub 定时3()
   Application.OnTime TimeValue("00:00:03"), "Sheet1.test2"
   定时1
End Sub

mh9996

我也弄了个自动备份的小程序，方法很笨，但是也成功了。

Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Format(Time(), "hh:mm:ss") = #3:48:00 AM# Then
fso.copyfile Application.CurrentProject.Path & "\地调值班记录.mdb", _
            Application.CurrentProject.Path & "\日志备份\地调值班记录" & Date & ".mdb"
If fso.FileExists(Application.CurrentProject.Path & "\日志备份\地调值班记录" & Date - 5 & ".mdb") Then
fso.deletefile Application.CurrentProject.Path & "\日志备份\地调值班记录" & Date - 5 & ".mdb"
End If
End If
End Sub