Excel文件可不自动生成,你可以自己建一个Excel模板,放在一个目录下,比如D:\data\report.xls,到了整点的时候就把它复制过来使用.
Dim fso,myfile,fname
Set fso = CreateObject("s cripting.FileSystemObject")
Set MyFile = fso.GetFile("D:\data\report.xls")
fname="D:\data\" & FormatDateTime(Date,2) & ".xls"
MyFile.Copy(fname)
然后每个整点往里面写数据:
Dim fso,fname
Set fso = CreateObject("s cripting.FileSystemObject")
fname="D:\data\" & FormatDateTime(Date,2) & ".xls"
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
objExcelApp.worksheets ("sheet1").Cells(2, 2).VAlue = HMIRuntime.Tags("tag1").read
objExcelApp.worksheets ("sheet1").Cells(3, 2).VAlue = HMIRuntime.Tags("tag1").read
objExcelApp.worksheets ("sheet1").Cells(4, 2).VAlue = HMIRuntime.Tags("tag1").read
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.ClosE
objExcelApp.QuiT
Set ObjEXceLapp = Nothing
打印直接用objExcelApp.Workbooks.print就可以了.
程序都放在全局脚本里面.比如可以写三个全局脚本
复制表格一个脚本,每日执行一次
写数据一个脚本,每小时执行一次
打印一个脚本,每天执行一次


这种方法是看的网上的，但问题是这个填数据的脚本是每小时执行一次，那每个小时填的数据不是把上一小时的数据覆盖了吗？ 这怎么解决啊？