Abrir otro libro de Excel utilizando VBA

Este código sirve para abrir otro libro Excel a través del diálogo 'Abrir'. Allí el usuario elige el libro a abrir. Si el usuario pulsa Cancelar, el diálogo se cierra.

Este procedimiento en sí no sirve para mucho (porque luego se debe hacer algo con este libro, verdad), pero al final será un procedimiento básico en muchos de tus futuros programas de Excel VBA.

Sub Abrir_archivo()

Dim strRutaArchivo As String

'un poco de información
MsgBox ("Abra el archivo Excel.")

'elegir archivo
strRutaArchivo = _
Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls")

'abrir archivo
On Error GoTo 9
Workbooks.Open Filename:=strRutaArchivo
9:

End Sub