Option Explicit
Function action
Dim objexcelapp,fso,myfile,dastr,fname,ts7,n,aa,MyHour,MyMinute
dastr=FormatDateTime(Date)
fname="C:\SIEMENS\WinCC\myfile\"+dastr+".xls"
Set fso=CreateObject("s cripting.FileSystemObject")
Set objexcelapp=CreateObject("excel.application")
ts7=fso.FileExists(fname)
If ts7=False Then
Set MyFile=fso.GetFile("C:\SIEMENS\WinCC\myfile\shanhangwu.xls")
n=4
MyFile.Copy(fname)
End If
MyHour=Hour(Time)
MyMinute=Minute(Time)
objexcelapp.Workbooks.Open fname
If(m=0 Or m=10 Or m=20 Or m=30 Or m=40 Or m=50) Then
n=h*6+m+4
objexcelapp.Worksheets("sheet1").Cells(n,3).Value=HMIRuntime.Tags("T_2").Read
objexcelapp.Worksheets("sheet1").Cells(n,4).Value=HMIRuntime.Tags("T_3").Read
objexcelapp.Worksheets("sheet1").Cells(n,5).Value=HMIRuntime.Tags("T_4").Read
objexcelapp.Worksheets("sheet1").Cells(n,6).Value=HMIRuntime.Tags("T_5").Read
objexcelapp.Worksheets("sheet1").Cells(n,7).Value=HMIRuntime.Tags("T_6").Read
objexcelapp.Worksheets("sheet1").Cells(n,8).Value=HMIRuntime.Tags("T_7").Read
objexcelapp.Worksheets("sheet1").Cells(n,9).Value=HMIRuntime.Tags("T_8").Read
objexcelapp.Worksheets("sheet1").Cells(n,10).Value=HMIRuntime.Tags("T_9").Read
objexcelapp.Worksheets("sheet1").Cells(n,11).Value=HMIRuntime.Tags("T_10").Read
objexcelapp.Worksheets("sheet1").Cells(n,12).Value=HMIRuntime.Tags("T_11").Read
objexcelapp.Worksheets("sheet1").Cells(n,13).Value=HMIRuntime.Tags("T_12").Read
objexcelapp.Worksheets("sheet1").Cells(n,14).Value=HMIRuntime.Tags("T_13").Read
objexcelapp.Worksheets("sheet1").Cells(n,15).Value=HMIRuntime.Tags("T_14").Read
objexcelapp.Worksheets("sheet1").Cells(n,16).Value=HMIRuntime.Tags("T_15").Read
objexcelapp.Worksheets("sheet1").Cells(n,17).Value=HMIRuntime.Tags("T_16").Read
objexcelapp.Worksheets("sheet1").Cells(n,18).Value=HMIRuntime.Tags("T_17").Read
objexcelapp.Worksheets("sheet1").Cells(n,19).Value=HMIRuntime.Tags("T_18").Read
objexcelapp.Worksheets("sheet1").Cells(n,20).Value=HMIRuntime.Tags("T_19").Read
objexcelapp.Worksheets("sheet1").Cells(n,21).Value=HMIRuntime.Tags("T_20").Read
objexcelapp.Worksheets("sheet1").Cells(n,22).Value=HMIRuntime.Tags("T_21").Read
objexcelapp.Worksheets("sheet1").Cells(n,23).Value=HMIRuntime.Tags("T_22").Read
objexcelapp.Worksheets("sheet1").Cells(n,24).Value=HMIRuntime.Tags("T_23").Read
objexcelapp.Worksheets("sheet1").Cells(n,25).Value=HMIRuntime.Tags("T_24").Read
objexcelapp.Worksheets("sheet1").Cells(n,26).Value=HMIRuntime.Tags("T_25").Read
objexcelapp.Worksheets("sheet1").Cells(n,27).Value=HMIRuntime.Tags("T_26").Read
objexcelapp.Worksheets("sheet1").Cells(n,28).Value=HMIRuntime.Tags("T_27").Read
objexcelapp.Worksheets("sheet1").Cells(n,29).Value=HMIRuntime.Tags("T_28").Read
objexcelapp.Worksheets("sheet1").Cells(n,30).Value=HMIRuntime.Tags("T_29").Read
objexcelapp.Worksheets("sheet1").Cells(n,31).Value=HMIRuntime.Tags("T_30").Read
End If
objexcelapp.ActiveWorkbooks.Save
objexcelapp.Workbooks.Close
objexcelapp.Quit
Set objexcelapp=Nothing
End Function