Te pongo el código para que veas como lo abro.
Añado la referencia Microsoft Excell 11 object library
Código:
Dim Exc As New Excel.Application
Dim Texto as String
Private Sub Fichero_Xls()
Exc.Workbooks.Open dialog1.FileName 'nombre del excel
Exc.Worksheets(1).Activate
Texto = Exc.Cells(1, 1)
Set Exc = Nothing
End Sub
Hasta aquí todo bien, pero no me deja cerrarlo, ¿como pongo .close ? la propiedad .quit si que me aparece, pero close no.
Saludos.