Excel Export Problem Save as XLS

[klaus9]

Hallo,

ich habe ein Problem unswar benutze ich einen Excel Export Code funktioniert soweit auch ganz gut.

Delphi-Quellcode:

function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
const
  {$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
  CXlsEof: array[0..1] of Word = ($0A, 00);
var
  FStream: TFileStream;
  I, J: Integer;
begin
  Result := False;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    for i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do
        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;

Delphi-Quellcode:

procedure TForm1.Button16Click(Sender: TObject);
begin
 if SaveAsExcelFile(StringGrid1, 'c:\MyExcelFile1.xls') then
    ShowMessage('StringGrid saved!');

end;

Mein Problem ich habe eine Excel Datei in der bereits Werte vorhanden sind, wenn ich den oben genannten Code verwende überschreibt er mir die gesamte Excel Datei. Wie kann ich Delphi bei bringen, das er die letzte leere Zeile aus der Excel Datei herausfinden soll und die zu exportierenden Daten einfach dahinter hängen soll.

Excel Datei Beispiel, vorhandene Datensätze

test.xls Tabelle1 Spalte A,B,C,D Zeile 1,2, usw.

test100 test101 test102 test103
test200 test202 test203 test204
usw.


Wenn ich nun Datensätze über Delphi einfügen will soll er mir die kommenden Werte einfach dahinter schreiben

so in etwa:

test100 test101 test102 test103
test200 test202 test203 test204
usw.
neu300 neu400 neu500 neu600
neu301 neu401 neu501 neu601



Zurzeit überschreibt er einfach die Datei.

[vagtler]

Du müsstest die vorhandene Datei als Stream wieder einlesen und neu schreiben, bis vor dem EOF-Kennzeichen. Dann hängst Du die neuen Datensätze an und schreibst schlussendlich das EOF-Kennzeichen erneut.

Der Cast auf PChar ist doch beim FileStream.Create komplett überflüssig, oder täusche ich mich da?

Aber wieso glaube ich nur, dass Du den Quellcode nicht wirklich verstanden hast?

[klaus9]

Hi, verstehe ich irgendwie nicht so ganz.. all zu fit bin ich auch nicht in delphi

[himitsu]

Ist doch ganz einfach.
Du willst die alten Daten behalten, also dürfen sie nicht überschrieben werden.

* Entweder man ließt die Datei aus uns speichert sie danach wieder ab, inklusive der neuen Daten.

* Oder, falls die Daten "einfach" anhängbar sind, sucht man das Ende, löscht/überschreibt eventuelle Ende-Marker,
hängt die neuen Daten an und fügt den Ende-Marker wieder dran. (hängt vom Datenformat ab)

[vagtler]

Zitat von himitsu:

[...]

Habe ich etwas anderes geschrieben?...

[himitsu]

Nein, du nicht,
aber scheinbar hat klaus9 es einfach nur nicht richtig verstanden.