当前位置：文档之家 › 在WinCC中如何使用VBS读取报警记录数据到EXCEL

在WinCC中如何使用VBS读取报警记录数据到EXCEL

  • 格式：docx
  • 大小：298.74 KB
  • 文档页数：10

在WinCC中如何使用VBS读取报警记录数据到EXCEL1概述介绍如何在WinCC项目中使用VBS脚本读取报警记录归档数据，并把获取的数据保存成新的Excel文件。

2软件环境Windows XP SP3中文版、WinCC7.0 SP2 ASIA、Microsoft office Excel 20073访问原理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 查询语句格式查询语句的格式要求如下：AlARMVIEW:SELECT * FROM <ViewName> [ WHERE<Condition>……optional ]其中参数信息如下所示：ViewName：数据库表名。

必须用需要的语言指定该表。

比如：中文字符表名为：ALGVIEWCHT，英文字符表明为：ALGVIEWENU等。

Condition：为过滤标准。

详细说明请参见下表：表１查询参数表３．２查询结果查询结果作为记录集返回。

可以根据需要有选择的返回特定的数据集。

例如：oRs.Fields(0).Value 返回的是消息的编号；oRs.Fields(2).Value 返回的是消息的时间戳；oRs.Fields(37).Value返回的是消息文本的内容。

记录集的结构如下表所示：表２记录集结构表3记录集结构(续表)注意：WinCC的归档数据是使用UTC（协调世界时）时间保存的。

本例中所采用的时间均为UTC时间，如果需要实现在本地时间和UTC时间之间的转换，请参考下列连接：如何计算本地时间和UTC 时间的时间差，如何转换UTC 时间成SQL 语句格式？22115636如何将本地计算机时间的时间戳（日期时间）转换成协调世界时(UTC)?24201113４组态介绍４．１准备工作１）创建变量其中AlmTagA、AlmTagB和AlmTagC用于组态报警，MySqlStr用于动态化查询条件。

如下图所示：图１变量２）组态报警在报警记录中组态如下报警：图2报警信息图3单个消息组态界面3）创建Excel模板在特定的路径下预先创建一个Excel文件作为模板，这样可以很好的控制输出格式。

本例中在D:\WinCCWriteExcel下创建一个名称为abc.xlsx的Excel文件。

如下图所示：图４EXCEL模板4．2组态查询界面画面上新建五个按钮，上面的四个按钮分别用于设置不同的查询条件。

按钮下方的静态文本用于显示查询条件。

最下方的按钮用于执行查询报警记录的VBS脚本。

其中查询条件的设定是通过按钮的直接连接方式实现。

图5 查询界面在按钮属性对话框的鼠标动作中选择直接连接打开如下界面，配置查询条件。

其中来源部分为查询字符串，目标部分为存储查询条件的变量。

图6按钮直接连接配置4．3详细脚本介绍1）打开Excel模板以后台方式打开之前创建好的Excel模板。

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

需要注意模板文件的存储路径。

Set objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "D:\WinCCWriteExcel\abc.xlsx"objExcelApp.Worksheets(sheetname).Activate2）准备查询条件主要是确定和格式化Catalog和查询条件。

关键脚本如下：'准备查询条件CatalogSet tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")tagDSNName.Read‘拼接查询条件MySqlStr.ReadsSql = "ALARMVIEW:Select * FROM AlgViewCHT "&MySqlStr.Value其中MySqlStr为定义的内部字符串类型的变量，当点击查询条件中的按钮时，就会把相应的查询条件字符串传给该变量（需要根据项目的实际情况调整查询条件）。

