对多个excel文件执行格式化答案

【问题标题】：Execute formatting on multiple excel files对多个excel文件执行格式化
【发布时间】：2012-05-27 12:02:49
【问题描述】：

我正在尝试编写一种方法来对多个 .csv 文件执行以下操作：

突出显示一组列
选择主页/条件格式/色阶/{2nd option}
将结果另存为 .xls 文件（以保持颜色缩放）

关于如何编写它并在多个文件上执行它的任何提示？我从来没有真正尝试过编写 excel 来做任何事情。

【问题讨论】：

标签： excel formatting

【解决方案1】：

这是我使用过的技术的链接，您应该能够根据自己的需要进行调整，有一个示例文件供您试用。它甚至包括一个 UDF，可以为您创建文件夹。

CSVs to Workbooks

在代码中你会看到这两行：

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

这应该让你开始。

【讨论】：