ole_book = CREATE oleobject

IF NOT IsValid(ole_book) THEN
MessageBox(This.Title, 'Create fail.', Exclamation!)
DESTROY ole_book
close(this)
RETURN
END IF

i_irc = ole_book.ConnectToNewObject('excel.application')

IF i_irc <> 0 THEN
MessageBox(This.Title, 'Unable to connect to excel application.', Exclamation!)
DESTROY ole_book
Close(This)
RETURN
END IF

a_any = ole_book.Application.WorkBooks.Open('c:\struk.xls')

ole_sheet = ole_book.ActiveWorkBook.WorkSheets(1)

/*
обработка ...
*/

ole_sheet.DisconnectObject()

ole_book.Application.Quit
ole_book.DisconnectObject()

IF IsValid(ole_sheet) THEN
DESTROY ole_sheet
END IF

IF IsValid(ole_book) THEN
DESTROY ole_book
END IF

всё работает, я тоже на 7.

я вижу у тебя END IF, проверь их всех, возможно при какой-то кондиции ты не всё закрываеш.