Daten aus InterbaseDB in "vorhandene" Excel-Datei schreiben

[spoona]

Hallo,

vielen Dank für deine Antwort, das mit dem Makro konnte mir echt weiterhelfen.
Bin jetzt schlauer. Zumindest weiß ich jetzt, dass ich kein sheet hinzufügen muss, da ich per Default
ja auf dem Ersten arbeite und keine weiteren brauche.Also habe ich folgenden Code realisiert, was auch sehr gut funktioniert:

Delphi-Quellcode:

var Excel: variant;
zeile,spalte:integer;
begin
  Excel := CreateOleObject('Excel.Application');// VIELLEICHT noch in deine Funktion auslagern, ist schöner!
  if FileExists('c:\temp2\test2.xls') then begin
    ShowMessage('File exists!')
    exit;
  end;
  Excel.Workbooks.Add('c:\temp2\Muster.xls');
  zeile:=1;
  TB_Kontengruppe.Open;
  TB_Kontengruppe.First;
  while (not (TB_Kontengruppe.Eof)) do begin
    if TB_KontengruppeNummer.Value > 12 then begin
      Excel.Cells[zeile,1].Value:=TB_KontengruppeBereich.Value;
      Excel.Cells[zeile,2].Value:=TB_KontengruppeNummer.Value-100;
      Excel.Cells[zeile,3].Value:=TB_KontengruppeNummer.Value-200;
      Excel.Cells[zeile,4].Value:=TB_KontengruppeNummer.Value-300;
      inc(zeile);
    end;
    TB_Kontengruppe.Next;
  end;
Excel.ActiveWorkbook.SaveAs('c:\temp2\test2.xls');
Excel.Quit;
Excel := Unassigned;
TB_Kontengruppe.Close;
end;

Wenn ich weitere Fragen habe dann melde ich mich einfach bei Dir.
Vielen Dank
Gruß Spoona