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.