[Neftali [Germán.Estévez]]

Yo he utilizado este código en alguna ocasión para el tema de colores y formatos:

Código Delphi [-]
  xls, wb, Range: OLEVariant;

  //············································································
  procedure FormatRangeColorFont(AWorkSheet:OLEVariant);
  begin
    // format de la primera columna
    Range := AWorkSheet.Range[AWorkSheet.Cells[1, 1],
                                    AWorkSheet.Cells[RowCount, 1]];
    Range.NumberFormat := '@';
    Range.Interior.Color := clGray;
    // format de la primera fila
    Range := AWorkSheet.Range[AWorkSheet.Cells[1, 1],
                                    AWorkSheet.Cells[1, ColCount]];
    Range.NumberFormat := '@';
    Range.Interior.Color := clGray;
    // format de los totales
    Range := AWorkSheet.Range[AWorkSheet.Cells[Rowcount, 1],
                                    AWorkSheet.Cells[Rowcount, ColCount]];
    Range.NumberFormat := '@';
    Range.Interior.Color := clGray;
    Range.EntireRow.Font.Bold := true;
    // format de los números
    Range := AWorkSheet.Range[AWorkSheet.Cells[2, 2],
                                    AWorkSheet.Cells[Rowcount, ColCount]];
    Range.NumberFormat := '#.##0';
  ...