Option Explicit
Function action
Dim TimeM,i
Dim objExcelApp,Timedate,timedate1
Set i = HMIRuntime.Tags("TimeM").Read+1
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelTest.xls"
objExcelApp.Cells(i, 2).Value = 100.99
Timedate1=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))&"-"&CStr(Hour(Now))&":"&CStr(Minute(Now))&":"&CStr(Second(Now))
objExcelApp.Cells(i, 1).Value = Timedate1
objExcelApp.ActiveWorkbook.Save
If i.Value=60 Then
Timedate=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&CStr(Second(Now))
objExcelApp.ActiveWorkbook.SaveAs "E:\"&Timedate&".XLS"
End If
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Function

到底缺少什么对象？