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

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

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

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

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

5、e的對應(yīng)關(guān)系 32幾種常用的查詢需求和語句 1）絕對時(shí)間間隔 2）相對時(shí)間間隔 請注意，查詢不能包含任何空格。習(xí)慣上，執(zhí)行絕對時(shí)間查詢時(shí)需要將查詢的時(shí)間條件轉(zhuǎn)換成UTC (協(xié)調(diào)世界時(shí))時(shí)間。執(zhí)行相對時(shí)間查詢時(shí)請一定要注意相對時(shí)間的格式。建議使用MsgBox或者HMIRuntime.Trace等方式輸出數(shù)值以檢查格式是否正確。 33 查詢結(jié)果查詢結(jié)果作為記錄集返回。過程值歸檔的記錄集結(jié)構(gòu)如下表所示： 表1記錄集結(jié)構(gòu) 注意，WinCC的歸檔數(shù)據(jù)是使用UTC（協(xié)調(diào)世界時(shí)）時(shí)間保存的。因此在對數(shù)據(jù)進(jìn)行查詢和顯示時(shí)，需要對時(shí)間進(jìn)行適當(dāng)?shù)霓D(zhuǎn)換。 4組態(tài)介紹（以絕對時(shí)間間隔為例） 41準(zhǔn)備工作 1）創(chuàng)建變量

6、其中：NewTag用于創(chuàng)建過程值歸檔，strBeginTime 和strEndTime用于存儲查詢條件。sVal是時(shí)間間隔參數(shù)。如下圖所示： 圖2 變量 2） 創(chuàng)建過程值歸檔創(chuàng)建歸檔周期為一分鐘的過程值歸檔。如下圖所示： 圖3 歸檔配置 3）創(chuàng)建Excel模板在特定的路徑下預(yù)先創(chuàng)建一個(gè)Excel文件作為模板，這樣可以很好的控制輸出格式。本例中在D:WinCCWriteExcel下創(chuàng)建一個(gè)名稱為abc.xlsx的Excel文件。如下圖所示： 圖4 Excel模板 42組態(tài)查詢界面畫面上新建三個(gè)輸入/輸出域，分別用于輸入開始時(shí)間、結(jié)束時(shí)間和間隔時(shí)間。按鈕中執(zhí)行用于訪問變量歸檔數(shù)據(jù)的VBS腳本。 圖

7、5 查詢界面 43關(guān)鍵腳本介紹 1）打開Excel模板以后臺方式打開之前創(chuàng)建好的Excel模板。其中sheetname作為變量可以定義Excel中Sheet的名字。Set objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "D:WinCCWriteExcelabc.xlsx"objExcelApp.Worksheets(sheetname).Activate2）準(zhǔn)備查詢條件主要是確定和格式化Catalog

8、、UTC開始時(shí)間、UTC結(jié)束時(shí)間、時(shí)間間隔等查詢條件。因?yàn)楸本r(shí)間和UTC（協(xié)調(diào)世界時(shí)）時(shí)間相差8個(gè)小時(shí)，所以直接在程序中寫入固定的時(shí)間差值。Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")tagDSNName.ReadSet LocalBeginTime = HMIRuntime.Tags("strBeginTime")LocalBeginTime.ReadSet LocalEndTime = HMIRuntime.Tags("strEndTime")LocalEndTime.

9、ReadUTCBeginTime = DateAdd("h" ,-8,LocalBeginTime.Value)UTCEndTime= DateAdd("h" ,-8,LocalEndTime.Value)UTCBeginTime = Year(UTCBeginTime) & "-" & Month(UTCBeginTime) & "-" & Day(UTCBeginTime) & " " & Hour(UTCBeginTime) & &q

10、uot;:" & Minute(UTCBeginTime) & ":" & Second(UTCBeginTime)UTCEndTime = Year(UTCEndTime) & "-" & Month(UTCEndTime) & "-" & Day(UTCEndTime) & " " & Hour(UTCEndTime) & ":" & Minute(UTCEndTime) & "

11、;:" & Second(UTCEndTime)HMIRuntime.Trace "UTC Begin Time: " & UTCBeginTime & vbCrLfHMIRuntime.Trace "UTC end Time: " & UTCEndTime & vbCrLfSet sVal = HMIRuntime.Tags("sVal")sVal.Read另外，因?yàn)閃inCC中對訪問數(shù)據(jù)庫的時(shí)間格式有特殊的要求。所以程序中增加了格式化時(shí)間的代碼。更多詳細(xì)資料請參考連接：如何計(jì)算本地

