WINCC+VBS报表Word下载.docx

WINCC+VBS报表Word下载.docx

《WINCC+VBS报表Word下载.docx》由会员分享，可在线阅读，更多相关《WINCC+VBS报表Word下载.docx（11页珍藏版）》请在冰豆网上搜索。

ValueID：

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

ValueName：

过程值归档变量的名称，格式为“ArchiveName\Value_Name”，可以使用多个名称。

TimeBegin,TimeEnd：

时间范围，格式“YYYY-MM-DDhh:

mm:

ss.msc”。

SQL_Clause：

SQL语法中的过滤标准。

TimeStep：

时间间隔。

使用<

时，必须将<

指定为绝对时间。

禁止使用相对语句“0000-00-0000:

00:

00.000”。

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

图1ValueID和ValueName的对应关系

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

1）绝对时间间隔

2）相对时间间隔

请注意，查询不能包含任何空格。

习惯上，执行绝对时间查询时需要将查询的时间条件转换成UTC（协调世界时）时间。

执行相对时间查询时请一定要注意相对时间的格式。

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

3．3查询结果

查询结果作为记录集返回。

过程值归档的记录集结构如下表所示：

表1记录集结构

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

因此在对数据进行查询和显示时，需要对时间进行适当的转换。

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

4．1准备工作

1）创建变量

NewTag用于创建过程值归档，strBeginTime和strEndTime用于存储查询条件。

sVal是时间间隔参数。

如下图所示：

图2变量

2）创建过程值归档

创建归档周期为一分钟的过程值归档。

图3归档配置

3）创建Excel模板

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

本例中在D:

\WinCCWriteExcel下创建一个名称为abc.xlsx的Excel文件。

图4Excel模板

4．2组态查询界面

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

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

图5查询界面

4．3关键脚本介绍

1）打开Excel模板

以后台方式打开之前创建好的Excel模板。

其中sheetname作为变量可以定义Excel中Sheet的名字。

SetobjExcelApp=CreateObject（"

Excel.Application"

）

objExcelApp.Visible=False

objExcelApp.Workbooks.Open"

D:

\WinCCWriteExcel\abc.xlsx"

objExcelApp.Worksheets（sheetname）.Activate

2）准备查询条件

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

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

SettagDSNName=HMIRuntime.Tags（"

@DatasourceNameRT"

tagDSNName.Read

SetLocalBeginTime=HMIRuntime.Tags（"

strBeginTime"

LocalBeginTime.Read

SetLocalEndTime=HMIRuntime.Tags（"

strEndTime"

LocalEndTime.Read

UTCBeginTime=DateAdd（"

h"

-8,LocalBeginTime.Value）

UTCEndTime=DateAdd（"

-8,LocalEndTime.Value）

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）

HMIRuntime.Trace"

UTCBeginTime:

UTCBeginTime&

vbCrLf

UTCendTime:

UTCEndTime&

SetsVal=HMIRuntime.Tags（"

sVal"

sVal.Read

另外，因为WinCC中对访问数据库的时间格式有特殊的要求。

所以程序中增加了格式化时间的代码。

更多详细资料请参考连接：

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

22115636

3）读取数据并写入Excel中

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

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

'

创建数据库联接

sPro="

Provider=WinCCOLEDBProvider.1;

sDsn="

Catalog="

tagDSNName.Value&

;

sSer="

DataSource=.\WinCC"

sCon=sPro+sDsn+sSer

Setconn=CreateObject（"

ADODB.Connection"

conn.ConnectionString=sCon

conn.CursorLocation=3

conn.Open

定义查询的命令文本SQL

sSql="

Tag:

R,（'

PVArchive\NewTag'

）,'

'

"

sSql=sSql+"

orderbyTimestampASC'

TimeStep="

sVal.Value&

1'

SetoRs=CreateObject（"

ADODB.Recordset"

SetoCom=CreateObject（"

ADODB.Command"

oCom.CommandType=1

SetoCom.ActiveConnection=conn

oCom.CommandText=sSql

填充数据到Excel中

SetoRs=oCom.Execute

m=oRs.RecordCount

If（m>

0）Then

objExcelApp.Worksheets（sheetname）.cells（2,1）.value=oRs.Fields（0）.Name

objExcelApp.Worksheets（sheetname）.cells（2,2）.value=oRs.Fields

（1）.Name

objExcelApp.Worksheets（sheetname）.cells（2,3）.value=oRs.Fields

（2）.Name

objExcelApp.Worksheets（sheetname）.cells（2,4）.value=oRs.Fields（3）.Name

objExcelApp.Worksheets（sheetname）.cells（2,5）.value=oRs.Fields（4）.Name

oRs.MoveFirst

i=3

DoWhileNotoRs.EOF'

是否到记录末尾，循环填写表格

objExcelApp.Worksheets（sheetname）.cells（i,1）.value=oRs.Fields（0）.Value

