ник: georgelisovsky
Есть такая замечательная вещь - OLE.Automation
Dim XL As Object
Dim XLBook As Object
Dim XLSheet As Object
XL=CreateObject("Excel.Application")
XLBook=XL.Workbooks.Open(Полное имя книги Эксель в кавычках)
XLSheet=XLBook.Worksheets(Имя или номер листа)
далее используем XLSheet.Cells(НомерСтроки,НомерСтолбца).Value для чтения значений из ячеек.