Dim pexcel,sj
Dim shijian,jsph,csph,jscod,cscod,csliuliang,csandan,cszonglin,fjdl,fjdll,fjlliang,fjliul,rjy,rrjy,rrrjy,rrrrjy,wlnd,wwlnd
Dim i,filename
Dim filena,fso

sj=Date()
'shijian=Mid(shijian,1,8)
shijian=FormatDateTime(Now,0)
filename="d:\date\"&sj&".xls"


Set pexcel=CreateObject("excel.application")
Set fso=CreateObject("s cripting.filesystemobject")


pexcel.visible=False

If fso.FileExists(filename)=False Then
pexcel.workbooks.open "d:\date\book1.xls"
pexcel.activeworkbook.saveas filename
End If

pexcel.workbooks.open filename

i= 3
i= 3+Int(Hour(Now))

pexcel.worksheets("sheet1").cells(i,1).value=shijian
pexcel.worksheets("sheet1").cells(i,2).value=HMIRuntime.Tags("jsph").read
pexcel.worksheets("sheet1").cells(i,3).value=HMIRuntime.Tags("csph").read
pexcel.worksheets("sheet1").cells(i,4).value=HMIRuntime.Tags("jscod").read
pexcel.worksheets("sheet1").cells(i,5).value=HMIRuntime.Tags("cscod").read
pexcel.worksheets("sheet1").cells(i,6).value=HMIRuntime.Tags("csliuliang").read
pexcel.worksheets("sheet1").cells(i,7).value=HMIRuntime.Tags("csandan").read
pexcel.worksheets("sheet1").cells(i,8).value=HMIRuntime.Tags("cszonglin").read
pexcel.worksheets("sheet1").cells(i,9).value=HMIRuntime.Tags("fjdl").read
pexcel.worksheets("sheet1").cells(i,10).value=HMIRuntime.Tags("fjdll").read
pexcel.worksheets("sheet1").cells(i,11).value=HMIRuntime.Tags("fjlliang").read
pexcel.worksheets("sheet1").cells(i,12).value=HMIRuntime.Tags("fjliul").read
pexcel.worksheets("sheet1").cells(i,13).value=HMIRuntime.Tags("rjy").read
pexcel.worksheets("sheet1").cells(i,14).value=HMIRuntime.Tags("rrjy").read
pexcel.worksheets("sheet1").cells(i,15).value=HMIRuntime.Tags("rrrjy").read
pexcel.worksheets("sheet1").cells(i,16).value=HMIRuntime.Tags("rrrrjy").read
pexcel.worksheets("sheet1").cells(i,17).value=HMIRuntime.Tags("wlnd").read
pexcel.worksheets("sheet1").cells(i,18).value=HMIRuntime.Tags("wwlnd").read

pexcel.displayalerts=False

pexcel.activeworkbook.save()

pexcel.workbooks.close()
pexcel.quit()

Set pexcel=Nothing