在WinCC中如何使用VBS读取变量归档数据到EXCEL课案

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 20073访问原理WinCC变量归档数据是以压缩的形式存储在数据库中,需要通过 WinCC连通性软件包提供的 OLE

2、-DB接口才能够解压并读取这些数据。关于 WinCC连通性软件包的详细信息请参考连接：37436159当使用OLE-DB方式访问数据库时关键需要注意连接字符串的写法和查询语句的格式。连接字符串格式为"Provider=WinCCOLEDBProvider.1; Catalog= *; Data Source= *;*,其中 Catalog 为 WinCC 运行数据库的名称，当修改项目名称或在其它计算机上打开原项目时，Catalog会发生变化。建议使用 WinCC内部变量 “DatasourceNameRT ” 获得当前项目的 Catalog 。 Data Source 为服务器名称，

3、格式为“< 计算机名称>WinCC ”。3. 1查询语句格式数据的查询语句的格式要求如下：8字节长ValuelD 的请求：TAG_LLVID:R,<ValueID 或 ValueName>,<TimeBegin>,vTimeEnd><SQL_clause>/<TimeStep>4字节长ValuelD 的请求：TAG:R,<ValueID 或ValueName>,<TimeBegin>,<TimeEnd>,<SQL_clause>/<TimeStep>其中：ValuelD

4、 :过程值归档变量的唯一标识符。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 ” 。其中ValuelD和ValueName的对应关系

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 的对应关系3. 2几种常用的查询需求和语句1）绝对时间间隔2）相对时间间隔请注意，查询不能包含任何空格。习惯上，执行绝对时间查询时需要将查询的时间条件转换成UTC （协调世界时）时间。执行相对时间查询时请一定要注意相对时间的格式。建议使用MsgBox或者HMIRuntime.Trace 等方式输出

7、数值以检查格式是否正确。3. 3查询结果查询结果作为记录集返回。过程值归档的记录集结构如下表所示：域名称类型注料ValuelD整型（4字节）或捶型（8字节）值的唯一标识长度取决于查询的类型©TimeStamp日期时间时间也RealValue买型（B字节）变盘值Quality整矍（4字节）值的质量代痣（例如“好"或嗡m ） CFlags整型（4字节）内部控制参数表1记录集结构注意，WinCC的归档数据是使用 UTC （协调世界时）时间保存的。因此在对数据进行查询和显示时，需 要对时间进行适当的转换。4组态介绍（以绝对时间间隔为例）4. 1准备工作1）创建变量其中：NewTag

8、用于创建过程值归档,strBeginTime 和strEndTime用于存储查询条件。sVal是时间间隔参数。如下图所示:2 Ka*T»g_l. strBeginT i e 色.strEndTime.5连1 无符号6位数无符号6位数文本变量3位字符集文本变量3位字符集无符号32位数图2变量2）创建过程值归档创建归档周期为一分钟的过程值归档。如下图所示:图3归档配置3）创建Excel模板在特定的路径下预先创建一个 Excel文件作为模板，这样可以很好的控制输出格式。本例中在D:WinCCWriteExcel 下创建一个名称为 abc.xlsx的Excel文件。如下图所示：口门 d q

9、”,abcjdsx - Microsoft £xce开隹i塞人广宜前国公式 戮宸 中其 醒开发二辰tcUjsrM 川箍归档窗试擢表一& B 【 C .0 _ .£: F G H 工 口1 IVRS读取变量灯档测试报表4. 2组态查询界面画面上新建三个输入/输出域，分别用于输入开始时间、结束时间和间隔时间。按钮中执行用于访问变量归 档数据的VBS脚本。图5查询界面守昌举隔千常现-但台井话总口，吗,，|喇名:*建字信图4 Excel模板4. 3关键脚本介绍1)打开Excel模板以后台方式打开之前创建好的Excel模板。其中sheetname作为变量可以定义 Excel中

10、Sheet的名字。Set objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "D:WinCCWriteExcelabc.xlsx"objExcelApp.Worksheets(sheetname).Activate2)准备查询条件主要是确定和格式化 Catalog、UTC开始时间、UTC结束时间、时间间隔等查询条件。因为北京时间和 UTC (协调世界时)时间相差 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另外，因为 WinCC中对访问数据库的时间格式有特殊的要求。所以程序中增加了格式化时间的代码。更多详细资料请参考连接：如何计算本地时间和UTC时间的时间差，如何转换UTC时间成SQL语句格式？ 221156363)读取数据并写入 Excel中本段代码主要是获取数据并按照一

15、定的格式填写到打开的Excel文件中。其中sSql可以很灵活的定义开始和结束时间、排序方法和数据分析方法等。创建数据库联接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填充数据到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 '是否到记录末尾，循环填写表格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 "没有所需数据"item.Enabled = TrueSet oRs = Nothing conn.CloseSet conn = NothingobjExcelApp.Workbooks.CloseobjExc

21、elApp.QuitSet objExcelApp= NothingExit SubEnd If注意：因为数据库中数据存储的时间戳是UTC时间，所以在显示的时候需要把UTC时间转换为本地时间，上段代码中的GetLocalDate函数就是实现这样的功能。本例中是在全局脚本的VBS-Editor中创建的该函数。添加函数的方法如下图所示：a据先n ALEUT 扬人口.雄庆0一直口年 龄助®斯速妙H0医目横决庄)tlltFl1* 打开(Q). . .CtrlKJ美团GQ 偃寻 Q)CiFi*5另寻力如才标嚏视费用*L1*FZ面覆模快：Alt+IIOJ 动作(i)二J文件典D iiri Do&

22、#165;P ira di3i 励* 'fivi*W H E 赢Ms值目槿按:Lt文:事库 .均文市圮祀典 济用户首理制-J 3克索引it Global Sei ipt YDS = CeI t inSt hi t«:(项目重收)口diileJL b心图6添加时间转换函数主要的代码如下：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更多关于时间转换的信息请参考连接：如何将本地计算机时间的时间戳(日期时间)转换成协调世界时(U

26、TC)? 242011134)保存文件并释放资源释放资源Set oRs = Nothingconn.CloseSet conn = Nothing生成新的文件，关闭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 "成功生成数据文件!"item.Enabled = True5结果和建议下图为程序执行的结果。仅供参考:ABCDE1VBR读取变量归档测试报表I2ValuelDTiniest ampRealValueQualityFlags3162011-8-30 092007650176664162011-8-30 093062128842547251G2011-8-30 0940012884254726162011-8-30 09509612884254727162011-B-30 1000191288425472S162011-8-30 1010812884254729162011-8-30 1020