12、時(shí)間和 UTC 時(shí)間的時(shí)間差，如何轉(zhuǎn)換 UTC 時(shí)間成 SQL 語句格式？22115636 3）讀取數(shù)據(jù)并寫入Excel中本段代碼主要是獲取數(shù)據(jù)并按照一定的格式填寫到打開的Excel文件中。其中sSql可以很靈活的定義開始和結(jié)束時(shí)間、排序方法和數(shù)據(jù)分析方法等。'創(chuàng)建數(shù)據(jù)庫聯(lián)接sPro = "Provider=WinCCOLEDBProvider.1;"sDsn = "Catalog=" &tagDSNName.Value& ""sSer = "Data Source=.WinCC"sCon

13、= sPro + sDsn + sSerSet conn = CreateObject("ADODB.Connection")conn.ConnectionString = sConconn.CursorLocation = 3conn.Open'定義查詢的命令文本 SQLsSql = "Tag:R,('PVArchiveNewTag'),'" & UTCBeginTime & "','" & UTCEndTime & "',"

14、sSql=sSql+"'order by Timestamp ASC','TimeStep=" & sVal.Value & ",1'"Set oRs = CreateObject("ADODB.Recordset")Set oCom = CreateObject("ADODB.Command")oCom.CommandType = 1Set oCom.ActiveConnection = connoCom.CommandText = sSql'填充數(shù)據(jù)到Ex

15、cel中Set oRs = oCom.Executem = oRs.RecordCountIf (m > 0) ThenobjExcelApp.Worksheets(sheetname).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(sheetna

16、me).cells(2,4).value=oRs.Fields(3).NameobjExcelApp.Worksheets(sheetname).cells(2,5).value=oRs.Fields(4).NameoRs.MoveFirsti=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(o

17、Rs.Fields(1).Value)objExcelApp.Worksheets(sheetname).cells(i,3).value= oRs.Fields(2).ValueobjExcelApp.Worksheets(sheetname).cells(i,4).value= oRs.Fields(3).ValueobjExcelApp.Worksheets(sheetname).cells(i,5).value= oRs.Fields(4).ValueoRs.MoveNexti=i+1LoopoRs.CloseElseMsgBox "沒有所需數(shù)據(jù)"item.Enab

18、led = TrueSet oRs = Nothingconn.CloseSet conn = NothingobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp= NothingExit SubEnd If注意：因?yàn)閿?shù)據(jù)庫中數(shù)據(jù)存儲的時(shí)間戳是UTC時(shí)間，所以在顯示的時(shí)候需要把UTC時(shí)間轉(zhuǎn)換為本地時(shí)間，上段代碼中的GetLocalDate函數(shù)就是實(shí)現(xiàn)這樣的功能。本例中是在全局腳本的VBS-Editor中創(chuàng)建的該函數(shù)。添加函數(shù)的方法如下圖所示： 圖6添加時(shí)間轉(zhuǎn)換函數(shù) 主要的代碼如下：Function GetLocalDate(vtD

19、ate)Dim DoYDim dsoDim dwiDim strComputer, objWMIService, colItems, objItemDim TimeZoneDim vtDateLocalDatestrComputer = "."Set objWMIService = GetObject("winmgmts:" & "impersonationLevel=impersonate!" & strComputer & "rootcimv2")Set colItems = objWM

20、IService.ExecQuery("Select * from Win32_TimeZone")For Each objItem In colItemsTimeZone = objItem.Bias / 60 'offset TimeZone In hoursNextIf IsDate(vtDate) <> True ThenIS_GetLocalDate = FalseExit FunctionEnd IfDoY = DatePart("y", vtDate)dso = DatePart("y", "

21、;31.03") - DatePart("w", "31.03") + 1dwi = DatePart("y", "31.10") - DatePart("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)于時(shí)間轉(zhuǎn)換的信息請參考連接：如何將本地計(jì)算機(jī)時(shí)間的時(shí)間戳（日期時(shí)間）轉(zhuǎn)換成協(xié)調(diào)世界時(shí) (UTC)?  24201113 4） 保存文件并釋放資源'釋放資源Set oRs = Nothingconn.CloseSet conn = Nothing'生