Fórum Como formatar as colunas das celulas do excell? #287051

  Const Colunas: array[1..37] of WideString = (´A´, ´B´, ´C´, ´D´, ´E´, ´F´, ´G´, ´H´, ´I´, ´J´, ´K´, ´L´, ´M´, ´N´, ´O´, ´P´, ´Q´, ´R´, ´S´, ´T´, ´U´, ´V´, ´W´, ´X´, ´Y´, ´Z´, ´AA´, ´AB´, ´AC´, ´AD´, ´AE´, ´AF´, ´AG´, ´AH´, ´AI´, ´AJ´, ´AK´);
  Sheet := Excel.Workbooks[1].WorkSheets[NomeDaAbaNoExcel];

  For IAux := 1 To NomesColVisiveis Do
    Sheet.Range[Colunas[IAux] + ´:´ + Colunas[IAux]].Columns.AutoFit;