将变量写入Excel指定单元格的动作：
Option Explicit
Function action
Dim objExcelApp
Dim i,TimeM,TimeNow
Set TimeM=HMIRuntime.Tags("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
objExcelApp.Workbooks.Close
objExcelApp.quit
Set objExcelApp =Nothing
End Function
没问题吧？各位。