cambiar ruta de macros

4 envíos / 0 nuevos
Último envío
eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 2 meses 1 semana
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1385
cambiar ruta de macros

Hola buenas.

Tengo varios libros con sus macros en modulos que contienen rutas para abrir libros.

Que macro podria utlizar ejemplo desde un libro para cambiar las rutas de las macros de varios libros,el rollo es que las rutas en los libros no estan siempre en el mismo modulo ???

Salud2...

 

eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 2 meses 1 semana
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1385
respuesta

pensandolo mejor una macro que no necesite poner ruta para buscar al libro, o sea que este en la carpeta que este lo busque.

estoy usando una que va bien, pero cuando cambio los libros de carpeta ( es todos los años) tengo que andar cambiando las rutas en los modulos y son varias macros puf... que coña.....

estoy usando esta:

Workbooks.Open Filename:="C:\Users\root\Desktop\xxxxxx\xxxxx\LIbro.xlsm"
Sheets("xxxxxxxxx").Select
Range("A4").Select

Salud2....

Cron
Imagen de Cron
Offline
última acción: Hace 2 días 18 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 11965
Lo que yo suelo hacer es

Lo que yo suelo hacer es abrir un diálogo de apertura de archivo, seleccionar el archivo correspondiente y almacenar ruta y nombre de archivo en dos celdas.

Una vez hecho esto, luego utilizo el valor de esas celdas para abrir el archivo.

Algo así como:

Workbooks.Open Filename:=cells(1,1).value & cells(1,2).value

Si en A1 está la ruta acabada en "\" y en B1 el nombre del archivo.

Un saludo

eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 2 meses 1 semana
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1385
solucionado

La he probado y me lio un poco, pero al final encontré esta los libros esten en la carpeta que sea no necesito cambiar la ruta.

Workbooks.Open ThisWorkbook.Path & "\Libro1.xlsm"
Sheets("hoja1").Select
Range("B2").Select

Salud2....