Datenbank in Excel schreiben

[JoJo]

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]