Option Explicit

Dim Server As IOPCServerDisp '引用服务器对象

Dim ServerName As String '服务器名字

Dim Group As IOPCItemMgtDisp '引用组对象

Dim ServerUpdateRate As Long '更新速率

Dim ServerGroupHandle As Long '将包含服务器生成的组句柄

Dim NrOfItems As Long '本程序OPC项目的数量

Dim ItemIDs() As String 'OPC项名字数组

Dim ActiveStates() As Boolean 'OPC每个项的活动状态数组

Dim ClientHandles() As Long '每个项目的客户端句柄的数组

Dim AccessPaths() As String '每一个项目的访问路径的数组

Dim RequestedDataTypes() As Integer '每一个项目需求数据类型的数组

Dim ItemsErrors As Variant '每一个项目的错误代码

Dim ServerHandles As Variant '包含每一个项目的服务器句柄

Dim ItemObjects As Variant '将包含对每个项目的引用

Sub OPCExmpleMacro()

Dim i, ActualHour, ActualMinute, ActualSecond, WaitingTime '本地变量

NrOfItems = 1 '如果想读取更多的项目，就修改这个数值

'更新那些数组的daxiao

ReDim ItemIDs(NrOfItems)

ReDim AccessPaths(NrOfItems)

ReDim ClientHandles(NrOfItems)

ReDim AccessPaths(NrOfItems)

ReDim RequestedDataTypes(NrOfItems)

ReDim ActiveStates(NrOfItems)

ReDim ItemObjects(NrOfItems)

'开始配置服务器

ServerName = "Freelance2000OPCServer.24.1"

Set Server = CreateObject(ServerName)

'添加一个组到服务器

Set Group = Server.AddGroup("Group 1", True, 1000, 1, 0, &H409, ServerGroupHandle, ServerUpdateRate)

'设置项目名字

ItemIDs(0) = "LT1001"

'设置客户端句柄，激活项目状态

For i = 0 To NrOfItems - 1

        ClientHandles(i) = i + 1 '每个项目的客户端句柄不同

        ActiveStates(i) = True

Next

'添加项目到组

Group.AddItems NrOfItems, ItemIDs, ActiveStates, ClientHandles, ServerHandles, ItemsErrors, ItemObjects, AccessPaths, RequestedDataTypes

'没有按下Ctrl+Break，那么每2秒更新一次数据

Worksheets(1).Visible = True

While True

    ActualHour = Hour(Now())

    ActualMinute = Minute(Now())

    ActualSecond = Second(Now()) + 2

    WaitingTime = TimeSerial(ActualHour, ActualMinute, ActualSecond)

    Application.Wait WaitingTime

    For i = 0 To NrOfItems - 1

        Worksheets(1).Cells(1 + 2, i + 1) = "Server:"

        Worksheets(1).Cells(1 + 2, i + 2) = ServerName

        Worksheets(1).Cells(1 + 3, i + 1) = "Name:"

        Worksheets(1).Cells(1 + 3, i + 2) = ItemObjects(i).ItemID

        Worksheets(1).Cells(2 + 3, i + 1) = "Access Right:"

        Worksheets(1).Cells(2 + 3, i + 2) = ItemObjects(i).AccessRights

        Worksheets(1).Cells(3 + 3, i + 1) = "Value:"

        Worksheets(1).Cells(3 + 3, i + 2) = ItemObjects(i).Value

        Worksheets(1).Cells(4 + 3, i + 1) = "Quality:"

        Worksheets(1).Cells(4 + 3, i + 2) = ItemObjects(i).Quality

        Worksheets(1).Cells(5 + 3, i + 1) = "TimeStamp:"

        Worksheets(1).Cells(5 + 3, i + 2) = ItemObjects(i).Timestamp        

    Next

Wend

End Sub