Function action
Dim objExcelApp
Dim i,TimeM,TimeNow,TimeS
Set TimeM=HMIRuntime.Tags("TimeM")
i=1+TimeM.Read
TimeNow=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&":"&CStr(Second(Now))
TimeS=Second(Now)
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelTest.xls"
objExcelApp.Cells(i, 2).Value =123.47
objExcelApp.Cells(i, 1).Value = TimeNow
objExcelApp.DisplayAlerts = False
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.quit
Set objExcelApp =Nothing
End Function
以上代码用于往指定的Excel表格中写数据。该动作每分钟触发一次，依次往表格中写入60个数据，当进入下一个小时后，大概是因为表格中已存在数据所以在写入前会弹出对话框提醒是否覆盖还是另存，加入objExcelApp.DisplayAlerts = False语句后就不存在这个问题了，对此要谢谢谢谢版主：城外之人。