那我换一个说法，我要每天8点钟往里面写一个数据，请问一下脚本怎么修改能实现呢,还是在这个基础上：
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）；