Option Explicit
Function action
Dim TimeM
Dim objExcelApp,Timedate,timedate1
Set TimeM = HMIRuntime.Tags("TimeM")
TimeM.Read
Dim NewTag
Set NewTag=HMIRuntime.Tags("NewTag")
NewTag.Read
If TimeM.Value=> 50 Then
NewTag.Write "ok!"
If TimeM.Value=> 59 Then
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = 100
Timedate=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))
'读取当前的系统时间
Timedate1=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))&"-"&CStr(Hour(Now))&":"&CStr(Minute(Now))
objExcelApp.Cells(3, 1).Value = Timedate1
objExcelApp.Cells(3, 2).value = Timedate
objExcelApp.ActiveWorkbook.SaveAs "E:\Report"&Timedate&".XLS"
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Else NewTag.Write "废话"
End If
End If
End Function
以上代码的触发周期为秒。如果改成分就可以不用If语句了。
运行的结果是每分钟保存一次数据至Excel并另存为新文件。

现在要解决的是在如何每次改变填写的单元格24小时另存并打印表格？哪位给定提示。