你不可能就这样每个小时覆盖一次吧？因此用下面的代码来将已填写完一个小时内60个数据的表格另存一份，并以当时的时间命名。
Option Explicit
Function action
Dim objExcelApp,FlieName
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelTest.xls"
FlieName=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&CStr(Second(Now))
objExcelApp.ActiveWorkbook.SaveAs "E:\"&FlieName&".XLS"
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Function
上述代码每小时触发一次。