Excel richtig beenden aus Delphianwendung

[Chemiker]

Hallo okoeller,

das Problem ist, dass Du Excel mehrmals öffnest, ohne es zuvor zu Schließen.

1 Excel Aufruf
2 Excel Aufruf

1 Excel Schließen

Dann verbleibt der 1 Excel – Aufruf im Speicher.
Selbst wenn Du die Delphi – Anwendung schließt bleibt er dort.

Um den Speicher ordentlich zu hinterlassen sollte man so vorgehen:

1 Excel Aufruf
1 Excel Schließen

2 Excel Aufruf
2 Excel Schließen

usw.

Geht man so vor, bleibt ein Excel – Prozess im Speicher bis die Delphi – Anwendung geschlossen wird.

Man könnte nun prüfen, ob Excel schon läuft unter der Variable FExcel.

Delphi-Quellcode:

if VarIsEmpty(FExcel) then
begin
    EXCELStarten (FExcel);
end;

Um Excel restlos aus den Speicher zu löschen, ohne die Delphi – Anwendung zu schließen:

Delphi-Quellcode:

procedure TExcelImport.QuitExcel; 
begin 
  FSheet:= Unassigned;
  if not VarIsEmpty(FExcel) then
  begin
    FExcel.DisplayAlerts := False;
    FExcel.Quit;
    FExcel:= Unassigned;
  end;
end;

Wenn noch weitere Objekte eine Verbindung zu Excel haben, sind diese auch zu schließen, bevor Excel geschlossen wird, sonst verbleibt der Excel – Prozess bis zum Beenden der Delphi – Anwendung im Speicher.

Bis bald Chemiker