Excel VBA не может найти сеанс отражения - PullRequest
0 голосов
/ 23 февраля 2019

Я использую приведенный ниже код для подключения моего 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...