Change query in Workbook

Question

Hi,
I want to replace a query in a workbook via VBA. I already managed to replace the references of the query on the hidden sheet SAPBEXqueries. But when I refresh the new query, the textelement are not displayed correctly. Some are missing or   there are addional blank rows.
Regards,
Karen

Answer 1

Hi Karen,
I might know what you are facing.  When you write that you have replaced reference to the old query with reference to the new query in the hidden sheets ...
Did you do anything other than replace the query's server ID in column B?  If not, then any of your structures that are not published as re-useable structures will be messed up.  Since you did not mention this as a problem, I am going to assume that you got this part right.
So, then, if you got the part related to the repository worksheets completely correct, the remaining problem is getting the workbook Names right.  I am not referring to the file name, of course.  I am referring to what some people call "Named Ranges".  There are many of these, as you probably know. 
The easiest way to visualize the names is to the use the sapbexDebugPrint API function.  If you can find that and use it (do a search on this Forum), it is a handy tool to have.  Otherwise, here is my own slightly different version of this.  Once you have visualized the Names, I think you will quickly see where you need to go.
Sub listNames()
Dim nm As Name, ws As Worksheet
Dim wb As Workbook, wbNew As Workbook
    Set wb = ActiveWorkbook
    Set wbNew = Workbooks.Add
    n = 0
    With wbNew.Sheets(1)
    For Each nm In wb.Names
        On Error GoTo errorClear
        n = n + 1
        .Range("A" & n) = nm.Name
        .Range("B" & n) = nm.RefersToRange.Parent.Name
        .Range("C" & n) = nm.RefersToRange.Address
        .Range("D" & n) = "'" & nm.RefersTo
    Next nm
    .Columns("A:D").AutoFit
    End With
errorClear:
    If Err.Number <> 0 Then
        Err.Clear
        Resume Next
    End If
End Sub
I did something like this (although my task was much simpler) when we migrated from an "old" template workbook to a new template workbook.  Since none of the Names needed to change, I could use the following code:
    'copy workbook named ranges
    Application.StatusBar = "Copying Query Ranges"
    For Each nm In wb1.Names
        wb2.Names.Add Name:=nm.Name, RefersTo:=nm.RefersTo
    Next nm
In your case, the problem will be more difficult since technical names of some elements ... particularly Conditions ... will need to change.  But, I am certain that with the right cross-reference table you will be able to work this out.
Hope this helps.
- Pete