Tablas Dinamicas y ODBC

Cuando cambias una base de datos de ubicacion la unica manera de "decirle" a la
tabla dinamica donde encontrar la nueva ubicacion de dicha base de datos es
usando vba. Coloca el siguiente codigo en un modulo "normal" del archivo donde
tienes la tabla dinamica, define las rutas correctas a las carpetas y ejecutalo
despues que hayas copiado la base de datos y el archivo de excel a tu portatil.

Sub CambiarCarpeta()
Dim sh As Worksheet
Dim pt As PivotTable, pc As PivotCache
Dim OldPath As String, NewPath As String
Dim OldConn As String, NewConn As String
Dim OldSql As String, NewSql As String

OldPath = "C:\Servidor"
NewPath = "C:\Portatil"
For Each sh In ActiveWorkbook.Sheets
For Each pt In sh.PivotTables
OldConn = pt.PivotCache.Connection
NewConn = Replace(OldConn, OldPath, NewPath)
pt.PivotCache.Connection = NewConn
OldSql = pt.PivotCache.CommandText
NewSql = Replace(OldSql, OldPath, NewPath)
pt.PivotCache.CommandText = NewSql
pt.PivotCache.Refresh
Next pt
Next sh
End Sub

Para hacer referencia nuevamente al archivo de access en el servidor puedes
crear otra macro con las rutas a las carpetas originales.

Saludos,

David Canales


"Javier Roig" wrote in message
news:8e6d01c4787b$785c4540$
Hola
Tengo una tabla dinamica creada con un odbc que accede a
Access.
Si cambio la ubacacion de la base de datos de access,
aunque modifique la ruta dentro del enlace odbc, cuando
quiero actualizar la tabla dinamica de excel me indica
que no encuentra la base de datos, muestra un cuadro de
dialogo para que busque la base de datos y aunque
seleccione la nueva ubicación da un error de odbc que no
puede acceder a la base de datos y no puedo continuar
Esto implica que tengo que volver a crear la tabla
dinamica.
ESto lo utilizo para trabajar con una hoja de excel que
apunta a una bd de access en el servidor, que tambien me
llevo en el portatil.

¿existe alguna forma de trabajar con la misma tabla
dinamica y utilizando una base de datos que este en
distintas ubicaciones?

gracias