我使用FameView组态软件中的VBScript脚本,实现的:
 '打开数据库及数据表demo,dt为时间字段
   UserDB.OpenConnect "FameView UserData Source","","" 
   UserDB.SetFilter "dt>='"+StartTime+"' And dt<'"+EndTime+"'"
   UserDB.OpenRecordset "demo",2,2,2  '打开记录集;
   
   '检查查询内容是否为空
   If UserDB.IsEmpty()=0 Then
      '打开Excel文件
      Set ExcelObj = CreateObject("Excel.Application")
      ExcelObj.Visible = True
      ExcelFile = "C:\组态系统\ExcelFile\test.xls"
      Intyexcel.Workbooks.Open ExcelFile
      ExcelObj.Sheets("Sheet1").Select
      ExcelObj.Worksheets(1).Select
      ExcelObj.Cells(1,3) = NOW_DATE
      '导出记录到Excel中
      row=2
      While UserDB.IsEOF()=0 
         ExcelObj.Cells(row,1).Value=UserDB.GetFieldValue("dt",8) 
         ExcelObj.Cells(row,2).Value=UserDB.GetFieldValue("f1",4)
         ExcelObj.Cells(row,3).Value=UserDB.GetFieldValue("f2",4)
         row=row+1    
         UserDB.MoveNext 
Wend
ExcelObj.ActiveWorkbook.SaveAs "C:\组态系统\ExcelFile\"&NOW_DATE&".xls"
      ExcelObj.Quit
      Set ExcelObj=Nothing
   End If
   '关闭数据库
   UserDB.CloseRecordset 
   UserDB.CloseConnect
End If

e...
真不好意思,忘说了,我是用MCGS