本例中的四条查询条件的完整语句如下图所示：图7查询条件3）完整的代码'变量定义和初始化Dim sPro,sDsn,sSer,sCon,conn,sSql,oRs,oComDim tagDSNNameDim m,iDim objExcelApp,objExcelBook,objExcelSheet,sheetnameDim MySqlStrSet MySqlStr = HMIRuntime.Tags("MySqlStr")item.Enabled = False'On Error Resume Nextsheetname="Sheet1"'打开Excel模板Set objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open "D:\WinCCWriteExcel\abc.xlsx" objExcelApp.Worksheets(sheetname).Activate'准备查询条件CatalogSet tagDSNName = HMIRuntime.Tags("@DatasourceNameRT") tagDSNName.Read'创建数据库联接sPro = "Provider=WinCCOLEDBProvider.1;"sDsn = "Catalog=" &tagDSNName.Value& ";"sSer = "Data Source=.\WinCC"sCon = sPro + sDsn + sSerSet conn = CreateObject("ADODB.Connection")conn.ConnectionString = sConconn.CursorLocation = 3conn.Open'定义查询的命令文本SQLMySqlStr.ReadsSql = "ALARMVIEW:Select * FROM AlgViewCHT "&MySqlStr.Value HMIRuntime.Trace "Sql is: " & sSql & vbCrLfSet oRs = CreateObject("ADODB.Recordset")Set oCom = CreateObject("mand")mandType = 1Set oCom.ActiveConnection = connmandText = sSql'填充数据到Excel中Set oRs = oCom.Executem = oRs.RecordCountIf (m > 0) ThenoRs.MoveFirsti=3Do While Not oRs.EOF '是否到记录末尾，循环填写表格objExcelApp.Worksheets(sheetname).cells(i,1).value= CStr(oRs.Fields(0).Value)objExcelApp.Worksheets(sheetname).cells(i,2).value= CStr(oRs.Fields(1).Value)objExcelApp.Worksheets(sheetname).cells(i,3).value= CStr(oRs.Fields(2).Value)objExcelApp.Worksheets(sheetname).cells(i,4).value= CStr(oRs.Fields(37).Value)oRs.MoveNexti=i+1LoopoRs.CloseElseMsgBox "没有所需数据……"item.Enabled = TrueSet oRs = Nothingconn.CloseSet conn = NothingobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp= NothingExit SubEnd If'释放资源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(Seco nd(Now))patch= "d:\"&filename&"demo.xlsx"objExcelApp.ActiveWorkbook.SaveAs patchobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp= NothingMsgBox "成功生成数据文件!"item.Enabled = True5结果和建议下图为程序执行的结果。

仅供参考：图8输出结果建议：为了改善本地访问期间的性能，请输入“<计算机名称>\WinCC”作为数据源，而不是“.\WinCC”。

合集下载

WinCC通过VBS的Excel文件操作

WinCC通过VBS的Excel文件操作

2.4 移动文件 objFSO.MoveFile "C:\Path\File.txt" "C:\Path\File2.txt"
2.5 删除文件 objFSO.DeleteFile "C:\Path\File.txt"
WinCC 通过 VBS 的 Excel 文件操作
二、 Excel 文件访问
1. Application 对象 WinCC 下使用 VBS 访问 Excel ，实际上是对 Excel 的 Application 对象成员进行编程。 Application 对象是 Excel 对象模型中最高级别的对象，表示 Excel 程序自身。 Application 对 象提供正在运行的程序的信息、应用于程序实例的选项以及实例中打开的当前对象。在
对象 /集合 FileSystemObject
Drive
Drives File Files Folder Folders TextStream
类型 主对象
对象
集合 对象 集合 对象 集合 对象
描述 包含用来创建、删除和获得有关信息以及通常用来操作驱 动器、文件夹与文件的方法和属性。和该对象相关联的许 多方法，与其他 FSO 对象中的方法完全相似；它们是为 了方便才被提供的。 包含用来收集信息的方法和属性，这些信息是关于连接在 系统上的驱动器的，如驱动器的共享名和它有多少可用空 间。可以是硬盘、光驱、 RAM 磁盘、网络共享驱动器 等。 提供驱动器的列表，这些驱动器物理地或逻辑地与系统相 连接。 Drives 集合包括所有驱动器，与类型无关。 包含用来创建、删除或移动文件的方法和属性，也用来向 系统询问文件名、路径和多种其他属性。
Tag1 、Tag2 、
4.1 创建 WinCC 起始画面 Start.pdl ，并在“打开画面”事件中加入如下脚本：
用VBS实现WINCC的用户归档输出到EXCEL表格的方法和例

