WithEvents: 这个对象可以提供事件（如 DataChange)
MyOPCGroup: 对象名
As OPCGroup: 变量类型
图4
Sub StartClient() ’Microsoft Excel建立与OPC服务器的连接；
Set MyOPCServer = New OpcServer ’为“MyOPCServer”对象分配内存；
l MyOPCServer.Connect 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列单元格中。
