在MicrosoftExcel里如何建立OPCClient.doc

在 Microsoft Excel 里如何建立OPC Client?使用说明:这是在Microsoft Excel 里用VBA脚本语言建立OPC client ，并通过OPC接口读取PLC中的数据和写数据到PLC中。Microsoft Excel作为OPC client 初始化通讯并通过OPC接口发送读/写命令到OPC server。OPC server执行这些 读/写申请。 下面是配置Microsoft Excel 为OPC client 的过程。? 序号.步骤1在Excel表里建立接口并保存这些带描述的控制按钮。 图 012在Visual Basic编辑器的Tools-References... 里选中Siemens OPC DA Automation 2.0 的部件 使Visual Basic能识别这个OPC对象。3现在建立必需要用的对象。 例如：MyOPCGroup 对象： Dim: Create a variableWithEvents: The object should be able to provide events (e.g. DataChange)MyOPCGroup: Object nameAs OPCGroup: Type of variable 图 024接着是给MyOPCServer 对象提供存储空间： Set MyOPCServer = New ...并在Microsoft Excel里建立与OPC server的连接： Call MyOPCServer.Connect(ServerName)通过功能 Cells(line, column)就可以在Microsoft Excel单元里访问数据。在这个例子里OPC server的名是来自于单元格(line 4, column B)中。 图 035一旦Microsoft Excel与OPC server建立连接，就可以建立OPC组。这个通过对象收集来完成的。 . MyOPCServer.OPCGroups.Add(group name)在这个例子里最新建的组是通过MyOPCGroup 变量来访问的。 为了使OPC组能提供像DataChange这样的事件, 必需设置： MyOPCGroup.IsSubscribed = True) 图 046接下来需要创建项，这个通过对象收集器来完成的。 MyOPCItems(i) = MyOPCGroup.OPCItems.AddItem(ItemID)在这个例子里，ItemIDs 是存在了单元格(line 9-12, column B) 里，通过功能 Cells(line, column)就可以选择需要的ItemIDs 并把它传给收集对象MyOPCGroup.OPCItems.AddItem。 图 057通过功能 MyOPCGroup.SyncRead()就可以从PLC中读取值。 OPC items的服务器句柄以参数的方式传给了下面的函数。 图 068在这个例子里从PLC中读出的值在单元格(line 9-10, column E)中显示。这个值的品质和时间标签显示在单元格(line 9-10, column H)和(line 9-10, column I)里。函数MyOPCGroup.SyncRead()是以参数返回的形式提供数据。 图. 079在Microsoft Excel里OPC server对于DataChange事件的处理是提供对OPC group的DataChange()的调用来完成的。这里需提供一系列的参数像 ItemValue（OPC项的值），客户句柄等。. 通过DataChange事件，当OPC项里的数值发生变化数时数据被接收。 当前OPC项的值显示在单元格(line 9-12, column D)。 ) 图 0810如果在Excel的单元格(line 9-13, column F)输入数值，那么OPC项被写入值，这个值通过 MyOPCGroup.SyncWrite()写到PLC中并且服务器句柄是以参数的形式传给这个函数 。 图? 0911函数GetQualityText 是以事先定义的错误代码以字符串的形式提供错误信息。 Private Function GetQualityText(Quality) As String ?? Select Case Quality????? Case 0:????GetQualityText = BAD????? Case 64:?? GetQualityText = UNCERTAIN????? Case 192:? GetQualityText = GOOD????? Case 8:????GetQualityTe