Public Sub OPC_READ()
Dim ItemVal() As Variant
Dim lerrors() As Long
Dim I As Integer

If objServer Is Nothing Then
Exit Sub
End If

If objServer.ServerState = OPCRunning Then
‘同步读取，如果要读PLC内数据？??
Call objTestGrp.SyncRead(“s7:【s7_connect_1】MB0”, 9, lServerHandles, ItemVal, lerrors)

With Worksheets("sheet1")
For I = 1 To 9
‘在工作表上表示数据字符串
.Cells(2, I).Value = ItemVal(I)
Next I
End With
End If
End Sub