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