BExAnalyzer und VBA

lescha

Добрый день,

как можно с помощью VBA считать в какой системе сейчас находится user? (Ti1 или QI1 или Pi1)

большое спасибо!

Air_demon

Code:

Sub LookSys
Dim BexConn as object

Set BexConn = Run("BexAnalyzer.XLA!sapBexGetConnection")
If BexConn.IsConnected <> 1 then
   MsgBox("System = " & BexConn.System & Chr(10) & "Destination = " & BexConn.Destination & Chr(10)  & "HostName = " & BexConn.HostName & Chr(10)  &    "ApplicationServer = " & BexConn.ApplicationServer)
end if

Set BexConn = nothing
end sub

ToliK

Интересно, а зачем? Какая цель упражнения?

Возможно, вопрос звучит - как поддержке определить в какой системе пользователь запустил книгу...
В принципе можно сделать переменную без контекста и туда писать текущую систему, а вывести ее в Параметрах в книжке.

BExAnalyzer und VBA

Кто сейчас на конференции