RE:Abrir Excel y mostrarlo en pantalla
Te adjunto un código extraido de www.ambsoftware.com para extraer los datos de una hoja de Excel:
Private Sub Command1_Click()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
' Abra el fichero Excel
' Sustituya "c:\myDir\book1.xls" por su fichero Excel
Set xlw = xl.Workbooks.Open("c:\myDir\book1.xls")
' Sustituya "Sheet1" por la hoja de la que quiere extraer datos.
xlw.Sheets("Sheet1").Select
' Traer el valor de la celda (2,3) de la hoja.
MsgBox xlw.Application.Cells(2, 3).Value
' Cierre la hoja sin salvar los cambios
' Si quiere guardar los cambios sustituya False por True
xlw.Close False
Set xlw = Nothing
Set xl = Nothing
End Sub
Espero que te sirva