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

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

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

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

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

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

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

8、、UTC開始時間、UTC結束時間、時間間隔等查詢條件。因為北京時間和UTC（協調世界時）時間相差8個小時，所以直接在程序中寫入固定的時間差值。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另外，因為WinCC中對訪問數據庫的時間格式有特殊的要求。所以程序中增加了格式化時間的代碼。更多詳細資料請參考連接：如何計算本地

12、時間和 UTC 時間的時間差，如何轉換 UTC 時間成 SQL 語句格式？22115636 3）讀取數據并寫入Excel中本段代碼主要是獲取數據并按照一定的格式填寫到打開的Excel文件中。其中sSql可以很靈活的定義開始和結束時間、排序方法和數據分析方法等。'創建數據庫聯接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'填充數據到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 '是否到記錄末尾，循環填寫表格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 "沒有所需數據"item.Enab

18、led = TrueSet oRs = Nothingconn.CloseSet conn = NothingobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp= NothingExit SubEnd If注意：因為數據庫中數據存儲的時間戳是UTC時間，所以在顯示的時候需要把UTC時間轉換為本地時間，上段代碼中的GetLocalDate函數就是實現這樣的功能。本例中是在全局腳本的VBS-Editor中創建的該函數。添加函數的方法如下圖所示： 圖6添加時間轉換函數 主要的代碼如下：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更多關于時間轉換的信息請參考連接：如何將本地計算機時間的時間戳（日期時間）轉換成協調世界時 (UTC)?  24201113 4） 保存文件并釋放資源'釋放資源Set oRs = Nothingconn.CloseSet conn = Nothing'生