另存好？还是拷贝好呢？
Option Explicit
Function action
Dim objExcelApp
Dim i,TimeM,TimeNow
Set TimeM=HMIRuntime.Tags("TimeM")'TimeM是系统时间分
i=TimeM.Read
TimeNow=Now
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelTest.xls"
objExcelApp.Cells(i, 2).Value = 100.99
objExcelApp.Cells(i, 1).Value = Now
objExcelApp.ActiveWorkbook.Save
if TimeM.Value=59 then
objExcelApp.ActiveWorkbook.SaveAs"E:\"&TimeNow&".xls"
end if
objExcelApp.Workbooks.Close
objExcelApp.quit
Set objExcelApp =Nothing
End Function
运行后发现有问题，哪位同志帮帮忙解决这个定时另存的问题？？