Я использую приведенный ниже код для подключения моего VBA к сеансу отражения Attachmate.У меня нет проблем с подключением, но у моих коллег есть разные возможности подключения.Иногда это работает, а иногда - нет.У меня есть все четыре правильные ссылки Attachmate_Reflection_Object в библиотеке.
Private Function ATLASRGO(MySpleen As Object)
Dim Sys As Object, Sess As Object
Dim MyBridge As Object
Set Sys = CreateObject("EXTRA.System")
MsgBox ("Make sure your ATLAS session is active and logged into the =4.5 screen and then click 'OK' to continue.")
'sets current sesion to most recently active session
Set Sess = Sys.ActiveSession
'if no recent session found then msgbox and exit
If (Sess Is Nothing) Then
MsgBox "Could not locate the required ATLAS session. Open an ATLAS session and login to the neccessary function."
Exit Function
Else
Set MySpleen = Sess.Screen
End If
'if session found, activates session
Sess.Activate
End Function
Sub ATLASApprovals()
Dim MyScreen As Object
Call ATLASRGO(MyScreen)
'''' code for the macro to run here is proprietary
End Sub