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

  • Will
    Will

    le 04/07/2016 à 01:11 Citer ce message

    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
  • Julien log
    Julien log
    Modérateur
    Automaticien amateur

    5 messages
    Inscrit le 09/08/2017

    le 23/11/2017 à 19:38 Citer ce message

    Bonjour Will.

    As tu réussi la compilation ? est-ce que tu as eu le temps d'avancer sur ton projet ? quel PLC utilise tu en connection ?

Répondre à ce message

 

7 choses à savoir si Tu débutes en automatisme...

7 choses que tu dois savoir si tu debutes en automatismeCliquez ici pour télécharger le guide PDF

Superv 3