Доступ к ОРС - серверу через VBA и Genesi

Первоначально опубликовано Azat_I Как получить доступ к OPС серверу используя VBA и Genesis 32

Если речь про чтение/запись тегов OPC-сервера, то гляньте http://forum.cta.ru/forum_posts.asp?TID=1263&PN=5. Там про чтение из DataWorX, но те же процедуры я использую и для чтения OPC-тегов.

А для записи:

Sub SetPointValue(PointName As String, NewValue As Variant)
On Error GoTo ErrorLabel
Dim Point As GwxPoint

Set Point = ThisDisplay.GetPointObjectFromName(PointName)
Point.Value = NewValue
Set Point = Nothing
Exit Sub
ErrorLabel:
End Sub

В качестве PointName передается полный адрес тега, например: Fastwel.Plcnetopc.1\UltraNet.M.M1DatConfig

Если возникнут проблемы, можно дополнительно использовать промежуточную привязку тега к псевдониму на мнемосхеме:

'=======================================================
Sub SetDefPointValue(AliasName As String, PointName As String, NewValue As Variant)
If ThisDisplay.SetAliasDefinition(AliasName, PointName) Then
    Call SetPointValue(PointName, NewValue)
Else
    ShowMsgBox ("Ошибка: псевдонима " + AliasName + " не существует")
End If
End Sub