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.