项目需要用到日报表，月报表，年报表。我用excel做的，脚本如下：
日报表：
Option Explicit
Function action
Dim pExcel,sjy
Dim shijian ,wendu,yali,liuliang
Dim i,FileName
Dim filena,fso
sjy=Date()
shijian=Time
shijian=Mid(shijian,1,8)
FileName="D:\ribaobiao\"&sjy&".xls"
Set pExcel=CreateObject("Excel.Application")
Set fso=CreateObject("s cripting.FileSystemObject")
pExcel.Visible=0
If fso.FileExists(FileName)=False Then
pExcel.Workbooks.Open"D:\ribaobiao\生产日报表.xls"
pExcel.ActiveWorkbook.SaveAs FileName
End If
pExcel.Workbooks.Open FileName
i=i+1
i=pExcel.WorkSheets("sheet1").Columns(1).Find("").Row
pExcel.worksheets("sheet1").Cells(i,1).VAlue=shijian
pExcel.worksheets("sheet1").Cells(i,2).VAlue=HMIRuntime.Tags("L101粗格栅液位差").read
pExcel.worksheets("sheet1").Cells(i,3).VAlue=HMIRuntime.Tags("L102提升泵站液位").read
pExcel.worksheets("sheet1").Cells(i,4).VAlue=HMIRuntime.Tags("H2S101").read
pExcel.ActiveWorkbook.Save()
pExcel.Workbooks.Close()
pExcel.Quit()
End Function

触发变量是：小时（系统时间 system info）；
****************

月报表：
Option Explicit
Function action
Dim pExcel,sjy
Dim shijian ,wendu,yali,liuliang
Dim i,FileName
Dim filena,fso
sjy=Month()
shijian=Date
shijian=Mid(shijian,1,10)
FileName="D:\yuebaobiao\"&sjy&".xls"
Set pExcel=CreateObject("Excel.Application")
Set fso=CreateObject("s cripting.FileSystemObject")
pExcel.Visible=0
If fso.FileExists(FileName)=False Then
pExcel.Workbooks.Open"D:\yuebaobiao\生产月报表.xls"
pExcel.ActiveWorkbook.SaveAs FileName
End If
pExcel.Workbooks.Open FileName
i=i+1
i=pExcel.WorkSheets("sheet1").Columns(1).Find("").Row
pExcel.worksheets("sheet1").Cells(i,1).VAlue=shijian
pExcel.worksheets("sheet1").Cells(i,2).VAlue=HMIRuntime.Tags("L101粗格栅液位差").read
pExcel.worksheets("sheet1").Cells(i,3).VAlue=HMIRuntime.Tags("L102提升泵站液位").read
pExcel.worksheets("sheet1").Cells(i,4).VAlue=HMIRuntime.Tags("H2S101").read
pExcel.ActiveWorkbook.Save()
pExcel.Workbooks.Close()
pExcel.Quit()
End Function

触发变量是：日（系统时间 system info）；
****************
年报表：
Option Explicit
Function action
Dim pExcel,sjn
Dim shijian ,wendu,yali,liuliang
Dim i,FileName
Dim filena,fso
sjn=Year()
shijian=Month
shijian=Mid(shijian,1,8)
FileName="D:\yuebaobiao\"&sjn&".xls"
Set pExcel=CreateObject("Excel.Application")
Set fso=CreateObject("s cripting.FileSystemObject")
pExcel.Visible=0
If fso.FileExists(FileName)=False Then
pExcel.Workbooks.Open"D:\yuebaobiao\生产年报表.xls"
pExcel.ActiveWorkbook.SaveAs FileName
End If
pExcel.Workbooks.Open FileName
i=i+1
i=pExcel.WorkSheets("sheet1").Columns(1).Find("").Row
pExcel.worksheets("sheet1").Cells(i,1).VAlue=shijian
pExcel.worksheets("sheet1").Cells(i,2).VAlue=HMIRuntime.Tags("L101粗格栅液位差").read
pExcel.worksheets("sheet1").Cells(i,3).VAlue=HMIRuntime.Tags("L102提升泵站液位").read
pExcel.worksheets("sheet1").Cells(i,4).VAlue=HMIRuntime.Tags("H2S101").read
pExcel.ActiveWorkbook.Save()
pExcel.Workbooks.Close()
pExcel.Quit()
End Function

触发变量是：月（系统时间 system info）；
****************

现在日报表（就是第一段）可以实现每个小时写数据进excel表，但是月报表，年报表不行，请多指点啊，多谢。