- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
基于SQL和Wincc玻璃镀膜项目EXCLE数据报表开发
基于SQL和Wincc玻璃镀膜项目EXCLE数据报表开发
摘要:针对河源某玻璃厂项目,我们运用EXCLE,通过VBScript脚本编程,自行研究和开发EXCLE脚本,将excle中变量导入到wincc中,方便快捷。
Abstract: On the project of ChengDu Glass Coat project, we write programme to send the tags form excel to wincc ,by using VBScript , conveniently and efficiently.
关键词:Wincc,脚本,VBScript
1前言
Wincc是西?T子公司开发的监控及数据采集软件,wincc7.0是目前全球最领先的HMI/SCADA自动化监控组态软件。Wincc处理能力虽然很强大,但是它与excle的连接功能有限。通过wincc自己集成的附加控件功能,虽能将wincc变量导入导出,但是其转化操作繁琐,批量修改或批量增加变量的操作不直观且耗时长,难自检,易出错,难以满足大项目上大数据变量的修改和新建需求。本文介绍了在某玻璃镀膜项目上,自行开发EXCLE宏程序,通过VBScript编程,将在EXCLE批量处理好的变量导入到wincc项目中。通过EXCLE灵活编辑,修改和查询功能结合起来,完成了对wincc变量的修改记录和新建,特别在批处理中,方便快键,修改新建等操作简单,一键完成,优势明显,并且可以方便运用到所有wincc项目上。
2工程简介
河源某玻璃镀膜项目,完成对玻璃镀膜的整个控制过程。整个控制系统按功能可分为上位计算机监控、PLC控制、系统传动控制、工艺气体配气控制、磁控溅射控制、真空抽气系统控制、系统的安全联锁控制、与冷却水循环系统及前清洗机、装卸片台的控制联络部份、配电系统、远程监控系统等。现场I/O变量5000多点,程序设计中使用的DB及M存储区的数据变量和wincc数据结构新建变量工4000多点,因此在整个项目实施过程中设计到wincc变量处理数量将近10000点。Wincc变量不仅多,而且根据现场设备分区和程序设计的需要,变量需进行归类处理,数据处理量大。针对本项目特点我们自行开发了wincc宏程序,通过EXCLE强大的数据处理能力,将在EXCLE批量处理好的变量导入到wincc项目中。大大简化了工程师开发工作和时间,并提高了工作效率。通过修改宏程序的EXCLE源路径,可以方便的运用到任何其他WINCC开发的项目上,具有可拷贝可移植性。
3 wincc宏程序
Wincc是一款功能强大的工业控制软件,它集成了监控和数据采集、组态、脚本(Script)语言和OPC等技术。这为在Wincc中引进满足实际需要的各种算法提供了基础的编辑平台。通过Wincc的宏开发环境中运用VBScript脚本功能,进行深层次的二次开发,实现和EXCLE的连接。
Wincc提供了嵌入式C-Script和VBScript,用户可以通过脚本编程实现特殊的功能。此宏程序中我们开放了excle源路径,方便根据不同项目的实际情况选择相应编辑好的EXCLE文件,将此excle中的变量信息导入到wincc项目中。宏脚本程序如下所示。
Sub CreateAddNewTag()
Dim sFile As String
Dim xlApp, xlBook, xlSheet
Dim i As Integer
Dim j As Integer
Dim sngBTime As Single: Dim sngETime As Single
Dim vName As String: Dim vType As Integer: Dim vConName As String: Dim vAddress As String: Dim vGroupName As String
Dim objHMIGO As HMIGO
On Error GoTo errHandler
Set objHMIGO = New HMIGO
sFile = E:\desktop\SCADA_Create_TAG.xls 对应excle源文件
Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(sFile) 打开已经存在的EXCEL工件簿文件
xlApp.Visible = False 设置EXCEL对象可见(或不可见False)
sngBTime = Timer
Fo
文档评论(0)