在WinCC中如何使用VBS讀取變量歸檔數(shù)據(jù)到EXCEL課案

1、文檔類型常問問題，條目ID: 77940055 ,文檔發(fā)布日期2013年7月23日)4(評估在 WinCC中如何使用 VBS讀取變量歸檔數(shù)據(jù)到 EXCEL推薦文檔：西門子工程師推薦本文檔!文獻(xiàn) 涉及產(chǎn)品1概述介紹如何在 WinCC項目中使用VBS腳本讀取變量歸檔值，并把獲取的數(shù)據(jù)保存成新的Excel文件。文中示例代碼僅適用于以絕對時間間隔方式訪問。2軟件環(huán)境Windows XP SP3 中文版、 WinCC7.0 SP2 ASIA 、Microsoft office Excel 20073訪問原理WinCC變量歸檔數(shù)據(jù)是以壓縮的形式存儲在數(shù)據(jù)庫中,需要通過 WinCC連通性軟件包提供的 OLE

2、-DB接口才能夠解壓并讀取這些數(shù)據(jù)。關(guān)于 WinCC連通性軟件包的詳細(xì)信息請參考連接：37436159當(dāng)使用OLE-DB方式訪問數(shù)據(jù)庫時關(guān)鍵需要注意連接字符串的寫法和查詢語句的格式。連接字符串格式為"Provider=WinCCOLEDBProvider.1; Catalog= *; Data Source= *;*,其中 Catalog 為 WinCC 運(yùn)行數(shù)據(jù)庫的名稱，當(dāng)修改項目名稱或在其它計算機(jī)上打開原項目時，Catalog會發(fā)生變化。建議使用 WinCC內(nèi)部變量 “DatasourceNameRT ” 獲得當(dāng)前項目的 Catalog 。 Data Source 為服務(wù)器名稱，

3、格式為“< 計算機(jī)名稱>WinCC ”。3. 1查詢語句格式數(shù)據(jù)的查詢語句的格式要求如下：8字節(jié)長ValuelD 的請求：TAG_LLVID:R,<ValueID 或 ValueName>,<TimeBegin>,vTimeEnd><SQL_clause>/<TimeStep>4字節(jié)長ValuelD 的請求：TAG:R,<ValueID 或ValueName>,<TimeBegin>,<TimeEnd>,<SQL_clause>/<TimeStep>其中：ValuelD

4、 :過程值歸檔變量的唯一標(biāo)識符。ValueName :過程值歸檔變量的名稱，格式為" ArchiveNameValue_Name ",可以使用多個名稱。 TimeBegin,TimeEnd :時間范圍，格式 "YYYY-MM-DD hh:mm:ss.msc ”。SQL_Clause : SQL語法中的過濾標(biāo)準(zhǔn)。TimeStep :時間間隔。使用 <TimeStep> 時，必須將 <TimeBegin> 指定為絕對時間。禁止使用相對語 句 “0000-00-00 00:00:00.000 ” 。其中ValuelD和ValueName的對應(yīng)關(guān)系

5、如下圖所示:TSrrMlKC.dlbo. ilLr ehi vaVatuelDVakjfrNameqPVAReportmgeportT agChC5PVAReportHReporCT «gBhC.6PVARepor tmReportT ag AhC7PVARepwtMnpeportT 4nmnC,.,8PVARepcrtMriReptMt T AgEmnC* .9PVARaportMnReport T ArnnC .10PVARaportmReportl 第 AhAvg11P WeportHR&pwtT AhMix，+.12P VARepOfftHRepOf tl agAhM

6、in13PVAReportb*iRep(xtTag£nnrvg 14P VAReportMnR*pCTt TISPVAReportMnRep ort T 叫t nmnMin.16VAichirveVwTag17PVAr chiveMewT 明*AW圖1 ValuelD 和ValueName 的對應(yīng)關(guān)系3. 2幾種常用的查詢需求和語句1）絕對時間間隔2）相對時間間隔請注意，查詢不能包含任何空格。習(xí)慣上，執(zhí)行絕對時間查詢時需要將查詢的時間條件轉(zhuǎn)換成UTC （協(xié)調(diào)世界時）時間。執(zhí)行相對時間查詢時請一定要注意相對時間的格式。建議使用MsgBox或者HMIRuntime.Trace 等方式輸出

7、數(shù)值以檢查格式是否正確。3. 3查詢結(jié)果查詢結(jié)果作為記錄集返回。過程值歸檔的記錄集結(jié)構(gòu)如下表所示：域名稱類型注料ValuelD整型（4字節(jié)）或捶型（8字節(jié)）值的唯一標(biāo)識長度取決于查詢的類型©TimeStamp日期時間時間也RealValue買型（B字節(jié)）變盤值Quality整矍（4字節(jié)）值的質(zhì)量代痣（例如“好"或嗡m ） CFlags整型（4字節(jié)）內(nèi)部控制參數(shù)表1記錄集結(jié)構(gòu)注意，WinCC的歸檔數(shù)據(jù)是使用 UTC （協(xié)調(diào)世界時）時間保存的。因此在對數(shù)據(jù)進(jìn)行查詢和顯示時，需 要對時間進(jìn)行適當(dāng)?shù)霓D(zhuǎn)換。4組態(tài)介紹（以絕對時間間隔為例）4. 1準(zhǔn)備工作1）創(chuàng)建變量其中：NewTag

8、用于創(chuàng)建過程值歸檔,strBeginTime 和strEndTime用于存儲查詢條件。sVal是時間間隔參數(shù)。如下圖所示:2 Ka*T»g_l. strBeginT i e 色.strEndTime.5連1 無符號6位數(shù)無符號6位數(shù)文本變量3位字符集文本變量3位字符集無符號32位數(shù)圖2變量2）創(chuàng)建過程值歸檔創(chuàng)建歸檔周期為一分鐘的過程值歸檔。如下圖所示:圖3歸檔配置3）創(chuàng)建Excel模板在特定的路徑下預(yù)先創(chuàng)建一個 Excel文件作為模板，這樣可以很好的控制輸出格式。本例中在D:WinCCWriteExcel 下創(chuàng)建一個名稱為 abc.xlsx的Excel文件。如下圖所示：口門 d q

9、”,abcjdsx - Microsoft £xce開隹i塞人廣宜前國公式 戮宸 中其 醒開發(fā)二辰tcUjsrM 川箍歸檔窗試擢表一& B 【 C .0 _ .£: F G H 工 口1 IVRS讀取變量燈檔測試報表4. 2組態(tài)查詢界面畫面上新建三個輸入/輸出域，分別用于輸入開始時間、結(jié)束時間和間隔時間。按鈕中執(zhí)行用于訪問變量歸 檔數(shù)據(jù)的VBS腳本。圖5查詢界面守昌舉隔千常現(xiàn)-但臺井話總口，嗎,，|喇名:*建字信圖4 Excel模板4. 3關(guān)鍵腳本介紹1)打開Excel模板以后臺方式打開之前創(chuàng)建好的Excel模板。其中sheetname作為變量可以定義 Excel中

10、Sheet的名字。Set objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "D:WinCCWriteExcelabc.xlsx"objExcelApp.Worksheets(sheetname).Activate2)準(zhǔn)備查詢條件主要是確定和格式化 Catalog、UTC開始時間、UTC結(jié)束時間、時間間隔等查詢條件。因?yàn)楸本r間和 UTC (協(xié)調(diào)世界時)時間相差 8個小時，所以直接在程序中寫入固定的時間差

