Getting range of query result in 2004s

Question

Hi,
I'm trying to determine range of a result area in a 2004s query using the following code :
Dim myrange As Range
Set myrange = Run("BEXAnalyzer.xla!SAPBEXgetResultRangeByID", "ZSKMILESTONESTEST")
I have also tried this using the technical ID of the query as in RZSCOMPDIR.
This causes a VB error and stops inside the SAPBEXgetResultRangeByID function and says "Object Variable or with block not set" on this line :
Set SAPBEXgetResultRangeByID = pAddin.SAPBEXgetResultRangeByID(ActiveWorkbook.Name, queryID, charName)
Can anyone help ?
Cheers
Sue

Answer 1

Hi Sue,
I know nothing about 2004s.  But, I know something about SAPBEXgetResultRangeByID.
The function's definition (from Object Browser) is:
Function SAPBEXgetResultRangeByID(ByVal queryID As String, Optional ByVal charName As String) As Range
Here are two examples that work for me ...
'This example locates query result Area using local query ID
Sub testResultRangeByID1()
Dim resultArea As Range, queryID As String
    queryID = "SAPBEXq0001"
    Set resultArea = Run("SAPBEX.xla!SAPBEXgetResultRangeByID", queryID)
    Application.Goto reference:=resultArea
End Sub
'This example locates a characteristic's filter cell
'using local query ID and technical name of characteristic
Sub testResultRangeByID2()
Dim resultArea As Range, queryID As String
    queryID = "SAPBEXq0001"
    Set resultArea = Run("SAPBEX.xla!SAPBEXgetResultRangeByID", queryID, "0SHIP_TO")
    Application.Goto reference:=resultArea
End Sub
Hope this helps.
- Pete