How to get variables queryID and Result Area in AO same as SAPBEXonRefresh(queryID As String, ResultArea As Range)

Question

Hi Folks,
I am migrating some BEX 3.5 workbooks that contain macros into BusinessObjects Analysis workbooks.
VBA knowledge is rare but I figured out how to call routines after refresh using
Application.Run("SAPExecuteCommand", "RegisterCallback", "AfterRedisplay", "Callback_AfterRedisplay")
Now I attempt to copy the SAPBEXonRefresh code into the Sub Callback_AfterRedisplay() but SAP SAPBEXonRefresh
used queryID and ResultArea as parameters.
As far as I see these are global SAP variables available in BEX but not available in AO.
What are the equivalent functions in AO to get those values so that I can use the functions to fill the variable values and the "old" code can run?
Thanks for all replies in advance,
Axel

Answer 1

Hello Axel,
i am not familiar with the SAPBEXonRefresh sub. From the Parameters i infer that it probably gets called once for every queryID and ResultArea.
If you register a "Callback_afterRedisplay" macro in Analysis, it does not get called once for every datasource. It gets called only once after a redisplay, regardless of the number of datasources and crosstabs in your workbook.
Analysis Workbooks have named ranges for the Analysis crosstabs. You should be able to use these for the ResultArea. The named range has a "SAP" put in front of the crosstabs formula alias.
e. g. in the Analysis Design Panel components tab your crosstab is listed with the formula alias "Crosstab1" the named range would be: "SAPCrosstab1".
If your own VBA code needs a ResultArea and QueryID Parameter, determine and assign the appropriate values before executing.
e. g. your workbook has one datasource "DS_1" and one crosstab with formula alias "Crosstab1":
Sub Callback_AfterRedisplay()
Dim ResultArea as Excel.Range
Dim queryID as String
set ResultArea = ActiveWorkbook.Names("SAPCrosstab1").RefersToRange
'probably set ResultArea = Range("SAPCrosstab1") might work as well
queryID = "DS_1" 'or something appropriate to your old code
Call SAPBEXonRefresh(queryID, ResultArea)
End Sub
Sub SAPBEXonRefresh(queryID as String, ResultArea as Range)
<YourOldCode>
End Sub
Adapt the coding in "Callback_AfterRedisplay" to execute the "SAPBEXonRefresh" sub more than once for additional crosstabs and queries.
Regards,
Werner