Datenbank in Excel schreiben

[eddy]

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