Run RFC FM from BEx Analyzer

Question

Hello everybody!
I have to implement call of function module via RFC from BEx Analyzer.
I created a VBA macros:
Set BI_connect = Run("BExAnalyzer.xla!sapBEXgetConnection")
If BI_connect.IsConnected <> 1 Then
   If BI_connect.Logon(0, False) <> True Then
      MsgBox "Logon failed"
      Exit Sub
   End If
End If
It works but it shows logon window twice: first when user open a workbook and second when run this macros. I want the second authorization to be silent.
But if I set BI_connect.Logon(0, True) then Logon function returns 4 (missing parameter).
How this problem can be solved?

Answer 1

Hi,
normally the function "BExAnalyzer.xla!sapBEXgetConnection" should deliver the existing SAP Connection (as of SAP). You should use the "BI_connect.Logon" only if there is no connection to the SAP Server yet. Are you getting (BI_connect.IsConnected = False)?
If you want to use "BI_connect.Logon(0, True)" it should be possible in this way:
Set myConnection = 'Run("BExAnalyzer.xla!sapBEXgetConnection")
With myConnection
.client = "600"
.User = "USERNAME"
.Password = "PASSWORD"
.Language = "en"
.systemnumber = "00"
.System = "BWDCLNT600"
.systemid = "BWD"
.ApplicationServer = "156.158.7.161"
.SAProuter = ""
.Logon 0, true
      If .IsConnected = 0 Then
             .Logon 0, False
If .IsConnected <> 1 Then
MsgBox "Automatic logon failed. Please enter your username and password in the next screen ..."
Exit Function
End If
End If
End With
You will get another connection in this case, disadvantage is, that you should define the whole connection params in your vba code ...:(
Regards,
Kirill