Codesys OPC-Server mit Excel verbinden

[mortus]

Zuviel Werbung?
-> Hier kostenlos registrieren

Habe eine Wago 750-881.
Möchte die Daten gerne über den OPC-Server in eine Exceltabelle einfügen.
Mit einem Testclient funktioniert die Verbindung zum OPC-Server.

Kann ich folgendes Programm verwenden.
In der zweit letzten Zeile gibt es eine Fehlermeldung.
Habe es von eines Siemens OPC übernommen, ist dies möglich?
Und welche Codesys Verweise muss ich in Excel-VBA öffnen?

Option Explicit
Option Base 1Private ServerObj As OPCServer
Private WithEvents GroupObj As OPCGroup
Private GroupColl As OPCGroups
Private ItemObj1 As OPCItem
Private ItemObj2 As OPCItem
Private ItemColl As OPCItems


Private Sub CommandButton1_Click()
Set ServerObj = New OPCServer
ServerObj.Connect ("CoDeSys.OPC.02")
Set GroupColl = ServerObj.OPCGroups
Set GroupObj = GroupColl.Add("MyGroup")
GroupObj.IsSubscribed = True
GroupObj.UpdateRate = CLng(Cells(23, 5))
Set ItemColl = GroupObj.OPCItems
Set ItemObj1 = ItemColl.AddItem("PLC:[Ampel]I2", 8)
ItemObj1.Write CLng(Cells(8, 3))
End Sub

 

[MRose]

Hallo,

die 2. Zeile enthält 2 Anweisungen, deshalb gibt's da einen Fehler:

...
Option Base 1
Private ServerObj As OPCServer
...

Weiter unten müsste die Anweisung meiner Meinung nach so aussehen, da kein Rückgabewert erwartet wird:

ServerObj.Connect "CoDeSys.OPC.02"

Bei dem Rest kann ich leider auch nicht helfen - hab noch keine OPC-Verbindung zur Wago aufgebaut.