objExcelApp.Worksheets（sheetname）.cells（i,2）.value=

GetLocalDate（oRs.Fields

（1）.Value）

objExcelApp.Worksheets（sheetname）.cells（i,3）.value=oRs.Fields

（2）.Value

objExcelApp.Worksheets（sheetname）.cells（i,4）.value=oRs.Fields（3）.Value

objExcelApp.Worksheets（sheetname）.cells（i,5）.value=oRs.Fields（4）.Value

oRs.MoveNext

i=i+1

Loop

oRs.Close

Else

MsgBox"

没有所需数据……"

item.Enabled=True

SetoRs=Nothing

conn.Close

Setconn=Nothing

objExcelApp.Workbooks.Close

objExcelApp.Quit

SetobjExcelApp=Nothing

ExitSub

EndIf

注意：

因为数据库中数据存储的时间戳是UTC时间，所以在显示的时候需要把UTC时间转换为本地时间，上段代码中的GetLocalDate函数就是实现这样的功能。

本例中是在全局脚本的VBS-Editor中创建的该函数。

添加函数的方法如下图所示：

图6添加时间转换函数

主要的代码如下：

FunctionGetLocalDate（vtDate）

DimDoY

Dimdso

Dimdwi

DimstrComputer,objWMIService,colItems,objItem

DimTimeZone

DimvtDateLocalDate

strComputer="

."

SetobjWMIService=GetObject（"

winmgmts:

{impersonationLevel=impersonate}!

\\"

strComputer&

\root\cimv2"

SetcolItems=objWMIService.ExecQuery（"

Select*fromWin32_TimeZone"

ForEachobjItemIncolItems

TimeZone=objItem.Bias/60'

offsetTimeZoneInhours

Next

IfIsDate（vtDate）<

>

TrueThen

IS_GetLocalDate=False

ExitFunction

DoY=DatePart（"

y"

vtDate）

dso=DatePart（"

"

31.03"

）-DatePart（"

w"

）+1

dwi=DatePart（"

31.10"

IfDoY>

=dsoAndDoY<

dwiThen

sommer

TimeZone=TimeZone+1'

additionaloffset1hinsummer

vtDateLocalDate=DateAdd（"

1*TimeZone,vtDate）

GetLocalDate=vtDateLocalDate

EndFunction

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

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

24201113

4）保存文件并释放资源

释放资源

生成新的文件,关闭Excel

Dimpatch,filename

filename=CStr（Year（Now））&

CStr（Month（Now））&

CStr（Day（Now））&

CStr（Hour（Now））+CStr（Minute（Now））&

CStr（Second（Now））

patch="

d:

\"

&

filename&

demo.xlsx"

objExcelApp.ActiveWorkbook.SaveAspatch

成功生成数据文件!

5结果和建议

下图为程序执行的结果。

仅供参考：

图7输出结果

建议：

为了改善本地访问期间的性能，请输入“<

\WinCC”作为数据源，而不是“.\WinCC”。

为了提高系统的执行效率，建议仅读取少量的数据。

为了避免可能造成的数据损失，建议在执行操作之前先退出Excel应用程序。

附代码仅供参考：

GetLocalDate.txt 

（1KB） 

VBSReadPVDatatoExcel.txt 

（4KB）

声明：

本文所述的方法为WinCC的高级用法，提供的代码程序仅供用户参考，西门子公司不提供任何调试和热线支持。

敬请谅解！

1、建立access表 

新建 

设计视图 

输入对应字段名称 

2、ODBC链接 

在控制面板中选择管理工具，在管理工具中选择数据源（ODBC） 

选择添加 

选择access 

定义数据源名称，选择D盘刚

才建立的access文件。

3、wincc全局脚本 

选择VBS，进入后新建动作 

设定触发器 

触发时间。

4、VBS脚本 

Dim 

objConnection 

strConnectionString 

lngValue 

lngValuea 

lngValueb 

strSQL 

objCommand 

riqi 

riqi=Now 

= 

Provider=MSDASQL;

DSN=SampleDSN;

UID=;

PWD=;

HMIRuntime.Tags（"

yali"

）.Read 

wendu"

INSERT 

INTO 

WINCC_DATA 

（TagValue,TagValuea,TagValueb） 

VALUES 

（'

）;

Set 

CreateObject（"

） 

objConnection.ConnectionString 

objConnection.Open 

With 

.ActiveConnection 

.CommandText 

End 

objCommand.Execute 

Nothing 

objConnection.Close 

注：

yali,wendu 

为变量标签名称。

SampleDSN为数据源名称。

TagValue,TagValuea,TagValueb为access表格中对应列名称。

WINCC_DATA为access表格名称。

5、wincc试验 

用输入输出域写入相应变量数值 

在access表中打

开可以看数值。

vbbb

vbbb=CreateObject（"

wscript.shell"

vbbb.Run（D:

\report.exe）

set 

vb=nothing