Abrir Archivo

Sub  AbrirLibro()
    Workbooks.Open ("C:\Mis documentos\Ejemplo.xls")
End Sub 
-------------------------------------------------------------
Sub Abrir()
    Application.EnableEvents = True
    Workbooks.Open Filename:="c:\Directorio\MiLibro.xls", UpdateLinks:=False
End Sub
-------------------------------------------------------------
Sub Abrir()
    Dim Libro As Workbook
    Set Libro = Workbooks.Open(Filename:="C:\Directorio\Libro.xls", Password:="qaz", WriteResPassword:="qaz")
End Sub
-------------------------------------------------------------
Workbooks.Open Filename:="D:\Cesar\Excel\Ejemplo.xls", Password:="123"
---------------------------------------------------------
Workbooks.Open Filename:="C:\Modulo Clase\Ejemplo.xls"
-------------------------------------------------------------