Ошибка после закрытия Excel

← →
O.O (2008-02-28 11:12) [0]

Для формирования отчёта использую в программе использую взаимодействие с MS Excel
var ...
XL: Variant;
...
XL := CreateOleObject("Excel.Application");
XL.DisplayAlerts := false;
...
...
XL.DisplayAlerts := true;

Всё прекрасно, документ формируется, Excel открывается, но возникает проблема: на некоторых компьютерах после зпкрытия документа появляется стандартное окно ошибки MS Office с сообщением

"Microsoft Office Excel - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства"
....
....
....

И именно на одних машинах это возникает, на других нет. Как не бился, понять в чём разница настройки офиса или системы - не понимаю. Переустановка офиса не помогает.

В чём может быть проблема?

← →
YurikGL © (2008-02-28 11:57) [1]

Переходи на создание xlm-файлов...

← →
O.O (2008-02-28 12:41) [2]

В настоящее время для меня это не выход, нужно чтоб документ был именно Excel, но любой версии начиная с 97

← →
macrodens © (2008-02-28 22:02) [3]

а в uses секции ты какой excel подключаешь?

procedure XLExp_OpenReport(TemplateName: OleVariant); // Процедура создает в первый раз Excel-приложение, а если оно уже существует, // то коннектится к нему, определяя опции коннекта и создавая объекты "Книга" // и "Лист". Имя книги задается параметром TemplateName begin if not Assigned(XLExp_Report) then XLExp_Report:=TExcelApplication.Create(nil); XLExp_Report.ConnectKind:=ckRunningOrNew; XLExp_Report.Connect; try // если офис 2003, ХР XLExp_WorkBook :=XLExp_Report.Workbooks.Add("",0); except try // если офис 2000 XLExp_WorkBook :=XLExp_Report.Workbooks.Add("Книга1",0); except try //если Офис 97 XLExp_WorkBook :=XLExp_Report.Workbooks.Add(xlWBatWorkSheet,0); except end; end; end; XLExp_Sheet:=XLExp_Workbook.Worksheets.Item[1] as Excel2000.ExcelWorkSheet; end;

Ошибка после закрытия Excel Найти похожие ветки