利用VBA脚本通过OPC DA 访问Wincc

看过Excel_OPC的脚本例子，对其中的一部分内容不理解。例如：
Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)

'----------- Set the spreadsheet cell values to the values read

If NumItems = 1 Then

        Select Case ClientHandles(1)
           Case 1

                 Range("B4").Value = CStr(ItemValues(1))

                 Range("C4").Value = Hex(Qualities(1))

                 TimeStamps(1) = DateAdd("h", 8, TimeStamps(1))

                 Range("D4").Value = CStr(TimeStamps(1))

          Case 2

                 Range("B5").Value = CStr(ItemValues(1))

                 Range("C5").Value = Hex(Qualities(1))

                 TimeStamps(1) = DateAdd("h", 8, TimeStamps(1))

                 Range("D5").Value = CStr(TimeStamps(1))

          Case Else

          End Select

    Else

                 Range("B4").Value = CStr(ItemValues(1))

                 Range("C4").Value = Hex(Qualities(1))

                 TimeStamps(1) = DateAdd("h", 8, TimeStamps(1))

                 Range("D4").Value = CStr(TimeStamps(1))


                 Range("B5").Value = CStr(ItemValues(2))

                 Range("C5").Value = Hex(Qualities(2))

                 TimeStamps(2) = DateAdd("h", 8, TimeStamps(2))

                 Range("D5").Value = CStr(TimeStamps(2))

    End If


End Sub

这是针对2个变量的，没有问题。

但如果是10或百个变量，如何编写？？

ClientHandle是什么含义？是一条记录（指变量名、变量值、质量代码、时间戳）的索引？

我添加10个变量，float1至float10 ，要求读出每个变量对应的值，质量代码，还有更新时间戳，应如何编写？

问题补充：
如何让Qualitues()和TimeStamps也建立起映射关系。
我想要的格式是：
  TagName         Value       Qulities    TimeStamp
     float1             0.00          C0         20**-**-**
     float2             0.00          C0         20**-**-**
     float3             0.00          C0         20**-**-**
     float4             0.00          C0         20**-**-**
   ................................
  这段代码如何写？
  会不会出现TimeStamp(4)？为什么会越界？

最佳答案

ClientHandle和ServerHandle都是属于句柄，ClientHandle就是像你说的可以索引到每个元素的值，品质，时间戳等还有多更的信息，这个是客户端句柄，你在建立Group的时候，要给添加进Group的Item分配一个ClientHandle，用于后面来追踪它的信息，可以说有了ClientHandle，你就能找到每个Item的资源。
ServerHandle是系统自动分配的，也是一样的功能。
如何让Qualitues()和TimeStamps也建立起映射关系。你的品质和时间戳不是已经找到了也对应上了吗？做10个变量把循环该成FOR循环就可以了啊

提问者对于答案的评价：

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc196360.html

利用VBA脚本通过OPC DA 访问Wincc

相关推荐

分享到: