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

• 

  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
  Modérateur
  Automaticien amateur
  
  6 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

Nom

E-mail

Site Internet

Message

Aperçu

Anti-spam

 

S'abonner par e-mail au sujet

Envoyer