Option Explicit
Function action
Dim TimeM
Dim huxb
Dim objExcelApp,Timedate,timedate1
Set TimeM = HMIRuntime.Tags("TimeM")
TimeM.Read
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelExample.xls"
Dim i
Set i = HMIRuntime.Tags("i")
i.Read
objExcelApp.Cells(i, 2).Value = 100
Timedate1=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))&"-"&CStr(Hour(Now))&":"&CStr(Minute(Now))&":"&CStr(Second(Now))
objExcelApp.Cells(i, 1).Value = Timedate1
objExcelApp.ActiveWorkbook.Save
If i = 26 Then
Timedate=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&CStr(Second(Now))
objExcelApp.ActiveWorkbook.SaveAs "E:\Report"&Timedate&".XLS"
i=3
End If
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Set huxb = HMIRuntime.Tags("huxb").Read
If huxb=False Then
huxb=True
Else
huxb=False
End If
Set huxb= HMIRuntime.Tags("huxb").Write
以上代码（每分钟触发一次）在运行时被未知（GSC Run Time）的故障中止。请哪位同志帮忙分析分析！
当huxb的状态改变时触发另一个VBS动作，代码如下：
Option Explicit
Function action
Dim j
Set j=HMIRuntime.Tags("i").Read
j=j+1
Set j=HMIRuntime.Tags("i").Write
End Function
i的初始值设定为3.