创建一个VBS动作，把这些代码写在动作中，执行还是不行，为何？？
GSC诊断也未显示任何信息，GSC运行系统显示上面创建的这个动作已激活。
Option Explicit
Function action
Dim TimeM
Set TimeM = HMIRuntime.Tags("TimeM")
TimeM.Read
Dim objExcelApp,Timedate,timedate1
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=HMIRuntime.Tags("hxb").read
objExcelApp.ActiveWorkbook.SaveAs "E:\Report"&Timedate&".XLS"
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End If
End Function

哪位同志帮忙改改！！