Hi Eddy,
also Dein Source ist ok, habe ich getestet.
Meine Probleme sind:
A: Ich habe ein TimeStamp-Format '12.10.2003 03:34:22' das wird aber NICHT so übernommen, Excel schneidet die Sekunden ab.
B: Die Routine springt irgendwann raus. (Datenbank hat ca. 30.000 Datensätze)
Mann müßte Excel wohl noch den Datentyp mit übergeben.
Ich denke das müßte so Funktionieren, doch wie wird der DatenTyp an Excel übergeben.
Var DTyp : Variant;
Code:
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;
[B]DTyp := Tab1.FieldDefs.Items[i].DataType;[/B]
Excel.Cells[1, i+1] := s; // zeile,spalte
[B]Excel.xxxxxx := DTyp;[/B]
end;
Hmmmm, ok ich versuche mal weiterhin mit :
ExcelApplication
ExcelWorkBook
ExcelWorkSheet
obwohl ich da auch erstmal nicht weiterkomme.
Gruß JoJo
[edit=Sharky]Doppelposting gelöscht. Mfg, Sharky[/edit]