admin 管理员组

文章数量: 1184232


2024年4月30日发(作者：91永久海外地域网名高新)

文档类型常问问题, 条目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连通性软件

包提供的OLE-DB接口才能够解压并读取这些数据。关于WinCC连通性软件包的详细信

息请参考连接：37436159

当使用 OLE-DB方式访问数据库时关键需要注意连接字符串的写法和查询语句的格

式。连接字符串格式为“Provider=WinCCOLEDBProvider.1; Catalog= ***; Data

Source= ***;”，其中Catalog为WinCC运行数据库的名称， 当修改项目名称或在其它

计算机上打开原项目时, Catalog会发生变化。建议使用WinCC内部变量

“@DatasourceNameRT” 获得当前项目的Catalog。Data Source 为服务器名称，格

式为“<计算机名称>WinCC”。

3．1 查询语句格式

数据的查询语句的格式要求如下：

8 字节长 ValueID 的请求：

TAG_LLVID:R,

ValueName>,,[,][,]

4 字节长 ValueID 的请求：

TAG:R,

ValueName>,,[,][,]

其中：

ValueID：过程值归档变量的唯一标识符。

ValueName：过程值归档变量的名称，格式为“ArchiveNameValue_Name”，可

以使用多个名称。

TimeBegin,TimeEnd：时间范围，格式 “YYYY-MM-DD hh:mm:”。

SQL_Clause：SQL 语法中的过滤标准。

TimeStep：时间间隔。使用 时，必须将 指定为绝对

时间。禁止使用相对语句“0000-00-00 00:00:00.000”。

其中ValueID和ValueName的对应关系如下图所示：

图1 ValueID和ValueName的对应关系

3．2几种常用的查询需求和语句

1）绝对时间间隔

2）相对时间间隔

请注意，查询不能包含任何空格。习惯上，执行绝对时间查询时需要将查询的时间条

件转换成UTC (协调世界时)时间。执行相对时间查询时请一定要注意相对时间的格式。建

议使用MsgBox或者等方式输出数值以检查格式是否正确。

3．3 查询结果

查询结果作为记录集返回。过程值归档的记录集结构如下表所示：

表1记录集结构

注意，WinCC的归档数据是使用UTC（协调世界时）时间保存的。因此在对数据进行

查询和显示时，需要对时间进行适当的转换。

4组态介绍（以绝对时间间隔为例）

4．1准备工作

1）创建变量

其中：NewTag用于创建过程值归档，strBeginTime 和strEndTime用于存储查询

条件。sVal是时间间隔参数。如下图所示：

图2 变量

2） 创建过程值归档

创建归档周期为一分钟的过程值归档。如下图所示：

图3 归档配置

3）创建Excel模板

在特定的路径下预先创建一个Excel文件作为模板，这样可以很好的控制输出格式。

本例中在D:WinCCWriteExcel下创建一个名称为的Excel文件。如下图所示：

图4 Excel模板

4．2组态查询界面

画面上新建三个输入/输出域，分别用于输入开始时间、结束时间和间隔时间。按钮中

执行用于访问变量归档数据的VBS脚本。

图5 查询界面

4．3关键脚本介绍

1）打开Excel模板

以后台方式打开之前创建好的Excel模板。其中sheetname作为变量可以定义Excel

中Sheet的名字。

Set objExcelApp = CreateObject("ation")

e = False

"D:"

eets(sheetname).Activate

2）准备查询条件

主要是确定和格式化Catalog、UTC开始时间、UTC结束时间、时间间隔等查询条件。

因为北京时间和UTC（协调世界时）时间相差8个小时，所以直接在程序中写入固定的时

间差值。

Set tagDSNName = ("@DatasourceNameRT")

Set LocalBeginTime = ("strBeginTime")

Set LocalEndTime = ("strEndTime")

UTCBeginTime = DateAdd("h" ,-8,)

UTCEndTime= DateAdd("h" ,-8,)

UTCBeginTime = Year(UTCBeginTime) & "-" & Month(UTCBeginTime) & "-" &

Day(UTCBeginTime) & " " & Hour(UTCBeginTime) & ":" & Minute(UTCBeginTime)

& ":" & Second(UTCBeginTime)

UTCEndTime = Year(UTCEndTime) & "-" & Month(UTCEndTime) & "-" &

Day(UTCEndTime) & " " & Hour(UTCEndTime) & ":" & Minute(UTCEndTime) & ":"

& Second(UTCEndTime)

"UTC Begin Time: " & UTCBeginTime & vbCrLf

"UTC end Time: " & UTCEndTime & vbCrLf

Set sVal = ("sVal")

另外，因为WinCC中对访问数据库的时间格式有特殊的要求。所以程序中增加了格

