Ho rispolverato una vecchia routine in VB60 :

codice:
            Set xl = CreateObject("Excel.Application")

            ' dove sSource = path completo del tuo file .xls 

            With xl
                .Workbooks.Add
                .Workbooks.Open sSource
                .Sheets(sSheet).Activate
                .Visible = True
            End With