WinCC中使用VBS读写变量
在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通过VBS读取控件
wincc通过VBS读取控件
在wincc7.0中做了个名称为main主画面，在main中添加一个名称为b画面窗口，再做一个名称为trend的模板画面，trend里面用了个名称为c的趋势控件，并在主画面中做了一个按钮，当我单击按钮的时候，在main中弹出trend画面并把相应的变量传递给trend里面的趋势控件c。
我想法是通过函数读取控件，然后改变控件的属性来达到变量传递的效果，这样就可以通过一个模板和多个按钮来实现单击不同按钮显示不同变量的趋势。
我通过函数SetobjCon2=HMIRuntime.Screens(
问题补充：
我想通过函数SetobjCon2=HMIRuntime.Screens(“Main.b:trend”).ScreenItem s(“c”)读取控件，但为什么编译不过去？
最佳答案
我觉得你这句没写错，
附我写的脚本如下：
dimnum
setnum=HMIRuntime.Screens(“start.画面窗口1:trend”).ScreenItems(“control”)
的确能获得此控件的属性，我怀疑你是不是忘记定义objCon2了？。
使用Wincc中的VBS进行变量读写
使用Wincc中的VBS进行变量读写Wincc6包含了VBS脚本编程，对于我等熟悉VB编程的可谓带来的福音，但是，由于西门子的C脚本编程功能实在太强大，加上要保持以前版本的一致性和用户编程习惯的延伸性，所以对于VBS脚本并没有太多的介绍。
这里我先来介绍一下Wincc中对于控件引用的一般性论述。
Wincc对于控件引用一般都采取定义变量－》使用Set变量＝对象.（方法或属性）->引用变量来做的。
在变量读取或写入的过程中，我们要接触到一些属性和方法，例如，Read和Write方法，变量的Value 属性，熟练掌握这些属性和方法相当重要。
下面解释一下Write和Read方法的语法：Read data其中data是读取变量的方法，如果data=1，直接从AS系统读取，相当于C脚本中的Get*****wait()函数，如果省略，则从Wincc变量管理器中建立的变量中读取。
Write data，1其中data是需要写入变量的数值，1代表直接写入AS系统，相当于C脚本中的Set*****wait()函数，1省略，则写入到由Wincc变量管理器建立的变量中去。
实例：读取变量的方法：1Dim objTagSet objTag=HMIRunTime.Tags("变量名")objTag.Read2HMIRunTime.Tags("变量名").Read如果以上例程改成直接读取AS系统变量的话，程序为：1Dim objTagSet objTag=HMIRunTime.Tags("变量名")objTag.Read,12HMIRunTime.Tags("变量名").Read,1写变量的方法：1Dim objTagSet objTag=HMIRunTime.Tags("变量名")objTag.Write1'向变量写入数值1'也可以写为objTag.Write10向变量写入数值102HMIRunTime.Tags("变量名").Write1'也可以写为objTag.Write10除了以上方法外，你也可以将一个中间变量的值写入：Dim objTag,valSet objTag=HMIRunTime.Tags("变量名")objTag.Readval=objTag.Value'中间变量val存放了变量的值objtag.Write val'写入变量中去当然，其余的方法还有很多，这些都需要自己在编程过程中总结和灵活运用WINCC中VBS的read和write??Read data其中data是读取变量的方法，如果data=1，直接从AS系统读取，如果省略，则从Wincc变量管理器中建立的变量中读取。
（完整word版）在WinCC中如何使用VBS读取变量归档数据到EXCEL
（完整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 字节长ValueID 的请求：TAG_LLVID:R,,,[,][,]4 字节长ValueID 的请求：TAG:R,ValueName>,,[,][,]其中：ValueID：过程值归档变量的唯⼀标识符。
ValueName：过程值归档变量的名称，格式为“ArchiveName\Value_Name”，可以使⽤多个名称。
通过vbs脚本读取wincc的数据库
通过vbs脚本读取wincc的数据库'本代码是在E:\WinccProjects\DBSQL工程下完成，功能是对该工程下的CC_DBSQL_11_04_19_19_19_51R数据库中的表GH_table 中的字段“Temp”进行读操作。
读的结果暂存在DBSQL工程下的过程变量Speed中，再有Speed传给IO控件显示。
'该代码由按钮控件作为按下鼠标的响应脚本。
读的时间由按钮动作决定。
'本代码只实现了对其中一条数据的读操作。
Sub OnClick(Byval Item)Dim Speed_hmi,Speed_valDim cn,strSQL,strcn,rs,rs1Dim ResultSet cn = CreateObject("ADODB.Connection")Set rs=CreateObject("ADODB.RecordSet")strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_DBSQL_11_04_19_19_19_51R;Data Source=.\wincc"cn.ConnectionString = strcncn.Open strcnSet Speed_hmi=HMIRuntime.Tags("Speed")'Temp_hmi.Read'Temp_val=Temp_hmi.ValuestrSQL = "select * from GH_table"'where(Temp)rs.Open strSQL,cn,1,3'rs.AddNew'新建一条记录'rs.fields("Temp")=999rs.updaters.movefirst'使位置移植第一条Result=rs.fields("Temp")读取Speed_hmi.Write Resultrs.closecn.closeSEt cn=NotHingSet rs=NotHingend Sub'*********更新：实现按一定条件读取DB，将结果显示在一个IO 域中*********************Sub OnClick(Byval Item)Dim cn,strSQL,strcn,rsDim ResultSet cn = CreateObject("ADODB.Connection")Set rs=CreateObject("ADODB.RecordSet")strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_DBSQL_11_04_19_19_19_51R;Data Source=.\wincc"cn.ConnectionString = strcncn.Open strcnstrSQL = "SELECT *FROM GHtable001 WHERE ([Time] = '1900-1-1 12:33:42')" '在GHtable001表中已经存有数据，对应该时间的值为61rs.Open strSQL,cn,1,3rs.updateResult=rs.fields("Temp") '将搜索结果对应的Temp变量值给ResultHMIRuntime.Screens("TagArchive").ScreenItems("IOfield01") .outputvalue=Result '将结果负值给IO域rs.closecn.closeSEt cn=NotHingSet rs=NotHingend Sub'************************************************************** ****************************************************************。
WINCC 一起学-VBS读取变量归档
WINCC 一起学-VBS读取变量归档通过脚本把变量归档里面的数据读出来，后期再导入EXCEL或者控件里面，或有其他的功能。
本文从新建项目开始，一步一步来，想到哪里写到哪里，为了减少工作量，就以温度（T），压力（P）和流量（L）3个变量为例进行读写操作。
软件基础：虚拟机WIN7 SP1 64位旗舰版和WINCC 7.3SE+UPD9+OFFICE2003为基础，未安装连通性软件包。
目的：使用VBS脚本，读取WINCC变量归档数据，然后导出到EXCEL文件或者ListView控件中。
1、参考资料先把一些参考资料放出来，大家一起学习，本文中的资料来自以下文档、手册和WINCC帮助内容，一些朋友问关于报表的问题，我给发的基本上都是这些手册。
2、准备工作2.1 新建项目在D盘目录下新建名为TAGREAD的项目2.2 建立变量在内部变量下，新建分组“TR”，在分组下面，新建名分别为为“P”、“T”、“L”的变量，类型均为：32-位浮点数IEEE 754。
图1同时变量在全局脚本里面进行周期性赋值T：画幅值是10周期10秒的正弦波T：0-10的随机数P：T/100进行累加脚本如下：图2触发方式：周期->250ms2.3 变量归档新建名为：TAGR的过程值归档，为减少数据库的大小，采样和归档时间我设置成1S，其他设置默认。
如图，前三个，下面的请忽略图32.4 设计画面本人的审美不咋的，就随便做一个画面用来测试。
画面内容：3个IO域，显示3个变量的实际值；1个在线趋势控件，显示变量趋势；标尺控件方便查看历史值，Listview控件：方便后面导出显示；应用程序：脚本诊断，用于输出脚本是否正常。
最右一个按钮，名为测试。
运行后如图图44、读取变量归档连接数据库成功，下一步就是从归档之中读取数据了，读取数据要用到两个对象，“ADODB.Recordset”和“mand”对象4.1 ADODB.Recordset4.1.1 简介ADO Recordset 对象用于容纳一个来自数据库表的记录集。
2023年WinCCVbs中文手册
1.实例：访问图形编辑器中旳对象可以使用 VBS WinCC 对所有图形编辑器对象进行访问，以使图形运行环境动态化。
根据变量或周期性（例如闪烁）状况，可在执行操作（例如在按钮上单击鼠标）时使图形对象动态化。
如下示例阐明怎样在鼠标单击后更改图形对象。
环节在如下示例中，每次单击鼠标时运行系统中圆旳半径都会设置为 20：Dim objCircleSet objCircle= ScreenItems("Circle1")objCircle.Radius = 202.实例：定义对象旳颜图形对象旳颜色通过 RGB 值（红/绿/蓝）定义。
可以设置或读出图形对象旳颜色值。
环节如下示例将“ScreenWindow1”旳填充颜色定义为蓝色：Dim objScreenSet objScreen = HMIRuntime.Screens("ScreenWindow1")objScreen.FillStyle = 131075objScreen.FillColor = RGB(0, 0, 255)3.例：怎样组态语言切换可使用 VBS 切换 WinCC 旳运行系统语言。
最常用旳是包括对应语言代码旳按钮，这些按钮位于项目旳起始页上。
在 VBS 中通过使用国家代码（例如，1031 表达德语 - 默认，1033 表达英语 - 美国等）指定运行系统语言。
有关所有国家代码旳汇总，请参见标题为“区域方案 ID (LCID) 图”旳主题下旳 VBScript 基本知识。
环节:使用按钮上旳“Mouse click”事件创立 VBS 动作，输入如下动作代码将运行系统语言切换为德语：nguage = 10314.实例：禁用运行系统简介可以使用 VBS 终止 WinCC 运行系统，例如，通过鼠标单击，依托变量值或其他事件（例如，启动运行系统时密码旳多次错误输入）。
要执行旳操作如下示例会终止 WinCC 运行系统：HMIRuntime.Stop5.实例：全局组态画面更改简介VBS 可用于启动全局画面更改，因而会在分布式系统旳客户机上显示服务器中旳画面。
Wincc的VBS脚本使用
W i n c c的V B S脚本使用------------------------------------------作者xxxx------------------------------------------日期xxxx变量读写： Write和Read方法的语法：读：1 Dim objTag Set objTag=HMIRunTime.Tags("变量名")2 HMIRunTime.Tags("变量名").Read写：1 Dim objTag Set objTag=HMIRunTime.Tags("变量名")objTag.Write 1 '向变量写入数值12 HMIRunTime.Tags("变量名").Write 1中间变量的值写入：Dim objTag,valSet objTag=HMIRunTime.Tags("变量名")objTag.Readval=objTag.Value '中间变量val存放了变量的值VBS语言使用方法概述：VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC 脚本版).正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言.我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了.一、入门: 1) 注释(以REM或'开头)行在程序中不起作用, 但能让别人更容易读懂你的程序. 2) 变量好像一个盒子, 或一个代号, 可以代表你想代表的东西. 变量赋值使用"="3)以""包裹起来的字符称之为"字符串"4)函数像一个"黑箱", 有参数和返回值, 用"="左边的变量可以接住返回值5) Inputbox函数弹出一个输入对话框,Msgbox则用于输出例：REM 输入并回显你的名字'使用InputBox和Msgbox函数Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)上例中，Dim用来声明一个变量, 在VBS中, 变量类型并不是那么重要, 就是说VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"), 也不用考虑是不是字符串(一串字符, 比如:"Hello World"), VBS会自动帮你搞定. 所以第三行语句可以删除, 效果不会变.常量：格式是:const 常量名=常量值.例如: const PI=3.1415926 const NAME="记忆碎片"二、进阶数据类型转换：1）Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=a*2+b*2Msgbox(c)这个输入1、2时是62)Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=(a+b)*2Msgbox(c)这个输入1、2时是24为什么会不一样呢? 在数学上c=(a+b)*2 和 c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" have you understood? 你还记得InoutBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现, 如果这个字符串的内容是一个数且对他进行数学运算, 则把字符串强制转换成数参与运算如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24怎么修改这个程序呢? 我们需要用到另一个内建的函数:int, int函数的功能是将输入值转成整数值, 我们这样修改: c=(int(a)+int(b))*2四、循环结构for....nextdim i,jfor i=1 to 9for i=1 to 9str=str & i * j & " " '&是和并字符串的符号next '每个next对应一个fornext1）do..loop和exit do的用法2) while当表达式true的时候执行循环体,until反之3) for...next是计数循环, 每次执行计数器递加4) 嵌套循环的作用和写法 4.5) &用于连接字符串5) vbCrLf相当于键盘上的回车键五、数组定义：dim 数组名(元素数量), 这里大家要注意一点, 这里定义的元素数量总是比你要的要少一个, 因为一个数组的起点是0号数据而不是1, 所以大家一定要小心: 你需要10个数据, 就定义"9"。
wincc读写sql(vbs)
1：首先在计算机的管理工具-- ODBC数据源管理器中，添加一个SQL SERVER的数据源。
在此配置中：在服务器的连接上要选择WINCC的服务器。
2：然后在WINCC的图形编辑器中，在输入域的属性中，选择事件，再选择键盘的释放动作，在动作代码框中写下如下代码：Dim conn,rsDim strsqlDim aa=HMIRuntime.Tags("tt_change").ReadSet conn=CreateObject("adodb.connection")Set rs=CreateObject("adodb.recordset")conn.Provider = "sqloledb"conn.open"SERVER=MICROSOF-9176CF\WINCC;uid=sa;pwd=sa;database=TT_CHA NGE"If nChar = "13" Thenstrsql="insert into tt_ch(TagValue)VALUES('" & a &"')" Set rs=conn.execute(strsql)conn.closeSet rs=NothingSet conn=NothingEnd If如此，即可实现WINCC的实时数据向SQL SERVER的数据写入！WinCC读取Access数据库wincc 2009-07-30 09:52:22 阅读240 评论1 字号：大中小订阅'经测试该代码在WinCC和vbs文件中均可用可用Dim objConn,objRs,strSqlSet objConn = CreateObject("ADODB.Connection")objConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\student.mdb"objConn.openSet objRs = CreateObject("ADODB.RecordSet")strSql = "Select count(*) from 学生情况"objRs.open strSql,objConn,1,2msgbox "学生情况表中共有" & objRs(0) & "条记录",8,"记录统计:" objRs.closeSet objRs = nothingobjConn.closeSet objConn = nothingWincc读取远程非wincc数据库Option ExplicitFunction actionDim sConDim sSqlDim connDim oRsDim oComDim iDim temvalue,objtag'sCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CTMDBN;Data SouRCe=192.168.1.11"sCon="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CTMDBN;Data Source=192.168.1.11"sSql = "SELECT Temperature FROM channelinfo"' 2.1 Make connectionSet conn = CreateObject("ADODB.Connection")conn.ConnectionString = sConconn.Open' 2.2 Use command text for querySet oRs = CreateObject("ADODB.Recordset")Set oCom = CreateObject("mand")Set oCom.ActiveConnection = connmandText = sSql' 2.3 Fill the recordsetSet oRs = oCom.Execute' 3.0 Fill standard iofields object with recordseti=0Do While oRs.eof=Falsetemvalue=oRS.Fields(0).Valuei=i+1HMIRuntime.Tags("t"&i).Write temvalue oRs.movenextLoopSet oRs = Nothingconn.CloseSet conn = NothingEnd Function。
wincc中利用脚本实现变量自增(VBS)
wincc脚本功能之变量自增(VBS)
在进行wincc的实际编程工程中，可能需要完成对变量的自增或自减，一般情况下，这个功能可以用PLC完成，但在wincc中如何完成？
V1.0
建立变量
在wincc内部变量中建立两个变量，类型分别为：32位浮点型和二进制布尔型
画面组态
在画面中添加输入输出域框和按钮，并链接变量地址
脚本建立
在全局动作中添加如下代码
Dim mytag
mytag=HMIRuntime.Tags("Y").read
mytag=mytag+1
HMIRuntime.Tags("Y").write mytag
环境设置
在wincc的项目树中，点击计算机属性，选择启动项，勾选全局脚本
运行系统，然后变量就会自动增加
V2.0
其他和V1.0一样，只不过需求为：当条件满足时，浮点数变量开始增加，
对应脚本如下：
Dim meter1
Dim a
meter1 = HMIRuntime.Tags("meter1").Read
a = HMIRuntime.Tags("open").read
If a=1 Then
meter1=meter1+1
End If
HMIRuntime.Tags("meter1").Write meter1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
WinCC中使用VBS读写变量C#+PLC 2010-01-18 11:11:57 阅读393 评论0 字号：大中小订阅.
Wincc6包含了VBS脚本编程，对于我等熟悉VB编程的可谓带来的福音，但是，由于西门子的C脚本编程功能实在太强大，加上要保持以前版本的一致性和用户编程习惯的延伸性，所以对于VBS脚本并没有太多的介绍。
这里我先来介绍一下Wincc中对于控件引用的一般性论述。
Wincc对于控件引用一般都采取定义变量－》使用Set 变量＝对象.（方法或属性）->引用变量来做的。
在变量读取或写入的过程中，我们要接触到一些属性和方法，例如，Read和Write方法，变量的Value属性，熟练掌握这些属性和方法相当重要。
下面解释一下Write和Read方法的语法：
Read data 其中data是读取变量的方法，如果data=1，直接从AS系统读取，相当于C脚本中的Get*****wait()函数，如果省略，则从Wincc变量管理器中建立的变量中读取。
Write data，1 其中data是需要写入变量的数值，1代表直接写入AS系统，相当于C脚本中的Set*****wait()函数，1省略，则写入到由Wincc变量管理器建立的变量中去。
实例：
读取变量的方法：
1 Dim objTag
Set objTag=HMIRunTime.Tags("变量名")
objTag.Read
2 HMIRunTime.Tags("变量名").Read
如果以上例程改成直接读取AS系统变量的话，程序为：
1 Dim objTag
Set objTag=HMIRunTime.Tags("变量名")
objTag.Read,1
2 HMIRunTime.Tags("变量名").Read,1
写变量的方法：
1 Dim objTag
Set objTag=HMIRunTime.Tags("变量名")
objTag.Write 1 '向变量写入数值1
'也可以写为objTag.Write 10 向变量写入数值10
2 HMIRunTime.Tags("变量名").Write 1
'也可以写为objTag.Write 10
除了以上方法外，你也可以将一个中间变量的值写入：
Dim objTag,val
Set objTag=HMIRunTime.Tags("变量名")
objTag.Read
val=objTag.Value '中间变量val存放了变量的值
objtag.Write val '写入变量中去
当然，其余的方法还有很多，这些都需要自己在编程过程中总结和灵活运用。