我在对象属性“打开画面”中写入如下VBS代码，希望在画面打开时执行，结果却不行。哪位同志帮帮看看：
Sub OnOpen()
Dim objExcelApp,Timedate,timedate1
Dim TimeM
Set TimeM = HMIRuntime.Tags(TimeM)
TimeM.Read
If timem.Value = 50 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 Sub