SAP BEX Analyzer Set values for variables

Question

Please help us out in sorting out this problem,
We are automating BEx Analyzer for a Testing Project with Quick Test Professional (QTP) a functional automation tool uses VB script.
Problem:
There are 5 steps in automation
Invoke BEx Application
Log in to BEx server
Run Query
Set values for Variables for Query
Display Report
We are able to do 1,2,3 steps using BEx API functions and running BEx macros but we struck up with 4th step,
1. Invoke BEx Application
‘Launch Excel
Dim app
Set app = createobject("Excel.Application")
‘Make it visible
app.Visible = true
‘Attach add-in to Excel file
app.Run ("'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SetStart")
2. Log in to BEx server
Login to Bex server
Function logonToBW(app)
Dim myConnection
Dim logonToBW2
On Error Resume Next
logonToBW2 = True
' Create logon to system with following user and system details
Set myConnection = app.Run ("'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'! SAPBEXgetConnection")
With myConnection
.client = "600"
.User = "USERNAME"
.Password = "Welcom123"
.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
' Run connection query to see if connected
app.Run ("'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SAPBEXinitConnection")
logonToBW2 = True
End Function
3. Run a Query
app.Run "'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'! runQuery", "ZZCCA3_M01_Q0003"
Till here the script is running fine then the “Select values for Variables” window is displayed.
This is where exactly we struck up; in this window we need to select values.
Name of the Fields
     Field Name     Technical name of characteristic     Variable Name     Value
1     Company Code                     0COMP_CODE     ZM_COMPCODE     1000
2     Cost Center Hierarchy          0COSTCENTER     ZS_CCTRN     1000MDON
3     Cost Center Node     0COSTCENTER     ZS_CCTRN     1000COP
4     Cost Element          0COSTELEMENT     ZS_COELN     1000GDON_6999
5     Fiscal Year     0FISCYEAR     0P_FYEAR     2007
To select values for variables, we are trying below code but its giving an error,
app.Run  "'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SAPBEXSetFilterValue", “1000”, "0COMP_CODE"
app.Run  "'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SAPBEXSetFilterValue", “1000MDON”, " 0COSTCENTER "
app.Run  "'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SAPBEXSetFilterValue", “1000COP”,  "0COSTCENTER"
app.Run  "'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SAPBEXSetFilterValue", “1000GDON_6999”,  "0COSTELEMENT "
app.Run  "'C:\Program Files\SAP\Business Explorer\BI\BExAnalyzer.xla'!SAPBEXSetFilterValue", “2007”,  " 0FISCYEAR"
Any help highly appreciated, thanks in advance.

Answer 1

Hi Reinhard,
Pleas look at this:
Passing a range to SAPBEX.XLA!SAPBEXSetFilterValue
Best regards,
Eugene