这个定时的VBS脚本为何不执行。在按钮里测试过了的。

Sub REPORT_SHOW
On Error Resume Next 
item.Enabled = False
Dim date_select,strStartTime,strEndTime
date_select = NoW()
strStartTime = DateAdd("h", -2, NoW())
strEndTime = Now()
Dim Conn,adors,SQL
Set conn = CreateObject("ADODB.Connection")
Set adors = CreateObject("ADODB.Recordset")
Conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;" & "Data Source=" & HMIRuntime.ActiveProject.Path & "\report\dev_data.accdb"
Conn.Open
SQL = "select * from dev Where  ST_T  >= #" &strStartTime & "#   and  ST_T  <=  #"& strEndTime & "#    Order By ST_T DESC" '选取表格DEV的时间值为：开始时间-结束时间 正序排列，ASC/DESC，正/逆
adors.Open SQL,Conn,1,3
'查询结果写到 excel
Dim xlApp,xlBook,xlSheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.DisplayAlerts = False
 Set xlBook = xlApp.Workbooks.Open (HMIRuntime.ActiveProject.Path & "\report\模板\抑尘报表模版.xlsx")
 Set xlSheet = xlBook.Worksheets(1) '表1
 xlSheet.Cells(1, 1) =  "防冻抑尘报表" '报表标题
 xlSheet.Cells(2, 1) = "报表日期：" & date_select
 adors.MoveFirst  '当前行完成后，转移至下一行。.MoveNext
 Dim i
 For i = 1 To adors.RecordCount
 xlSheet.Cells(i + 3, 2) = adors.Fields(1).Value '车号
 xlSheet.Cells(i + 3, 3) = FormatDateTime(adors.Fields(2).Value, 3)'adors.Fields(2).Value '喷洒时间
 xlSheet.Cells(i + 3, 4) = adors.Fields(3).Value  '喷洒量
 adors.MoveNext 
Next'终止循环

 xlBook.SaveAs HMIRuntime.ActiveProject.Path & "\report\日报表\web\抑尘报表.htm",44
 xlBook.Close
 xlApp.Quit
 Set xlSheet = Nothing
 Set xlBook = Nothing
 Set xlApp = Nothing
 Set Conn = Nothing
 Set adors = Nothing
'报表显示
Dim wbCtrl
Set wbCtrl = ScreenItems("控件5") '"控件 3"为 Web 控件名称
wbCtrl.Navigate HMIRuntime.ActiveProject.Path & "\report\日报表\web\抑尘报表.htm"
item.Enabled=True
End Sub

根据官方文档修改来的，我箱做定时触发，可惜就是不行。其他脚本可以。

问题补充： 数据库及报表格式