Вот ссылка на технику, которую я использовал, вы должны быть в состоянии адаптировать ее к вашим потребностям, есть пример файла, который вы можете попробовать.Он даже включает 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
Это должно помочь вам начать.