Einzelnen Beitrag anzeigen

FediDelPr

Registriert seit: 16. Feb 2018
112 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#11

AW: Obwohl ExcelApp.Quit wird aber nicht beendet

  Alt 8. Jan 2019, 20:01
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 *)
  Mit Zitat antworten Zitat