Workbook: overlapping of 2 queries in the same sheet

Question

I've 1 Workbook and I want to insert 2 queries in the same sheet.
The query B must follow the query A.
Now, I've inserted the query B bottom of query A.
When refresh the workbook query B don't follow in a dynamic way the end of Result Area of query A.
The final result is an overlapping of query A on query B!!!
Do you know a solution of this problem?

Answer 1

Hi Claudio, I hope that Eugene's answer fixed your problem.
Another solution is:  move the result area of query 2 each time that query 1 is finished refreshing.
To do this, you need to know the local queryID of each query.  Let's assume that the one which refreshes first has local queryID of SAPBEXq0001 and the one which refreshes second is SAPBEXq0002.
If this be the case (and it probably is not, so please check!), then BW knows the location of each query's result area using a Name in the Excel Workbook's Names collection.  The names are:
SAPBEXqueries!SAPBEXq0001
SAPBEXqueries!SAPBEXq0002
When query 1 refreshes, BW will run a Subroutine named SAPBEXonRefresh.  Find that subroutine, and in it, add the following code.
Dim ws as Worksheet, wb as Workbook
If queryID = "SAPBEXq0001" Then
set ws = resultArea.Parent
set wb = ws.Parent
firstCol = resultArea.Cells(1).Column
numCells = resultArea.Cells.Count
lastRow = resultArea.Cells(numCells).Row
nextRow = lastRow + 2  'or whatever space you want
wb.Names("SAPBEXqueries!SAPBEXq0002").RefersToRange.Clear
ws.Cells(nextRow, firstCol).Name = _
"SAPBEXqueries!SAPBEXq0002"
End If
Now, no matter what, the results for the second query will always appear exactly 2 rows below the results of the first query.
- Pete
Message was edited by: Peter Knoer