Macro para abrir un libro

Macro para abrir un libro
Necesito ejecutar una macro que abra un libro guardado en el disco C:\ según el valor de una celda. Ejemplo en celda A1 pongo el número "100".
Si el libro "100" no existe que aparezca un cuadro de mensaje "el libro 100 no existe".
Si el libro "100" existe que abra el libro que esta guardado en el disco C.
Muchas gracias

1 Respuesta

Respuesta
-1
Dim MiLibro As String
Set MiLibro = Range("A1")
If WorkBooks.Open(MiLibro) = "" Then
    MsgBox "Libro no existe.", vbInformation, "Buscar Libros"
Else
    Tu_Codigo
End If
Experto:
No me funciona la macro.
No entiendo el significado de Tu_Codigo que es eso???
En este codigo se detiene la macro
Si lo podes revisar te agradezco
Gracias
Pues el código que estás creando.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas