Actualizar ruta de datos externos en Excel

[Snd234]

Hola.

Es posible cambiar la ruta de una fuente externa para que Excel busque los datos alli?

Por ejemplo, actualmente tengo un Excel que va a buscar datos a una Access ubicado en la misma ruta del Excel. Con estos datos actualizo una tabla dinamica. El problema es que los datos cambian y para eso se genera un nuevo Access, entonces queria saber si se puede cambiar esa referencia que tiene el Excel al archivo A por el archivo B de una forma facil, sin necesidad de hacerlo manualmente siempre.

[mrocf]

Hola! Snd234.
¿De qué manera tu archivo Excel refiere al archivo Access?
Trata de ser muy claro y amplio en tu comentario porque es la "clave" de la solución.

Saludos, Cacho.

[Snd234]

En el archivo Excel tengo una hoja con Datos, y otras con tablas dinamicas que obtienen informacion de esta hoja Datos. El tema es que los datos estan siendo mas de los 65.000 que soporte Excel, por lo que necesito insertarlos en un archivo Access, y de alli obtener los datos.

La referencia que hace Excel a Access es a travez de las tablas dinamicas. Al momento de crearla le indico que los datos provienen de una fuente externa. El problema es que esta fuente de datos (Access) varia, entonces necesito una forma de poder cambiarla de forma mas facil, ya sea usando una macro u otra herramienta.

[mrocf]

Quizás te convenga:

a) Activar la grabadora de macros
b) Hacer todos los pasos, movimientos y selecciones que estás realizando ahora para cambiar el origen de los datos externos.
c) Al terminar, puedes analizar el código generado... y adecuarlo a tus necesidades.

¿Cómo estás en ese tema de las macros?

[Snd234]

Ya lo intente. El problema que la macros actualiza la conexion e incluye en varias partes la ruta del archivo, y tambien incluye la consulta para obtener los datos.

Existe una forma mas "facil" que solo tenga que indicar la nueva ruta de la fuente de datos?

[caesar.l]

Pues en excel hay un comando como ActiveWorkbook.Path ha de existir algun equivalente en access

[mrocf]

Por supuesto que existe una forma más sencilla (como pides)...

Pero como no has publicado el código VBA obtenido, torna muy difícil orientarte "en el aire", o sea: adivinando tu estructura de datos y conformación de carpetas.

[3pies]

Iniciado por Snd234

Existe una forma mas "facil" que solo tenga que indicar la nueva ruta de la fuente de datos?

Puedes usar un inputbox, para preguntar la ruta. Incluso puedes ahorrarte la parte más larga de la ruta, preguntando solo la carpeta final y el nombre del fichero (el resto de los datos, ya los tendrías predeterminados). Pasas ese dato a una variable, y listo, ya tienes la ruta y el nombre del fichero al que acceder, sin necesidad de tocar el código.

[Snd234]

Lo solucione de la siguiente forma:

Cree una macros que actualizara el origen de datos de todas las tablas dinámicas que contiene las hojas del reporte.

Código:

Range("A3").Select
    ActiveSheet.PivotTableWizard _
    SourceType:=xlExternal, _
    SourceData:=Array("SELECT * FROM [" + Ruta + "\" + Archivo + "].Detalle"), _
    Connection:=Array( _
        Array("ODBC;DSN=MS Access Database;DriverId=25;"), _
        Array("DBQ=" + Ruta + "\" + Archivo + ".mdb;"), _
        Array("DefaultDir=" + Ruta + ";"), _
        Array("FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;") _
    )

Las variables Ruta y Archivo, como su nombre lo indica, contiene la ruta del Access (que es la misma donde esta el reporte) y el nombre del Access (el mismo que el del reporte)

Código:

Dim Ruta As String
    Dim Archivo As String
    
    Ruta = ActiveWorkbook.Path
    Archivo = ActiveWorkbook.Name
    Archivo = Mid(Archivo, 1, Len(Archivo) - 4)