用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表格中写数据。
如何在Excel中访问WinCC变量归档数据
1 功能说明在Microsoft office Excel中访问WinCC的历史数据，实现如下图所示的报表：图1: Excel中访问WinCC的历史数据生成报表选择日期后，可以生成当天的风机参数日报表（报表数据来自WinCC）。
2 软件环境本地计算机：Windows XP SP3英文版、WinCC7.0 SP2 ASIA、Microsoft office Excel 2003 远程计算机：Windows XP SP3英文版、WinCC7.0 SP2 ASIA、Microsoft office Excel 20033 WinCC/Connectivity Pack 介绍WinCC变量归档数据是以压缩的形式存储在数据库中，需要通过WinCC/Connectivity Pack提供的OLE-DB接口才能够解压并读取这些数据。
3.1 连接字符串“Provider=WinCCOLEDBProvider.1; Catalog= ***; Data Source= ***;“其中：Catalog：WinCC运行数据库的名称注意：当修改项目名称或在其它计算机上打开原项目时, Catalog会发生变化。
建议使用WinCC系统变量“@DatasourceNameRT” 获得当前的Catalog。
Data Source ：服务器名称本地：“.\WinCC” 或者“<计算机名称>\WinCC”远程：“<计算机名称>\WinCC”3.2 查询语句“TAG:R,<ValueID or ValueName>,<TimeBegin>,<TimeEnd>[,<SQL_clause>][,<TimeStep>]”其中：ValueName：格式为“ArchiveName\Value_Name”，可以使用多个名称。
TimeBegin,TimeEnd：时间范围，格式“YYYY-MM-DD hh:mm:ss.msc”。
在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：过程值归档变量的唯一标识符。
vbs将wincc数据写入数据库+导入到excel
WinCC V6.0 VBS 脚本在自动汽车检测与识别系统中的应用钟时（西门子工厂自动化工程有限公司工程部北京）摘要：本文描述了如何运用西门子上位监控软件WinCC V6.0集成的VBS脚本在自动汽车检测与识别系统中将实时车体信息记录到数据库中,并最终通过用户查询，以报表的形式打印出来。
关键词：WinCC V6.0，VBS，AVIAbstractThis paper introduces that how to store and query the datum by using VBScript -Editor integrating SIEMENS HMI software WinCC V6, then output datum as report style auto-matically.Key Words：WinCC V6.0，VBS，AVI一、项目简介项目的所在地位于山东省烟台市经济技术开发区内的上海通用东岳汽车有限公司。
其油漆车间新上的一套AVI（自动汽车识别）系统通过采用安装在车体滑撬上的西门子MOBY传感器将实时车体信息传递到主控PLC中，再由上位监控计算机采集存入数据库并最终由用户有选择的以报表形式将信息打印输出。
各AVI信息采集站除装有MOBY自动读写头外，还各有一套ET200S远程站和操作员面板采集现场其它信号。
整套AVI系统的现场级均采用西门子PROFIBUS-DP总线来传递信息，PLC与上位监控计算机采用工业以太网进行实时通讯。
二、系统介绍2.1 工艺需求由于油漆车间有其自身的生产工艺，诸如：电泳，喷漆，烘房等，因此各车辆的车体信息会在其进入油漆车间之前被自动存储在车体所对应的滑撬上的MOBY存储单元中。
当车体到达首个固定的AVI读写站时，自动条码扫描枪会读取贴在车体上的条形码信息，同时，MOBY读写头会自动从滑撬上的MOBY存储单元中读出车体信息并与扫描枪扫到的信息进行比对，如果两者比较结果一致，则主控PLC会返回机运线放行信号将此车辆放行。
Wincc V7.3用户归档深入5-用vbs将用户归档的内容导出到excel
Wincc V7.3用户归档深入5-用vbs将用户归档的内容导出到excel我们在用户归档中得到数据之后，如果想导出到excel，思路是和把MSHFGrid数据导出类似的。
网上有些文章是直接从后台数据表读取数据，本文介绍从数据归档控件导出数据。
1. 假设wincc项目已经创建了用户归档，画面上有一个用户归档控件，名字叫做UA，设置一个按钮，按钮点击事件添加以下vbs脚本Sub OnClick(ByVal Item)Dim UA,col,row,rowsDim xlapp,objsheetDim i,j,k,m,n,filenameSet UA=ScreenItems("UA")Set rows=UA.GetRowCollectionm=rows.Countn=UA.ColumnCountIf m>1 Then '如果用户归档控件有记录Set xlapp=CreateObject("Excel.Application")xlapp.visible=Falsexlapp.workbooks.addSet objsheet=xlapp.worksheets(1)For k=1 To nua.ColumnIndex=kobjsheet.cells(3,k)=ua.ColumnCaption '字段名称Nextobjsheet.cells(1,1)="XX用户归档"For i=1 To mFor j= 1 To nobjsheet.cells(i+3,j)=ua.GetRow(i).celltext(j)NextNext'以下代码处理日期时间数据格式以及表格边框线、标题合并单元格等排版objsheet.range("a1:d1").mergecells=True'objsheet.range("a1").ColumnWidth =20 '列宽度objsheet.cells(2,1)="生成时间："objsheet.cells(2,2)=Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"objsheet.cells(1,1).HorizontalAlignment = 3objsheet.range("a3:d" & CStr(3+m)).borders(1).linestyle=9objsheet.range("a3:d" & CStr(3+m)).borders(1).weight=2objsheet.range("a3:d" & CStr(3+m)).borders(2).linestyle=9objsheet.range("a3:d" & CStr(3+m)).borders(2).weight=2objsheet.range("a3:d" & CStr(3+m)).borders(3).linestyle=9objsheet.range("a3:d" & CStr(3+m)).borders(3).weight=2objsheet.range("a3:d" & CStr(3+m)).borders(4).linestyle=9objsheet.range("a3:d" & CStr(3+m)).borders(4).weight=2'保存文件filename= "c:\" & Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日-" & Hour(Now) & "点" & Minute(Now) & "分" & Second(Now) & "秒生成用户归档.xlsx"xlapp.Activeworkbook.saveas (filename) xlapp.workbooks.closexlapp.quitMsgbox "成功导出到C:\"ElseMsgbox "用户归档没有记录"End IfEnd Sub。
WinCC中全局脚本VBS归档到Excel
WinCC中全局脚本VBS归档到Excel中用一个变量触发数据归档到Excel中，请高手看看我写的为何不能运行。
Sub procedure1If Item.OutputValue = "NewTag" ThenDim oVar,oBlendingVar,objExcelApp,oWorkBook,ExcelTableFull,oFileNameOn Error Resume NextExcelTableFull=0Set objExcelApp=CreateObject("Excel.Application")objExcelApp.Visible=FalseSet oWorkBook=objExcelApp.Workbooks.Open("D:\BKHL_HXBJ\模板\Receipt_Table.xls") Dim iBlankLineiBlankLine=oWorkBook.ActiveSheet.Columns(1).Find("0").Row'MsgBox("iBlankLine="&iBlankLine)If iBlankLine<504 ThenobjExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.SmartTags("Recipe_Number").Value objExcelApp.Cells(iBlankLine,2).Value=HMIRuntime.SmartTags("BaseOil_Percent_1").Value objExcelApp.Cells(iBlankLine,3).Value=HMIRuntime.SmartTags("BaseOil_Percent_2").Value objExcelApp.Cells(iBlankLine,4).Value=HMIRuntime.SmartTags("BaseOil_Percent_3").Value objExcelApp.Cells(iBlankLine,5).Value=HMIRuntime.SmartTags("BaseOil_Percent_4").Value objExcelApp.Cells(iBlankLine,6).Value=HMIRuntime.SmartTags("BaseOil_Percent_5").Value objExcelApp.Cells(iBlankLine,7).Value=HMIRuntime.SmartTags("BaseOil_Percent_6").Value objExcelApp.Cells(iBlankLine,8).Value=HMIRuntime.SmartTags("BaseOil_Percent_7").Value objExcelApp.Cells(iBlankLine,9).Value=HMIRuntime.SmartTags("BaseOil_Percent_8").Value objExcelApp.Cells(iBlankLine,10).Value=HMIRuntime.SmartTags("Additive_Percent_1").Value objExcelApp.Cells(iBlankLine,11).V alue=HMIRuntime.SmartTags("Additive_Percent_2").Value objExcelApp.Cells(iBlankLine,12).Value=HMIRuntime.SmartTags("Additive_Percent_3").Value objExcelApp.Cells(iBlankLine,13).Value=HMIRuntime.SmartTags("Additive_Percent_4").Value objExcelApp.Cells(iBlankLine,14).Value=HMIRuntime.SmartTags("Additive_Percent_5").Value objExcelApp.Cells(iBlankLine,15).Value=HMIRuntime.SmartTags("Additive_Percent_6").Value objExcelApp.Cells(iBlankLine,16).Value=HMIRuntime.SmartTags("Additive_Percent_7").Value objExcelApp.Cells(iBlankLine,17).Value=HMIRuntime.SmartTags("Additive_Percent_8").ValueElse'MsgBox("Data Table Full,Copy to the backup file,continue ?")objExcelApp.displayalerts=FalseoFileName=CStr("D:\BKHL_HXBJ\模板\运行数据_"&Month(Date)&"月"&Day(Date)&"日"&"_"& Hour(Time)&"时"&Minute(Time)&"分"&".xls")oWorkBook.Saveas(oFileName)ExcelTableFull=1objExcelApp.displayalerts=TrueEnd IfoWorkBook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp=NothingSet oWorkBook=NothingIf ExcelTableFull=1 Then'MsgBox("Data Table Full, Clear the current data table, continus?")Set objExcelApp=CreateObject("Excel.Application")objExcelApp.Visible=FalseSet oWorkBook=objExcelApp.Workbooks.Open("D:\BKHL_HXBJ\模板\Receipt_Table_Templet.xls")objExcelApp.displayalerts=FalseoWorkBook.Saveas("D:\BKHL_HXBJ\模板\Receipt_Table.xls")objExcelApp.displayalerts=TrueoWorkBook.SaveobjExcelApp.Workbooks.CloseobjExcelApp.QuitSet objExcelApp=NothingSet oWorkBook=NothingEnd IfEnd IfEnd Sub本文转自亿万论坛：/a/a.asp?B=302&ID=1218853&q=1&r=140751。
如何通过 VBS 操作 WINCC 在线数据控件并导出至 EXCEL(附带程序)
如何通过VBS 操作WINCC 在线数据控件并导出至EXCEL（附带程序）1 概述本文主要介绍如何通过 VBS 操作 WINCC 在线数据表格控件。
开发环境：PCS7 V8.2 SP1 / WINCC 7.4 SP1使用限制：1) 时间间隔最多至 1 分钟2) 时间范围太长，数据加载可能会比较慢3) 导出文件 EXCEL 没有置顶，导出后要切换到 EXCEL 程序。
扩展性：可扩展选择参数、保存导出文件、生成 PDF 等功能。
本例采用将参数提前组态在控件内，运行中通过复选框来实现选择。
也可完全使用脚本实现参数添加。
详见附加信息>通过脚本新增参数图 1 根据选择查询数据图 2 导出数据成功图 3 在 EXCEL 中查看导出的数据文件3.1 画面部件说明图 5 测试画面部件说明3.1.1 添加时间控件添加 WINCC Activex 控件 Date and time picker，如下图：图 6 添加时间控件3.1.2 设置导出模板本例设置的 excel 文件模板路径："\\"+ServerName+"\Export\Export.xlsx"，可根据项目情况采用其它导出路径和模板。
如果更换了模板或路径，必须修改导出脚本内的路径。
模板内主要设置了字体、数据格式、显示的小数点位数和列宽，也可再增加页眉、页脚、LOGO 等，以达到更好的显示效果。
3.2 画面打开在画面打开事件内，设置如下脚本，用于初始化画面内各控件：图 7 画面打开事件脚本3.3 选择数值参数版设计图 8 添加参数选择复选框设置复选框，在复选框更改事件下添加脚本：图 9 数据参数显示隐藏设置脚本图 10 脚本与控件属性对应关系 3.4 设置时间系数属性：TimeStepFactor图 11 修改时间间隔脚本图 12 修改时间系数 3.5 设定时间范围在查询按钮释放左键事件里：图 14 时间范围查询按钮事件图 14 时间范围查询按钮事件 3.6 导出在导出按钮释放左键事件里：图 16 导出按钮脚本图 17 导出后自动打开文件夹图 18 新增参数脚本图 19 新增参数运行效果。
将WinCC的历史数据写入Excel文件
将WinCC的历史数据写入Excel文件最近，几个客户提到了一个共性的需求：定期将WinCC的历史归档数据导出到Excel文件中，供第三应用去访问。
实现这个需求的方法很多，如：1）通过IDB(Industrial Databridge工业数据桥选件), 通过简单的组态就能实现，操作视频链接:/xxym.aspx?id=124622）手动点击画面中的表格或趋势控件上的导出按钮，将数据导出；或通过定期（如每小时）执行全局脚本控制表格或趋势控件上的导出按钮导出数据。
核心VBS代码如下：TableControl1.Online = 0 '设置表格控件停止实时更新TableControl1.TimeColumnRangeType=1'设置表格控件时间范围为“开始到结束”TableControl1.TimeColumnBeginTime=XXX'设置表格控件的开始时间TableControl1.TimeColumnEndTime=YYY'设置表格控件的结束时间TableControl1.ExportShowDialog=False'取消表格控件导出时弹出对话框TableControl1.ExportDirectoryname=BBB'设置导出的目录TableControl1.ExportFilename=AAA'设置导出的文件名TableControl1.Export()'执行表格控件的导出动作注意：此种方式，控件所在画面要为当前运行画面或用全局脚本将其置为当前画面，否则全局脚本无法操作此控件。
3）通过脚本调用WinCC OLE DB接口直接读取历史数据，写入到Excel文件中----------------------------------------------这里重点介绍第3)种：VBS访问WinCC OLE DB接口读取历史数据，写入Excel（Connectivitypack连通包提供此接口）这种方式核心代码包括A和B这2部分A. 调用WinCC OLE DB接口读取历史数据核心代码及注解：A1. 查询归档数据scon='Provider=WinCCOLEDBProvider.1;Catalog=CC_test03 _20_06_12_17_50_01R;Data Source=.\WinCC''建立到归档数据库的连接字符串'Catalog为WinCC数据库的名称（内部系统变量@DatasourceNameRT的值），Data Source为服务器名称，本地用“.\WinCC”即可。
WinccVvbs读取多个变量归档数据到ecel
Winccvbs读取多个变量归档数据到excel前面的一篇博客记录了如何读取多个变量归档数据到mshgrid控件，根据的是西门子官网的教学。
有网友询问为什么他照着官网方法就是无法导出到excel。
我自己也做了一遍，没有问题。
本篇主要记录导出按钮的脚本。
前面的准备工作与上一篇一致，导出按钮的vbs脚本如下：Sub OnClick(ByVal Item)？Dim myCatalog,myDS,PCName,cnstr,sqlstr1,sqlstr2Dim xlapp,BTime,ETime,utcbtime,utcetime,utcbtstr,utcetstrDim conobj,rsobj1,comobj1Dim rsobj2,comobj2Dim rscount,i,curRowDim filenamemyCatalog=("@DatasourceNameRT").ReadPCName=("@LocalMachineName").Read？myDS=PCName & "\Wincc"Set BTime=("btime")Set ETime=("etime")'北京时间时区修正utcbtime=Dateadd("h",-8, '起始时间utcetime=Dateadd("h",-8, '结束时间'日期时间格式修正utcbtstr = Year(utcbtime) & "-" & Month(utcbtime) & "-" & Day(utcbtime) & " " & Hour(utcbtime) & ":" & Minute(utcbtime) & ":" & Second(utcbtime)utcetstr = Year(utcetime) & "-" & Month(utcetime) & "-" & Day(utcetime) & " " & Hour(utcetime) & ":" & Minute(utcetime) & ":" & Second(utcetime)'连接字符串cnstr="Provider=; Catalog=" & myCatalog & "; Data Source=" &myDS'创建连接对象Set conobj=CreateObject("")=cnstr= 3'查询字符串'sqlstr = "Tag:R,('VA\flow1';'VA\flow2'),'" & utcbtstr & "','" & utcetstr & "'," & "'order by Timestamp ASC','TimeStep=1,1'"sqlstr1 = "Tag:R,('VA\flow1'),'" & utcbtstr & "','" & utcetstr & "'," & "'order by Timestamp ASC','TimeStep=1,1'"sqlstr2 = "Tag:R,('VA\flow2'),'" & utcbtstr & "','" & utcetstr & "'," & "'order by Timestamp ASC','TimeStep=1,1'"'进行查询Set rsobj1 = CreateObject("")Set comobj1 = CreateObject("")= 1Set = conobj= sqlstr1Set rsobj1 =Set rsobj2 = CreateObject("") Set comobj2 = CreateObject("") = 1Set = conobj= sqlstr2Set rsobj2 =rscount=if rscount=0 thenmsgbox "没有记录"exit subend ifSet xlapp=CreateObject("")=False'初始化excel(1).cells(1,1)="编号："(1).cells(1,2)=""(1).range("a2:c2").mergecells=True '合并单元格(1).cells(2,1)="这是一个测试"(1).cells(2,1).HorizontalAlignment = 3 '文字居中(1).cells(3,1)="日期时间"(1).cells(3,2)="flow1"(1).cells(3,3)="flow2"'导出到excelFor i=1 To rscount(1).cells(3+i,1)=Dateadd("h",+8,(1).value) (1).cells(3+i,2)=(2).value(1).cells(3+i,3)=(2).value？？Next'释放资源Set rsobj1 = NothingSet rsobj2 = NothingSet conobj = Nothing'画边框(1).range("a3:c" & CStr(3+rscount)).borders(1).linestyle=9 (1).range("a3:c" & CStr(2+rscount)).borders(1).weight=2 (1).range("a3:c" & CStr(2+rscount)).borders(2).linestyle=9 (1).range("a3:c" & CStr(2+rscount)).borders(2).weight=2(1).range("a3:c" & CStr(2+rscount)).borders(3).linestyle=9(1).range("a3:c" & CStr(2+rscount)).borders(3).weight=2(1).range("a3:c" & CStr(2+rscount)).borders(4).linestyle=9(1).range("a3:c" & CStr(2+rscount)).borders(4).weight=2'保存文件filename= "c:\" & Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日-" & Hour(Now) & "点" & Minute(Now) & "分" & Second(Now) & "秒生成生产报表.xlsx"(filename)Msgbox "成功导出到C:\"End Sub无法导出数据的朋友，检查一下官网提示的那个连接包是否安装了。
(完整word版)在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字节长ValuelD 的请求：TAG_LLVID:R,<ValuelD 或ValueName>,<TimeBegin>,vTimeEnd>[,<SQL_clause>][,vTimeStep>]4字节长ValuelD 的请求：TAG:R,<ValueID 或ValueName>,vTimeBegin>,vTimeEnd>[,vSQL_clause>][,vTimeStep>]其中：ValuelD :过程值归档变量的唯一标识符。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用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 string
strc = "provider=WinCCOLEDBProvider.1;catalog=CC_RebdI_09_06_22_10_3 8_35R;data source=ComputerName\WinCC"
''这个连接字符串可以在SQl2000中看到
Dim cc1
Set cc1=CreateObject("adodb.connection")
cc1.ConnectionString=strc
cc1.CursorLocation=3
cc1.open
Dim rst As Object
Set rst = CreateObject("adodb.recordset")
dim ssql as string
ssql = "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 action
Dim objExcelApp
Dim i,TimeM,TimeNow,TimeS
Set TimeM=HMIRuntime.Tags("TimeM")
i=1+TimeM.Read
TimeNow=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 = False
objExcelApp.Workbooks.Open"E:\ExcelTest.xls"
objExcelApp.Cells(i, 2).Value =123.47
objExcelApp.Cells(i, 1).Value = TimeNow
objExcelApp.DisplayAlerts = False
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.quit
Set objExcelApp =Nothing
End Function
以上代码用于往指定的Excel表格中写数据。
该动作每分钟触发一次，依次往表格中写入60个数据，当进入下一个小时后，大概是因为表格中已存在数据所以在写入前会弹出对话框提醒是否覆盖还是另存，加入
objExcelApp.DisplayAlerts = False语句后就不存在这个问题了，对此要谢谢谢谢版主：城外之人。