用VBS实现WINCC的用户归档输出到EXCEL表格的方法和例

用VBS实现WINCC的用户归档输出到EXCEL表格的方法和例(2009-12-30 16:47:45)用VBS实现WINCC的用户归档输出到EXCEL表格的方法和例子程序求用VBS实现WINCC的用户归档输出到固定格式的EXCEL表格的方法和例子程序！我主要问题在SQL数据库的查询语句不会。

看见论坛里有关用VBS实现EXCEL的数据查询和导出，我现在想要完成如下功能：每分钟将数据归档，用户可以输入任意的时刻时间查询从任意时刻开始的之后每隔1小时的数据（有点像日报里的24个小时）。

我现在对于VBS查询数据库的语句不懂，望大大赐教！谢谢''SQL查询语句Dim strc as stringstrc = "provider=WinCCOLEDBProvider.1;catalog=CC_RebdI_09_06_22_10_3 8_35R;data source=ComputerName\WinCC"''这个连接字符串可以在SQl2000中看到Dim cc1Set cc1=CreateObject("adodb.connection")cc1.ConnectionString=strccc1.CursorLocation=3cc1.openDim rst As ObjectSet rst = CreateObject("adodb.recordset")dim ssql as stringssql = "Tag:R,'Archive_3\DB1DBD0','2009-7-29 00:00:00.0000','200 9-7-29 23:59:59.999','timestep=3600,258'"''Archive_3\I_DB1DBD0归档和变量''2009-7-29 00:00:00.0000,2009-7-29 23:59:59.999时间段''timestep=3600,258每阁多少秒拿一个数据(3600=1小时),258表示每个时间段取最后一个数据rst.Open ssql, cc1''这样查出来的数据就是一天的每小时的数据''对rst记录集处理就可以得到你要的数据==========================Function actionDim objExcelAppDim i,TimeM,TimeNow,TimeSSet TimeM=HMIRuntime.Tags("TimeM")i=1+TimeM.ReadTimeNow=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&":"&CStr(Second(Now))TimeS=Second(Now)Set objExcelApp = CreateObject("Excel.Application")objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open"E:\ExcelTest.xls"objExcelApp.Cells(i, 2).Value =123.47objExcelApp.Cells(i, 1).Value = TimeNowobjExcelApp.DisplayAlerts = FalseobjExcelApp.ActiveWorkbook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.quitSet objExcelApp =NothingEnd Function以上代码用于往指定的Excel表格中写数据。

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

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

文档类型常问问题, 条目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-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,<ValueID或ValueName>,<TimeBegin>,<TimeEnd>[,<SQL_clause>][,<TimeStep>]4 字节长ValueID 的请求：TAG:R,<ValueID 或ValueName>,<TimeBegin>,<TimeEnd>[,<SQL_clause>][,<TimeStep>]其中：ValueID：过程值归档变量的唯一标识符。

报警记录的导入导出

报警记录的导入导出

wincc的报警记录可以通过excel批量的编辑和导入、导出
假设现在有两个wincc项目，我想把项目1的报警记录导入到项目2，那么按照如下操作即可。

1. 将项目1的报警信息导出：打开项目1--》报警记录--》消息--》导出单个消息，在弹出的对话框设置
一下文件名，然后单击“导出”既可以导出名为*.txt的文件。

2. 将txt文件改名字为.csv文件即可用excel打开
3. 用excel打开后将消息编号那一列（第一列就是）编辑一下，避免和项目2的消息号重复。

4. 将修改好的csv文件重新改名为txt文件。

5. 打开项目2--》报警记录--》消息--》导入单个消息--》选择修改好的txt文件，选择“只导入新消息”--》
单击“导入”即可导入项目1的报警消息
注意：导入之前请确保消息变量存在于项目中，否则会报错。