Excel erstellen und Formatieren

[Youuuu]

Guten Abend,

leider komm ich aktuell nicht weiter.

Ich will eine Excel erstellen und diese Formatieren, die Daten sind kein Problem, allerdings funktionieren sämtliche Formatierungen nicht, sei es den Text oder cell Color usw.

Delphi-Quellcode:

Begin
  Result := True;
  var aExcelApp: OleVariant := CreateOleObject('Excel.Application');
  try
    if not VarIsNull(aExcelApp) then
    begin
      var aWorkbook:  OleVariant := aExcelApp.Workbooks.Add;
      var aWorksheet: OleVariant := aWorkbook.ActiveSheet;
      if not VarIsNull(aWorkbook) then
      begin
        var aRowCount: Integer := aRow;
        var aColCount: Integer := 8;
        if (aRowCount > 0) and (aColCount > 0) then
        begin
          begin
            var aDate := Date;
            var aFormat := 'mmmm d, yyyy';
            aWorksheet.Range['C3','F3'].NumberFormat:= aFormat;  // Format wird auch hier nicht in Datum geändert
            aWorksheet.Rows[3].RowHeight := 30.75;                   // Macht nichts

            aWorksheet.Range['C3','F3'].Value:= aDate;
            aWorksheet.Range['C3','F3'].Interior.Color := RGB(223, 123, 123);


            aWorkbook.Activate;
            var xlCSV6: OleVariant := xlCSV;

            var aDateiname := 'test.csv';
            var aDestinationMainOrdner := GetDeskTopPath+'\';

            aExcelApp.ActiveWorkbook.SaveAs(FileFormat := xlCSV6, Filename  := aDestinationMainOrdner+aDateiname, CreateBackup := false);
            aWorkbook.saved := true;
            aWorkbook.Close(saveChanges := true, Filename := aDestinationMainOrdner+aDateiname);
          end;
        end;
      end
      else
        Result := False;
    end
    else
      Result := False;
  finally
    aExcelApp.Quit;
  end;
End;

Jemand Tipps?