内容发布更新时间 : 2025/2/23 19:59:10星期一 下面是文章的全部内容请认真阅读。

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