德国SIEMENS西门子黄山授权代理商

 德国siemens西门子黄山授权代理商

在a1单元格输入运行wincc的计算机名称。a3/a4单元格输入wincc中变量的名称。点击按钮“启动 winccopc"，对应wincc变量的当前值即可读入到excel单元格中。直接在b3/b4单元格中修改数值，对应wincc中的变量值也会随之修改。点击按钮“停止wincc opc"，停止excel与wincc的opc数据访问。

　　以下为microsoft excel 作为客户端的配置说明。

　　在excel中创建一个接口，在visualbasic 编辑器中的“工具->引用"中，选中“siemens opc daautomation 2.0"组件，使visualbasic能够识别opc对象。

　　图3 opc引用组件

　　创建所需的所有对象，如：“myopcgroup"对象

　　dim: 创建一个变量

　　withevents: 这个对象可以提供事件（如 datachange)

　　myopcgroup: 对象名

　　as opcgroup: 变量类型

　　图4

　　sub startclient() ’microsoft excel建立与opc服务器的连接；

　　set myopcserver = new opcserver ’为“myopcserver"对象分配内存；

　　? servername, nodename

　　servername ：wincc opc da 服务器的名称为 "opcserver.wincc"

　　nodename：激活wincc运行系统的计算机名称

　　set myopcgroupcoll = myopcserver.opcgroups

　　microsoft excel与opc服务器的连接一旦建立，opc组即被创建。这个通过集合对象来实现；

　　set myopcgroup = myopcgroupcoll.add(groupname)

　　创建的组通过“myopcgroup"变量来寻址。设置myopcgroup.issubscribed =true，以便opc组能够提供datachange等事件。

　　set myopcitemcoll = myopcgroup.opcitems ’创建opc项

　　myopcitemcoll.additems 2, itemids, clienthandles, serverhandles,errors

　　itemids 存储在单元格a3/a4中，把的itemids传送给集合对象"myopcitemcoll.additems"

　　private sub myopcgroup_datachange（）

　　在microsoft excel中，调用如下用于opc组事件处理的程序，它是opc服务器的datachange事件，datachange()这个事件处理程序提供了许多参数，如itemvalue(opc项的值)，客户端句柄等。通过datachange事件，当opc项的值变化时，数据会自动发送。opc项的当前值显示在单元格b3/b4中。读出值的质量代码和时间戳显示在c/d列单元格中。

　　private sub worksheet_change（）

　　如果在microsoftexcel的单元格b3/b4中输入一个值，通过函数myopcgroup.syncwrite将opc项写入到wincc，写入值和服务器句柄以参数形式传递给此函数。

　　sub stopclient（）

　　后，断开与opc服务器的连接。

　　3 在excel中通过opc da远程访问wincc

　　可以通过dcom从opc客户端远程访问opc服务器wincc opcda。但在a1单元格需要输入的是远程激活wincc运行系统的计算机名称。