Get 800xA OPC data with VBA
Regarding your answer on this case:
You gave this example:
Private Sub Form_Load()
Dim systems As New ABBSystems
Dim system As ABBSystem
Dim object As ABBObject
Dim property As ABBProperties
Set system = systems.DefaultSystem
Set object = system.object("51-CPULOAD")
Set property = object.Properties
MsgBox property("Control Connection:VALUE")
I am trying to reach global variables in applications with this method without any luck:
Set object = system.object("[Control Structure].Root.Control Network.Grane_SAS_FG.Applications.F52.US_73_0008_")
Do you have any tips or examples of how to reach the values vith VBA?
Also see attached screenshot.
If its possible, I will use this method to read oupt values after setting inputs to test logic in AC800 controllers. The path above works with Data Direct, but it works to slow and crashes when reading many tags (350 tags) at once.
I guess that's what I tried whith the command object = system.object("[Control Structure].Root.Control Network.Grane_SAS_FG.Applications.F52.US_73_0008_")
But I got the error message Run-time error '-1967453661 (8abb0a23)'
Method 'Object 'IABBSystem' failed
Is there a way to make this work ?