如何创建一个Microsoft Excel的OPC客户端.docVIP

如何创建一个Microsoft Excel的OPC客户端用法说明:这个说明讲述了如何在Microsoft Excel 中用VBA脚本语言建立OPC 客户端，并通过OPC接口读取PLC中的数据，以及将数据写入PLC。通过OPC接口，Microsoft Excel作为OPC?客户端发起通讯并发送读OPC服务器。OPC服务器执行这些读 Microsoft Excel 作为客户端的配置过程如下： 在Excel中创建一个接口，并保存分别申明的控制元件。 ?图 01 在VisualBasic 编辑器中的“工具-引用”中，选中“Siemens OPC DA Automation 2.0”组件，使VisualBasic能够识别OPC对象。 现在创建所需的所有对象，如：“MyOPCGroup”对象Dim: 创建一个变量WithEvents: 这个对象可以提供事件（如 DataChange)MyOPCGroup: 对象名As OPCGroup: 变量类型 图 02 为“MyOPCServer”对象分配内存：Set MyOPCServer = New ... Microsoft Excel建立与OPC服务器的连接：Call MyOPCServer.Connect(ServerName) 使用如下函数来访问 Microsoft Excel的单元格信息。在本例中，从单元格（第四行，B列）中获取OPC服务器的名称。 图?03 Microsoft Excel与OPC服务器的连接一旦建立，OPC组即被创建。这个通过集合对象来实现：MyOPCServer.OPCGroups.Add（组名） 在本例中，最新创建的组通过“MyOPCGroup”变量来寻址。设置MyOPCGroup.IsSubscribed = True，以便OPC组能够提供DataChange等事件。 图?04 创建OPC项。这个通过集合对象完成：MyOPCItems(i) = MyOPCGroup.OPCItems.AddItem(ItemID) 在此例中，ItemIDs 存储在单元格（9-12行，B列）中。使用函数Cells(line, column) ，把指定的ItemIDs 传送给集合对象MyOPCGroup.OPCItems.AddItem。? ? ?图?05 使用下列函数从PLC中读取变量：MyOPCGroup.SyncRead() 以参数形式为此函数传递OPC项的服务器句柄。 图?06 从PLC读出的值显示在单元格（9-10行，E列）中。 这些读出值的质量代码和时间戳显示在单元格（9-10行，H、I列）中。函数“MyOPCGroup.SyncRead()”以返回值的形式提供这些数据。 图?07 在Microsoft Excel中，调用如下用于OPC组事件处理的程序，它是一个OPC服务器的DataChange 事件：DataChange()这个事件处理程序提供了许多参数，如ItemValue(OPC项的值)，客户端句柄等。 通过DataChange事件，当OPC项的值变化时，数据会自动发送。OPC项的当前值显示在单元格（9-12行，D列）中。 图?08 如果在Microsoft Excel的单元格（9-13行，F列）中输入一个值，通过下面的函数将OPC项写入到PLC：MyOPCGroup.SyncWrite() 写入值和服务器句柄以参数形式传递给此函数。 图?09 函数GetQualityText以字符串的形式，为预定义的错误代码传递错误消息。 Private Function GetQualityText(Quality) As String ?? Select Case Quality????? Case 0:????GetQualityText = BAD????? Case 64:?? GetQualityText = UNCERTAIN????? Case 192:? GetQualityText = GOOD????? Case 8:????GetQualityText = NOT_CONNECTED????? Case 13:?? GetQualityText = DEVICE_FAILURE????? Case 16:?? GetQualityText = SENSOR_FAILURE????? Case 20:?? GetQualityText = LAST_KNOWN????? Case 24:?? GetQualityText = COMM_FAILURE????? Case 28:?? GetQualityText = OUT_OF_SERVICE????? Case 132:? GetQuali