本回答有11位鉆石用戶推薦

回答者：

zhangli0 - 超級顧問&nbsp&nbsp第15級

2019-07-25 16:40:06

''當前為按鈕觸發，

''創建一張當前日期命名的表格，如存在，跳過

Dim?fso,myfile,daystr,dstr,fname

dstr=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))

fname="E:\報表\"?+?dstr?+?".xls"

Set?fso=CreateObject("scripting.FileSystemObject")

Set?MyFile=fso.GetFile("E:\模板excel.xls")

If?fso.FileExists(fname)?Then

''MsgBox?"文件已經存在"

''文件存在,不執行

else

MyFile.Copy(fname)???''''不存在,復制模板

End?If

''檢測當前日期名表格是否打開，如有，關閉保存

''模板是否打開狀態，無需檢測(copy)

Dim?objExcelApp,objExcelBook,objExcelSheet

On?Error?Resume?Next

Dim?ExcelApp,ExcelBook

Set?ExcelApp??=?GetObject(,"Excel.Application")

If?TypeName(ExcleApp)?=?"Application"?Then

For?Each?ExcelBook?In?ExcelApp.WorkBooks

If?ExcelBook.FullName?="E:\報表\"?+?dstr?+?".xls"?Then

ExcelApp.ActiveWorkbook.Save

ExcelApp.Workbooks.Close

ExcelApp.Quit

Set?ExcelApp=Nothing

Exit?For

End?If

Next

End?If

''定義變量

''Dim?objExcelApp

Dim?tagtag1,tagtag2,tagtag3,tagtag4,tagtag5,tagtag6,tagtag7,tagtag8,tagtag9,tagtag10,tagtag11,tagtag12,tagtag13

Dim?i,j,xuhao

Dim?tagshijian,sheetname

''REPORT1.NO1~NO13需要記錄的數據

Set?tagtag1=HMIRuntime.Tags("REPORT1.NO1")

Set?tagtag2=HMIRuntime.Tags("REPORT1.NO2")

Set?tagtag3=HMIRuntime.Tags("REPORT1.NO3")

Set?tagtag4=HMIRuntime.Tags("REPORT1.NO4")

Set?tagtag5=HMIRuntime.Tags("REPORT1.NO5")

Set?xuhao=HMIRuntime.Tags("REPORT1_TR2")

sheetname="1#機當日批次報表"

''打開表格

Set?objExcelApp?=CreateObject("Excel.Application")

''open??file

objExcelApp.Visible=True

objExcelApp.Workbooks.Open"E:\報表\"?+?dstr?+?".xls"

objExcelApp.Worksheets(sheetname).Activate

''實時數據寫入

xuhao.Read

i=xuhao.Value+2

xuhao.Read

objExcelApp.Worksheets(sheetname).cells(i,1).value=?xuhao.Value

tagshijian=CStr(Hour(Now))&":"&CStr(Minute(Now))&":"&CStr(Second(Now))

objExcelApp.Worksheets(sheetname).cells(i,2).value=?tagshijian

tagtag1.Read

objExcelApp.Worksheets(sheetname).cells(i,3).value=?tagtag1.Value

tagtag2.Read

objExcelApp.Worksheets(sheetname).cells(i,4).value=?tagtag2.Value

tagtag3.Read

objExcelApp.Worksheets(sheetname).cells(i,5).value=?tagtag3.Value

tagtag4.Read

objExcelApp.Worksheets(sheetname).cells(i,6).value=?tagtag4.Value

tagtag5.Read

objExcelApp.Worksheets(sheetname).cells(i,7).value=?tagtag5.Value

''關閉保存

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set?objExcelApp=?Nothing

End?Sub

本回答有17位鉆石用戶推薦

回答者：

澤詩馮馮 - 中級技術員&nbsp&nbsp第6級

2019-07-25 22:22:01

上一頁

1

下一頁

總結

以上是生活随笔為你收集整理的wincc连接mysql数据库案例_WINCC读写SQL数据库的例子-工业支持中心-西门子中国的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。