Datensätze in Excel-Sheet schreiben

[endyexcellent]

Hallo,

möchte ien Programm schreiben, mit welchem man eine Datenbank in Excel einlesen kann.
Bin aber noch nicht weit gekommen. das Programm kann bis jetzt Excel starten und Text in beliebige Zellen schreiben.

SQL-Code:

procedure TForm1.Button1Click(Sender: TObject);

var excel:Variant;
begin

try
excel := CreateOleObject('Excel.Application');
excel.visible := true;
except
ShowMessage('Excel konnte nicht gestartet werden !');
end;

Excel.Workbooks.Add;
Excel.Cells[1, 1].Value:='Hallo Welt';

end;

Meine Frage:

Wie kann ich die Datensätze einer DB-Tabelle in eine Excel-Tabelle schreiben?

Für jede kleine Hilfe bin ich arg dankbar :!:

Mfg,
endyexcellent

[Jelly]

Hi,
wenns dir rein um das Reinschreiben der Daten ohne jegliche große Formatierungen, machst du das am besten via ADO. Daraufhin kannst du dein Excelsheet wie eine Datenbanktabelle ansprechen und mit deinen üblichen Datenbankkomponenten arbeiten. Geht wesentlich schneller als über OLE.

Ach ja, hier noch der Connectionstring für ADO:

Code:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties= "Excel 8.0;HDR=Yes";Persist Security Info=False;Persist Security Info=False

%s ist dabei der Name der Excel-Datei. Die Excelblätter stellen dann deine einzelnen Tabellen dar.

Gruß,
Tom