Excel mit SendMessage ohne Speicher-Nachfrage beenden

[ghubi01]

Hallo,

um andere Excel-Anwendungen nicht in die Quere zu kommen, öffne doch kurzzeitig einene neue Instanz von Excel die nach dem Drucken wieder geschlossen wird.

Delphi-Quellcode:

procedure TExcelExport.ShowTemp(Pfad: string; Drucken: boolean);
var
  ExcelApp: OleVariant;
begin
  ExcelApp:=CreateOleObject('Excel.Application');
  ExcelApp.Visible:=True;
  ExcelApp.WorkBooks.open(Pfad);

  //Hier drucken oder auch nicht

  ExcelApp.DisplayAlerts:=False; // schaltet die unerwünschte Nachfrage ab
  //ExcelApp.WorkBooks.close;  // schliesst nur das Workbook
  ExcelApp.Quit; // schliesst die Excel-Inszanz wieder
end;