Sub OnClick(Byval Item) Dim MyVar1 Dim MyVar2
Dim objExcel Dim wb Dim xlsheet Dim rangee
Dim Years,mounth,Days,hours,min,sec,daysweek Dim jj,kk,year1,mounth1,Days1,hours1,min1,sec1 Dim yi,er,san,si,wu,i,i1,lei,lei1,lei2,lei3,lei4,lei5 Dim zhou,yue,nian
Dim shi,feng,miao,mytime
Dim MyHour,MyMinute,myday,mymonth,myyear,a,b,c,d,e,f
Set MyVar1=HMIRuntime.Tags(\MyVar1.Write Date
Set MyVar2=HMIRuntime.Tags(\MyVar2.Write Time
year1 = CStr(MyVar1.value)
mounth1 = CStr(MyVar2.value)
kk=\
jj=\
Set yi = HMIRuntime.Tags(\
yi.Read
Set er = HMIRuntime.Tags(\
er.Read
Set san = HMIRuntime.Tags(\
san.Read
Set si = HMIRuntime.Tags(\
si.Read
Set wu = HMIRuntime.Tags(\
wu.Read
Set objExcel = CreateObject(\
objExcel.Visible = True
Set wb=objExcel.Workbooks.Open (\
Set xlsheet = wb.sheets(\
xlsheet.range(\
xlsheet.range(\
xlsheet.range(\
xlsheet.range(\
xlsheet.range(\
wb.SaveAs kk & year1 & jj
wb.CLOSE
objExcel.quit
wb=Nothing
xlsheet = Nothing
objExcel=Nothing
End Sub