Datenbank in Excel schreiben

[eddy]

Hallo enDyExcellent,

ein direkter Export einer Tabelle nach Excel gefällt mir gut. Da kann man den Umweg über CSV vermeiden.

Also habe ich mir Deinen Quelltext geschnappt und angefangen, mich dem Problem allgemein zu widmen.

Leider scheitere ich schon bei dem Versuch, in die Excel-Tabelle zu schreiben.

Code:

procedure TFBrowser.ExcelTabelleErzeugen1Click(Sender: TObject);
var
    Excel: Variant;
    zl, i : integer;
    s : variant;
begin
  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] := s;   // zeile,spalte   <-- EOleException wird ausgelöst
//    Excel.Cells[1, i].Value := s;      auch bei dieser Variante gibt's nur ein EOleException
    end;

    inc(zl);
{    while not Tab1.Eof do begin
        For i :=0 to Tab1.Fieldcount-1 do
        Excel.Cells[zl, i+1] := Tab1.Fields[i].Value;
        inc(zl);
        Tab1.Next;
    end;}
  except
    ShowMessage('Es ist noch ein Fehler aufgetreten !');
  end;
end;

Vielleicht kann mir jemand auf die Sprünge helfen ....

mfg
eddy