式化时间的代码。更多详细资料请参考连接：

如何计算本地时间和 UTC 时间的时间差，如何转换 UTC 时间成 SQL 语句格式？

22115636

3）读取数据并写入Excel中

本段代码主要是获取数据并按照一定的格式填写到打开的Excel文件中。其中sSql可

以很灵活的定义开始和结束时间、排序方法和数据分析方法等。

'创建数据库联接

sPro = "Provider=WinCCOLEDBProvider.1;"

sDsn = "Catalog=" && ";"

sSer = "Data Source=.WinCC"

sCon = sPro + sDsn + sSer

Set conn = CreateObject("tion")

tionString = sCon

Location = 3

'定义查询的命令文本 SQL

sSql = "Tag:R,('PVArchiveNewTag'),'" & UTCBeginTime & "','" & UTCEndTime

& "',"

sSql=sSql+"'order by Timestamp ASC','TimeStep=" & & ",1'"

Set oRs = CreateObject("set")

Set oCom = CreateObject("d")

dType = 1

Set Connection = conn

dText = sSql

'填充数据到Excel中

Set oRs = e

m = Count

If (m > 0) Then

eets(sheetname).cells(2,1).value=(0).Name

eets(sheetname).cells(2,2).value=(1).Name

eets(sheetname).cells(2,3).value=(2).Name

eets(sheetname).cells(2,4).value=(3).Name

eets(sheetname).cells(2,5).value=(4).Name

rst

i=3

Do While Not '是否到记录末尾，循环填写表格

eets(sheetname).cells(i,1).value= (0).Value

eets(sheetname).cells(i,2).value=

GetLocalDate((1).Value)

eets(sheetname).cells(i,3).value= (2).Value

eets(sheetname).cells(i,4).value= (3).Value

eets(sheetname).cells(i,5).value= (4).Value

xt

i=i+1

Loop

Else

MsgBox "没有所需数据……"

d = True

Set oRs = Nothing

Set conn = Nothing

Set objExcelApp= Nothing

Exit Sub

End If

注意：因为数据库中数据存储的时间戳是UTC时间，所以在显示的时候需要把UTC

时间转换为本地时间，上段代码中的GetLocalDate函数就是实现这样的功能。本例中是

在全局脚本的VBS-Editor中创建的该函数。添加函数的方法如下图所示：

图6添加时间转换函数

主要的代码如下：

Function GetLocalDate(vtDate)

Dim DoY

Dim dso

Dim dwi

Dim strComputer, objWMIService, colItems, objItem

Dim TimeZone

Dim vtDateLocalDate

strComputer = "."

Set objWMIService = GetObject("winmgmts:" &

"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colItems = ery("Select * from Win32_TimeZone")

For Each objItem In colItems

TimeZone = / 60 'offset TimeZone In hours

Next

If IsDate(vtDate) <> True Then

IS_GetLocalDate = False

Exit Function

End If

DoY = DatePart("y", vtDate)

dso = DatePart("y", "31.03") - DatePart("w", "31.03") + 1

dwi = DatePart("y", "31.10") - DatePart("w", "31.10") + 1

If DoY >= dso And DoY < dwi Then

'sommer

TimeZone = TimeZone + 1 'additional offset 1h in summer

End If

vtDateLocalDate = DateAdd("h", 1 * TimeZone, vtDate)

GetLocalDate = vtDateLocalDate

End Function

更多关于时间转换的信息请参考连接：

如何将本地计算机时间的时间戳（日期时间）转换成协调世界时 (UTC)?

4） 保存文件并释放资源

'释放资源

24201113

Set oRs = Nothing

Set conn = Nothing

'生成新的文件,关闭Excel

Dim patch,filename

filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(N

ow)) +CStr(Minute(Now))&CStr(Second(Now))

patch= "d:"&filename&""

patch

Set objExcelApp= Nothing

MsgBox "成功生成数据文件!"

d = True

5结果和建议

下图为程序执行的结果。仅供参考：

图7输出结果

建议：为了改善本地访问期间的性能，请输入“<计算机名称>WinCC”作为数据源，

而不是“.WinCC”。为了提高系统的执行效率，建议仅读取少量的数据。为了避免可能造

成的数据损失，建议在执行操作之前先退出Excel应用程序。

附代码仅供参考： ( 1 KB )

( 4 KB )

声明：

本文所述的方法为WinCC的高级用法，提供的代码程序仅供用户参考，西门子公司

不提供任何调试和热线支持。敬请谅解！

关键词

WinCC、Excel、VBS、脚本、连通性软件包


本文标签： 时间 查询 归档 数据 格式

版权声明：本文标题：在WinCC中如何使用VBS读取变量归档数据到EXCEL 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714451385a680694.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。