11、值。Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")tagDSNName.ReadSet LocalBeginTime = HMIRuntime.Tags("strBeginTime")LocalBeginTime.ReadSet LocalEndTime = HMIRuntime.Tags("strEndTime")LocalEndTime.ReadUTCBeginTime = DateAdd("h" ,-8,LocalBeginTime.Value)UTC

12、EndTime= DateAdd("h" ,-8,LocalEndTime.Value)UTCBeginTime = Year(UTCBeginTime) & "-" & Month(UTCBeginTime) & "-" & Day(UTCBeginTime) & ""& Hour(UTCBeginTime) & ":" & Minute(UTCBeginTime) & ":" & Second

13、(UTCBeginTime)UTCEndTime = Year(UTCEndTime) & "-" & Month(UTCEndTime) & "-" & Day(UTCEndTime) & " " &Hour(UTCEndTime) & ":" & Minute(UTCEndTime) & ":" & Second(UTCEndTime)HMIRuntime.Trace "UTC Begin Time:

14、" & UTCBeginTime & vbCrLfHMIRuntime.Trace "UTC end Time: " & UTCEndTime & vbCrLfSet sVal = HMIRuntime.Tags("sVal")sVal.Read另外，因?yàn)?WinCC中對訪問數(shù)據(jù)庫的時間格式有特殊的要求。所以程序中增加了格式化時間的代碼。更多詳細(xì)資料請參考連接：如何計算本地時間和UTC時間的時間差，如何轉(zhuǎn)換UTC時間成SQL語句格式？ 221156363)讀取數(shù)據(jù)并寫入 Excel中本段代碼主要是獲取數(shù)據(jù)并按照一

15、定的格式填寫到打開的Excel文件中。其中sSql可以很靈活的定義開始和結(jié)束時間、排序方法和數(shù)據(jù)分析方法等。創(chuàng)建數(shù)據(jù)庫聯(lián)接sPro = "Provider=WinCCOLEDBProvider.1;"sDsn = "Catalog=" &tagDSNName.Value& ""sSer = "Data Source=.WinCC"sCon = sPro + sDsn + sSerSet conn = CreateObject("ADODB.Connection")conn.Con

16、nectionString = sConconn.CursorLocation = 3conn.Open定義查詢的命令文本SQLsSql = "Tag:R,('PVArchiveNewTag'),'" & UTCBeginTime & "','" & UTCEndTime & "',"sSql=sSql+"'order by Timestamp ASC','TimeStep=" & sVal.Value

