Einzelnen Beitrag anzeigen

ghubi01

Registriert seit: 18. Nov 2017
128 Beiträge
 
Delphi 12 Athens
 
#10

AW: Excel mit SendMessage ohne Speicher-Nachfrage beenden

  Alt 1. Aug 2019, 15:00
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;
  Mit Zitat antworten Zitat