我用ＶＢＳ写的往ＥＸＣＥＬ里面写数据的脚本程序奉献给大家　，直接建立变量写就可以了，日期和时间脚本里面自带,先在D盘建立一个book1的EXCEL文件,在这个文件的SHEEL1里面的第一行合并单元格后写上表格的标题(如XX日报表)就可以拉，把此脚本写在VBS全局脚本里面并设置好时间触发器，就可以自动建立以日期命名的EXCEL文件，并自动向里面写数据。
Dim pExcel,sj
Dim shijian ,wendu,yali,liuliang
Dim i,FileName
Dim filena,fso
sj=Date()

shijian=Time
shijian=Mid(shijian,1,8)
FileName="d:\"&sj&".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:\book1.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("wendu").read
pExcel.worksheets ("sheet1").Cells(i, 3).VAlue = HMIRuntime.Tags("yali").read
pExcel.worksheets ("sheet1").Cells(i, 4).VAlue = HMIRuntime.Tags("liuliang").read

pExcel.ActiveWorkbook.Save()

pExcel.Workbooks.Close()
pExcel.Quit()