17、& ",1'"Set oRs = CreateObject("ADODB.Recordset")Set oCom = CreateObject("ADODB.Command")oCom.CommandType = 1Set oCom.ActiveConnection = connoCom.CommandText = sSql填充數(shù)據(jù)到Excel中Set oRs = oCom.Executem = oRs.RecordCountIf (m > 0) ThenobjExcelApp.Worksheets(sheetn

18、ame).cells(2,1).value=oRs.Fields(0).NameobjExcelApp.Worksheets(sheetname).cells(2,2).value=oRs.Fields(1).NameobjExcelApp.Worksheets(sheetname).cells(2,3).value=oRs.Fields(2).NameobjExcelApp.Worksheets(sheetname).cells(2,4).value=oRs.Fields(3).NameobjExcelApp.Worksheets(sheetname).cells(2,5).value=oR

19、s.Fields(4).NameoRs.MoveFirst i=3Do While Not oRs.EOF '是否到記錄末尾，循環(huán)填寫表格objExcelApp.Worksheets(sheetname).cells(i,1).value= oRs.Fields(0).ValueobjExcelApp.Worksheets(sheetname).cells(i,2).value=GetLocalDate(oRs.Fields(1).Value)objExcelApp.Worksheets(sheetname).cells(i,3).value= oRs.Fields(2).Valueo

20、bjExcelApp.Worksheets(sheetname).cells(i,4).value= oRs.Fields(3).ValueobjExcelApp.Worksheets(sheetname).cells(i,5).value= oRs.Fields(4).Value oRs.MoveNexti=i+1Loop oRs.CloseElseMsgBox "沒有所需數(shù)據(jù)"item.Enabled = TrueSet oRs = Nothing conn.CloseSet conn = NothingobjExcelApp.Workbooks.CloseobjExc

21、elApp.QuitSet objExcelApp= NothingExit SubEnd If注意：因?yàn)閿?shù)據(jù)庫中數(shù)據(jù)存儲的時間戳是UTC時間，所以在顯示的時候需要把UTC時間轉(zhuǎn)換為本地時間，上段代碼中的GetLocalDate函數(shù)就是實(shí)現(xiàn)這樣的功能。本例中是在全局腳本的VBS-Editor中創(chuàng)建的該函數(shù)。添加函數(shù)的方法如下圖所示：a據(jù)先n ALEUT 揚(yáng)人口.雄慶0一直口年 齡助®斯速妙H0醫(yī)目橫決莊)tlltFl1* 打開(Q). . .CtrlKJ美團(tuán)GQ 偃尋 Q)CiFi*5另尋力如才標(biāo)嚏視費(fèi)用*L1*FZ面覆模快：Alt+IIOJ 動作(i)二J文件典D iiri Do&

22、#165;P ira di3i 勵* 'fivi*W H E 贏Ms值目槿按:Lt文:事庫 .均文市圮祀典 濟(jì)用戶首理制-J 3克索引it Global Sei ipt YDS = CeI t inSt hi t«:(項目重收)口diileJL b心圖6添加時間轉(zhuǎn)換函數(shù)主要的代碼如下：Function GetLocalDate(vtDate)Dim DoYDim dsoDim dwiDim strComputer, objWMIService, colItems, objItemDim TimeZoneDim vtDateLocalDatestrComputer ="

23、;."Set objWMIService = GetObject("winmgmts:" & "impersonationLevel=impersonate!" & strComputer & "rootcimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")For Each objItem In colItemsTimeZone = objItem.Bias / 60 'of

24、fset TimeZone In hoursNextIf IsDate(vtDate) <> True ThenIS_GetLocalDate = FalseExit FunctionEnd IfDoY = DatePart("y", vtDate)dso = DatePart("y", "31.03") - DatePart("w", "31.03") + 1dwi = DatePart("y", "31.10") - DatePart(&q

25、uot;w", "31.10") + 1If DoY >= dso And DoY < dwi Then'sommerTimeZone = TimeZone + 1 'additional offset 1h in summerEnd IfvtDateLocalDate = DateAdd("h", 1 * TimeZone, vtDate)GetLocalDate = vtDateLocalDateEnd Function更多關(guān)于時間轉(zhuǎn)換的信息請參考連接：如何將本地計算機(jī)時間的時間戳(日期時間)轉(zhuǎn)換成協(xié)調(diào)世界時(U

26、TC)? 242011134)保存文件并釋放資源釋放資源Set oRs = Nothingconn.CloseSet conn = Nothing生成新的文件，關(guān)閉ExcelDim patch,filenamefilename=CStr(Year(Now)&CStr(Month(Now)&CStr(Day(Now)&CStr(Hour(Now)+CStr(Minute(Now)&CStr(Second(Now)patch= "d:"&filename&"demo.xlsx"objExcelApp.Activ

27、eWorkbook.SaveAs patchobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp= NothingMsgBox "成功生成數(shù)據(jù)文件!"item.Enabled = True5結(jié)果和建議下圖為程序執(zhí)行的結(jié)果。僅供參考:ABCDE1VBR讀取變量歸檔測試報表I2ValuelDTiniest ampRealValueQualityFlags3162011-8-30 092007650176664162011-8-30 093062128842547251G2011-8-30 0940012884254726162011-8-30 09509612884254727162011-B-30 1000191288425472S162011-8-30 1010812884254729162011-8-30 1020