procedure TrepX_BaseReport.DoExcel;
begin
try
try
fMain.stbarMain.Panels[2].Text := 'Excel - подключение ...'; // На статус баре показываем...
Application.ProcessMessages;
exApp.Connect; // Это - ExcelApplication
exApp.Application.EnableEvents := false; // Ускоряем
fMain.stbarMain.Panels[2].Text := 'Excel - новая книга ...';
Application.ProcessMessages;
exApp.SheetsInNewWorkbook[0] := 1;
exApp.Workbooks.Add(EmptyParam{xlWBATWorksheet},0);
exWB.ConnectTo(exApp.ActiveWorkbook); // ExcelWorkbook
exWS.ConnectTo(exWB.Sheets[1] as _Worksheet); // WxcelWorkSheet
except
on E : Exception do begin
ShowMessage('Ошибка активизации приложения Microsoft Excel. '+
E.Message);
exit
end;
end;

BuildReport; // здесь строим сам отчет и показывает его:
// exApp.Visible := True;

finally
DIexRange := nil;
fMain.stbarMain.Panels[2].Text := 'Excel - отключение ...';
Application.ProcessMessages;
exWS.Disconnect;
exWB.Disconnect;
exApp.Disconnect;
fMain.stbarMain.Panels[2].Text := '';
end;

end;