Dim fso,myfile,fname

Set fso = CreateObject("s cripting.FileSystemObject")

Set MyFile = fso.GetFile("c:\data\report11.xls")

fname="c:\data\" & FormatDateTime(Date,2) & ".xls"

MyFile.Copy(fname)
这段脚本，也是全局动作，每天的0点触发一次



Set fso = CreateObject("s cripting.FileSystemObject")

fname="c:\data\" & FormatDateTime(Date,2) & ".xls"

Dim ObjExcelApp

Dim i

Set i=HMIRuntime.Tags("jishu")

i.Read

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Workbooks.Open fname

objExcelApp.worksheets ("sheet1").Cells(8, 5).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.beiyong1").read

objExcelApp.worksheets ("sheet1").Cells(i, 7).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.beiyong2").read

objExcelApp.worksheets ("sheet1").Cells("jishu", 2).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.ZXwgZdn").read

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.ClosE

objExcelApp.QuiT

Set ObjEXceLapp = Nothing

End Sub
这段脚本每小时的01分触发执行一次