Obwohl ExcelApp.Quit wird aber nicht beendet

[FediDelPr]

Ich habe das selbe Problem. Das geöffnete und wieder geschlossene File bleibt gelockt bis
das Applikationsprogramm beendet ist. Zu diesem Zeitpunkt verschwindet der EXCEL-Eintrag auch
aus der Liste der Hintergrund-Programme im Windows Task-Manager.

Ich führe folgenden Code aus:

Delphi-Quellcode:

Excel.WorkBooks.Close;
Excel.Quit;
Excel := unassigned; (* bringt nichts *)

Ich verwende EXCEL 365 aktuelle Version.

[kompi]

Versuche es mal mit

ExcelApp.application.quit

Dann sollte es funktionieren. Ist jedenfalls bei mir mit Excel 2010 so.

Gruß Kompi

[FediDelPr]

Geht bei mir leider auch nicht.

Ich probiere mal weitere Varianten.

[Jumpy]

@FediDelPr: Kannst du mal deinen Code zeigen den du jetzt hast (den Part mit Excel)?

[kompi]

Bei dir muss es natürlich heißen:

Excel.application.quit

Es muss jedoch vorher sicher gestellt sein, dass alle Workbooks geschlossen sind. Beim Schließen der Workbooks kann es jedoch passieren, dass Excel fragt, da das Workbook geändert wurde, ob man speichern möchte. Dies sieht man jedoch nicht, wenn Excel auf nicht sichtbar eingestellt ist. Wenn die Datei bereits vorhanden ist, so fragt Excel auch hier, ob die Datei überschrieben werden soll.

Um zu sehen, was passiert, würde ich Excel zunächst auf sichtbar schalten und Displayalerts auf true.

Gruß Kompi

[FediDelPr]

Ich habe EXCEL nun sichtbar geschaltet.

Die Zellen werden richtig ausgelesen (kein Schreiben).
EXCEL wird aus meiner Sicht zwar geschlossen (ohne Frage ob gespeichert werden soll, es wurde auch nichts geändert)verbleibt aber in den Hintergrundprozessen, wie der Taskmanager
zeigt.
Das zuvor geöffnete File bleibt für erneutes Oeffnen blockiert.

Delphi-Quellcode:

VAR
  Excel : Variant;
  s: STRING;
BEGIN
  ...

  Excel := CreateOleObject('Excel.Application');
  Excel.visible := TRUE; (* vorher FALSE *)
  Excel.WorkBooks.Open('c:\users\....\TestKreditorenRechnungen.xlsx');

   ...

  (* Es werden nur Daten gelesen *)
  s := Excel.Sheets['Tabelle1'].Cells[row,column].Value;

   ...

  Excel.WorkBooks.Close;

  Excel.DisplayAlerts := False;   (* Discard unsaved files.... *)
  Excel.Quit;  (* alternativ *) Excel.Application.Quit;
  Excel := unassigned;            (* auch probiert *)

[FediDelPr]

Wenn ich obigen Code ausführe, mit nur einmaligem Lesen, scheint's zu
funktionieren.

In der Applikation lese ich testweise 1000 Zeilen (fast alle leer).
Evtl. hat's damit zu tun. Gibt es eine Art 'end of table' ?