Saltar al contenido

Macro abrir otros libros al abrir libro

publicado

Hola buenas tardes, 

En un archivo de Excel en la que tengo varias fórmulas o vínculos con otros 3 libros diferentes, deben ser abiertos al mismo tiempo, para que no se pierda el vínculo o se pueda actualizar. 

Con la función de woorbook open puedo abrir un archivo (nombrado en una celda), este libro se encuentra en la misma carpeta del libro actual.

El problema es que necesito abrir varios archivos (3 0 4). Los archivos Los tengo listados en la columna C.

Con la macro en el archivo del libro ejemplo, he podido hacer que abra los archivos que necesito. Pero me marca un error.

en ella estoy utilizando 

For i = 2 To 4

para repetir el proceso de abrir archivos, pero cuando no tengo un nombre de archivo en la columna C.

el error: Se ha producido el error 1004 en tiempo de ejecución.

Como debo ajustar para que solo abra los nombres que tenga escritos dentro del rango C2 hacia abajo. ya que pueden varias los archivos a abrir.

y en el proceso actual debo estar modificándolo para ajustar con las celdas que tengo llenas con nombres.

Muchas gracias 

Prueba abrir otros libros1.xlsmFetching info...

Featured Replies

publicado
For i=2 to Hoja1.Cells(Hoja1.Rows.Count, "C").End(xlUp).Row

Prueba y comenta

publicado

Hola amigos

Me da la impresión que lo que desea es que no dé error cuando no existe el archivo que podría estar en la lista. De estar en lo correcto, podrías usar algo así:

If Dir(rutadeynombredelarchivo) = "" Then
     MsgBox "No existe el archivo"
End If 

Obvio es cosa de entender el uso de DIR para adaptarlo a lo que tienes.

Saludos.

publicado
  • Autor

Buenos días.

 

Gracias por responder,

JSDJSD y Abraham Valencia, es correcto tu comentario Abraham: Busco que no me marque el error. Voy a buscar información sobre el uso del DIR.

 

Muchas gracias

 

 

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.