Hallo endyexcellent
und alle anderen,
konnte mir selber auf die Sprünge helfen. So einfach kann der Export nach Excel vorgenommen werden, ich bin begeistert.
Code:
procedure TFBrowser.ExcelTabelleErzeugen1Click(Sender: TObject);
var
excel: variant;
zl, i : integer;
s : variant;
begin
if not Tab1.Active then begin
ShowMessage('Keine Datenbank geöffnet');
exit;
end;
try
excel := CreateOleObject('Excel.Application');
excel.visible := true;
except
ShowMessage('Excel konnte nicht gestartet werden !');
exit;
end;
try
Excel.Workbooks.Add; // leere Tabelle wird erzeugt, 1. Blatt angewählt
Tab1.First;
zl := 1; // Feldbezeichner übertragen
for i := 0 to Tab1.FieldCount - 1 do begin
s := Tab1.FieldDefs.Items[i].Name;
Excel.Cells[1, i+1] := s; // zeile,spalte
end;
SetHG; // Cursor auf HoureGlass umstellen
inc(zl); // Daten übertragen
while not Tab1.Eof do begin
for i := 0 to Tab1.Fieldcount-1 do begin
s := Tab1.Fields[i].Value;
Excel.Cells[zl, i+1].value := s; // s nicht ersetzen, da sonst Fehler
end;
inc(zl);
Tab1.Next;
end;
SetDf; // Cursor auf Default
except
ShowMessage('Es ist noch ein Fehler aufgetreten !');
SetDf;
end;
end;
Getestet und funktionsfähig!
mfg
eddy