Выполнить форматирование в нескольких файлах Excel - PullRequest
0 голосов
/ 28 февраля 2012

Я пытаюсь описать способ сделать следующее для нескольких файлов .csv:

  1. Выделить набор столбцов
  2. Выбрать домашнее / условное форматирование / цветовые шкалы/ {2nd option}
  3. Сохранить результат в виде файла .xls (для поддержания цветовой шкалы)

Любые советы о том, как написать это и выполнить его для нескольких файлов?Я никогда не пытался программировать Excel, чтобы делать что-либо.

1 Ответ

0 голосов
/ 28 февраля 2012

Вот ссылка на технику, которую я использовал, вы должны быть в состоянии адаптировать ее к вашим потребностям, есть пример файла, который вы можете попробовать.Он даже включает UDF, который создаст папки для вас.

CSV для рабочих книг

В коде вы увидите следующие две строки:

ActiveSheet.Name = NwName       'rename the sheet
ActiveWorkbook.SaveAs fPath & NwName & ".xls", FileFormat:=xlNormal

Вставьте туда код для форматирования , изменив его на что-то вроде:

With ActiveSheet
    .Name = NwName       'rename the sheet
    .Range("A:G").NumberFormat = "General"
    .Range("A:G").HorizontalAlignment = xlCenter
    With .Range("F2:F10000").SpecialCells(xlConstants)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=F9>50"
        .FormatConditions(1).Interior.ColorIndex = 36
    End With
End With
ActiveWorkbook.SaveAs fPath & NwName & ".xls", FileFormat:=xlNormal

Это должно помочь вам начать.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...