Архив форумов ЦИТФорума

[Yamaha]

Мастера! Помогите решить проблему экспорта в Excel!
Привожу почти полностью текст процедуры экспорта:

var
ExcelApp,Workbook,Range,Cell1,Cell2,ArrayData: Variant;
BeginCol,BeginRow,i,j: integer;
RowCount,ColCount: integer;
begin
BeginCol:=1;
BeginRow:=5;
RowCount:=100;
RowCount:=50;

ExcelApp:=CreateOleObject('Excel.Application');
Workbook:=ExcelApp.Workbook.Add;

ArrayData:=VarArrayCreate([1,RowCount,1,ColCount],varVariant);
{Заполняю массив данными}
Cell1:=Workbook.WorkSheets[1].Cells[BeginRow,BeginCol];
Cell2:=Workbook.WorkSheets[1].Cells[BeginRow+RowCount-1,BeginCol+ColCo.. Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];
Range.Value:=ArrayData;
ExcelApp.Visible:=True;
end.

После вызова процедуры открывается Excel с экспортированными данными.
Затем я сохраняю файл Excel.
А теперь такой момент!
1. Если я сохраняю файл и закрываю Excel (т.е. в Excele Меню->Закрыть), то все нормально.
2. Если я сохраняю файл и закрываю КНИГУ Excel, то файл сохраняется, НО
получаю "The instruction at "0x300f32a5" referenced memory at "0x00f00020".
The memory could not be "read" и т.д (что-то около того)
Excel закрывается (вроде как), но через CTRL+ALt+DEL процесс запущен.

Пожалуйста, объясните что я не правильно делаю и как можно это исправить!

[Дядя Вася]

надо было полный текст писать

попробуй не КНИГУ закрывать, а
ExcelApp.Quit;

[adr]

А почему ты не сохраняешь файл программно?
У нас в системе была функция, которая делала похожие вещи. Она в конце вызывала метод SaveAs и закрывала Excel и все было нормально.