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
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

Respuesta
1

Set libro = Workbooks.Open(ThisWorkbook.Path & "\" & Range("A1"))

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas