Macro para abrir el archivo que está en una celda
Me pueden decir cómo sería la macro para abrir el libro cuyo nombre está en una celda.
2 Respuestas
Respuesta de Alejandro Benitez
1
Set libro = Workbooks.Open(ThisWorkbook.Path & "\" & Range("A1"))
Respuesta de Dante Amor
1
Te anexo la macro, cambia en la macro B3 por la celda en donde vas a poner el nombre libro. El archivo deberá estar en la misma carpeta en donde tienes el libro con la macro.
Sub AbrirArchivo() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = [B3] If Dir(arch) <> "" Then Workbooks.Open ruta & arch Else MsgBox "El archivo no existe" End If End Sub
Saludos.Dante Amor