VBS脚本

VBS脚本
2011年06月30日
　　我用ＶＢＳ写的往ＥＸＣＥＬ里面写数据的脚本程序奉献给大家　，直接建立变量写就可以了，日期和时间脚本里面自带,先在D盘建立一个book1的EXCEL文件,在这个文件的SHEEL1里面的第一行写上表格的标题(必须写)就可以拉
　　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("scripting.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()