RefAppExcell

Dim objExcel As Excel.Application
Dim wkb As Workbook
Dim wks As Worksheet
'

Set objExcel = New Excel.Application
Set wkb = objExcel.Workbooks.Open(FileName:="NomeDelTuoFile.xls")
Set wks = wkb.Worksheets("Foglio1")
'

objExcel.Visible = True
'

wkb.Close
'

Set wks = Nothing
Set wkb = Nothing
Set objExcel = Nothing