Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("d:\marvel.xls")
Set mysheet = MyWo.Worksheets("Лист1")