Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

data source question

Status
Not open for further replies.
Jul 30, 2007
42
US
I have a pivot table created by a former colleage and it was connected to a different sql server. How do I change the datasource so it can connect to the new sql server?? I tried to create a new data source but I still can't get the pivot table to change it to the new server. Any help will be greatly appreciated.

thanks
 




I can show you haw to find the current connection and SQL, but I have not been able to CHANGE the values as advertised in VBA Help.

Run this code in a module. Start on the sheet containing the PivotTable. Values will be in SQL_Source sheet in A1 & A2...
Code:
Sub FindSource()

    Dim sd, i, wsNew As Worksheet, wsOLD As Worksheet
    Set wsOLD = ActiveSheet
    Set wsNew = Sheets.Add
    wsNew.Name = "SQL_Source"
    sd = wsOLD.PivotTables(1).SourceData
        For i = LBound(sd) To UBound(sd)
            wsNew.Cells(i, "A") = sd(i)
        Next
End Sub


Skip,
[sub]
[glasses]I'll be dressed to the nines this week, as I go to have my prostatectomy...
Because, if I'm gonna BE impotent, I want to LOOK impotent![tongue][/sub]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top