Fio banner fr 1 1

Formation automatisme en ligne 3

Création client OPC sur Excel pour communiquer avec un automate Siemens

# 04/07/2016 à 01:11 Will

Bonjour, je suis en train de développer un client OPC en VBA sur Excel afin de communiquer avec un automate Siemens mais je rencontre des erreurs durant la compilation.Voici mon code :

Option Explicit ' every variable has to be declared
Option Base 1 ' every Array starts on Index 1

Private MyOPCServer As OPCServer
Private WithEvents MyOPCGroup As OPCGroup
Private MyOPCItems() As OPCItem
--------------------------------------------------
Private Sub cmdConnect_Click()
Dim i As Integer

Set MyOPCServer = New OPCServer

'connect the OPC Server
Call MyOPCServer.Connect(Cells(4, 2))

'add one OPC Group
Set MyOPCGroup = MyOPCServer.OPCGroups.Add("Gruppe1")

'apply for DataChange
MyOPCGroup.IsSubscribed = True
MyOPCGroup.UpdateRate = 500

'add Items
ReDim MyOPCItems(4)

For i = 1 To 4

Set MyOPCItems(i) = MyOPCGroup.OPCItems.AddItem(Cells(8 + i, 2), 8 + i)

Next i

'set buttons
cmdDisconnect.Enabled = True
cmdRead.Enabled = True
cmdWrite.Enabled = True
cmdConnect.Enabled = False
End Sub

Répondre à ce message

Code incorrect ! Essayez à nouveau

 

Cliquez ici pour s'inscrire à la formation TIA Portal

Its plc profesionnal edition 1