Excel mit SendMessage ohne Speicher-Nachfrage beenden

[Chemiker]

Hallo Ykcim,

hier eine Routine die das Workbook ausdruckt, ich habe nur die Seitenansicht angestellt. Da eine neue Excel - Instanz geöffnet wird sind keine Probleme mit anderen Excel - Instanzen die geöffnet sind zu erwarten.

Delphi-Quellcode:

procedure Excel_Export(DateiName: TFileName; Drucken: boolean);
var
  oEXCEL : OLEVariant;
begin
  try
    oEXCEL := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden !');
    Exit;
  end;
  oEXCEL.Visible:= TRUE;
  oEXCEL.Workbooks.Open (Filename:=DateiName,ReadOnly:=TRUE);
  if Drucken then
  begin
    oExcel.ActiveSheet.PrintOut (Preview:=TRUE); //Seitenansicht angestellt
  end;
  if  NOT VarIsEmpty(oEXCEL) then
  begin
    oEXCEL.ActiveWorkBook.Saved:= TRUE;
    oEXCEL.Quit;
    oEXCEL:= Unassigned;
  end;
end;

Bis bald Chemiker