tablas dinamicas

"Jorge Gómez" escribió en el mensaje news:

Que tal a todos,

Disculpen tengo el siguiente detalle, tengo varias tablas dinamicas que
se contruí de una fuente de datos externa (MsSQL 2000), el detalle es de que
quiero cambiar la mi origen de datos, es decir que la consulta la se haga a
otro server que contiene una copia de la misma base de datos, he buscado en
que parte se puede cambiar el string de conexión pero no le encuentro,
cualquier comentario al respecto se los agradeceré.

El siguiente código mostrará las cadenas de conexión de todas las tablas dinámicas del libro, así como la hoja y el rango en que se encuentran:

Sub MostrarCadenasDeConexiónTablasDinámicas()
Dim wks As Worksheet
Dim pt As PivotTable

For Each wks In ThisWorkbook.Worksheets
For Each pt In wks.PivotTables
MsgBox "Hoja: " & pt.Parent.Name & vbNewLine & _
"Rango: " & pt.TableRange2.Address & vbNewLine & _
"Conexión: " & pt.PivotCache.Connection
Next pt
Next wks

Set pt = Nothing
Set wks = Nothing
End Sub

Conocer las cadenas de conexión quizás te ayude a la hora de modificarlas.
Un saludo.


Fernando Arroyo
MS MVP - Excel