Obwohl ExcelApp.Quit wird aber nicht beendet

[hoika]

Hallo,
vielleicht liegt es ja an der Datei?
Erzeuge doch mal die Excel-Klasse und gib sie danach sofort wieder frei und das Laden der Datei.

[Jumpy]

Das Zauberwort für Zeilen mit Inhalt heißt in Excel "UsedRange", zudem kann man für workbook und worksheet auch variablen vergeben und leichter arbeiren:

Delphi-Quellcode:

VAR
  Excel : Variant;
  r,c : integer;  // reicht evtl. nicht, je nach Anzahl der Zeilen
  wb,ws : Variant; //Ist das Ole-Variant, oder sollte man da besser was anderes nehmen, weiß ich gerade nicht?
  s: STRING;
BEGIN
  ...

  Excel := CreateOleObject('Excel.Application');
  Excel.visible := TRUE; (* vorher FALSE *)
  wb:=Excel.WorkBooks.Open('c:\users\....\TestKreditorenRechnungen.xlsx');
  ws:=wb.Worksheets['Tabelle1'];
   ...

  (* Es werden nur Daten gelesen *)
  for r:=1 to ws.UsedRange.Rows.Count do
    for c:=1 to ws.UsedRange.Columns.Count do
      s := ws.Cells[r,c].Value;
   ...

  ws:=unassigned;
  wb.Close(false);
  wb:=unassigned

  //nich mehr nötig wegen dem False beim Close
  //Excel.DisplayAlerts := False; (* Discard unsaved files.... *)
  Excel.Quit;
  Excel := unassigned;

Eine gute Hilfe ist es mMn in Excel den Makro-Rekorder anzuwerfen, das zu machen was man möchte. Dann den VBA-Code verstehen und aufräumen (der Makro-Rekorder übertreit es manchmal) und das dann in Delphi umsetzen.

[Chemiker]

Hallo,

ws.UsedRange.Rows.Count
das muss aber auch nicht immer richtig sein. Sollte die erste Zeile komplett leer sein, wird dies zu einem falschen Ergebnis führen, weil die letzte Zeile nicht mehr ausgelesen wird.

ws.UsedRange.Columns.Count
Das gleiche Problem ist, wenn die erste Spalte komplett leer ist, führt dies auch zu einem falschen Ergebnis.

Bis bald Chemiker

[hoika]

Hallo,

Zitat:

Das eigentliche Problem, das Entfernen von EXCEL, ist damit für mich noch nicht gelöst.

Hast du denn meinen Tipp mal ausprobiert?

[FediDelPr]

@Hoika

Danke für deinen Tipp. Werde ich noch ausprobieren.

Zurzeit lebe ich mit dem Problem (Löschen im Taskmanager),
ich muss vorerst mal Resultate liefern.

Danke an alle Mitdenkenden.

[Jumpy]

Zitat von Chemiker:

Hallo,

ws.UsedRange.Rows.Count
das muss aber auch nicht immer richtig sein. Sollte die erste Zeile komplett leer sein, wird dies zu einem falschen Ergebnis führen, weil die letzte Zeile nicht mehr ausgelesen wird.

ws.UsedRange.Columns.Count
Das gleiche Problem ist, wenn die erste Spalte komplett leer ist, führt dies auch zu einem falschen Ergebnis.

Bis bald Chemiker

Das kannte ich noch nicht und wollte ich gar nicht glauben, aber ein schneller Test mit Execl bestätigt das. Tatsächlich werden scheinbar nur die Zeilen gezählt von der ersten in der was drin steht bis zur letzten in der was drin steht. Sind also die ersten drei zeilen leer und nur in Zeile 4 steht was drin ist Used.Range.Rows.Count trotzdem nur 1.
Bei uns war das bisher keinem aufgefallen, weil in Zeile 1 immer was steht.
Aber wenn man genauer drüber nachdenkt ist das eine genaue Interprätation des Begriffs "UsedRange".

Womit die Ermittlung der letzten Zeile/Spalte dann funtioniert, wäre z.B.:
ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row , wobei xlCellTypeLastCell den Wert 11 hat.