Private Sub Command1_Click()
On Error GoTo xError
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
'oExcel.Visible = True 'Mostrar aplicacion
With oExcel
.Workbooks.Open App.Path & "\Libro1.xls"
.Workbooks(.Workbooks.Count).Activate
MsgBox (.Range("C1"))
End With
oExcel.Quit 'Cerrar Aplicacion
Set oExcel = Nothing 'Destruir Objeto
xError:
If Err.Number > 0 Then
MsgBox (Err.Description)
Err.Clear
End If
End Sub