将多个 CSV 转换为 xls 或 xlsx 并对它们应用格式

Question

我有一个大的 Excel 文件，用于汇总跨多个客户端的问题跟踪，我需要根据客户端将其分成更小的文件。

这是我目前所得到的：我已经构建了一个 python 脚本，该脚本将文件划分为适当的客户端特定文件，并将正确的标题行应用于所有文件，但它生成丑陋的 CSV。我的老板想应用一些格式，所以我需要做的是（对于目录中的所有 CSV）：

1. 将每个文件从 CSV 转换为 .xls（或 .xlsx），以便保持格式

2. 自动调整列宽

3. 将第一行设为粗体（并可能为该行应用颜色）

到目前为止，我猜我可能可以使用 pyWin32 或 pyExcelerator 来完成此操作，但考虑到我希望进行的更改有多么小，将其作为 VB 脚本或宏什么的，但我真的不知道那些工具。

Answer 1

最简单的方法是使用VBA

这是一个快速的宏，用于循环打开 csv 文件夹，应用自动调整并保存为 .xlsx

注意：

1. 它利用早期绑定，因此需要引用脚本运行时。如果您愿意，可以轻松更改为后期绑定。
2. 为了清楚起见，我省略了错误处理和各种速度优化。它是否足够安全或足够快取决于您的预期用途以及文件的数量和大小。

---

Sub FormatCSVs()
    Dim fso As FileSystemObject
    Dim pth As String
    Dim fl As File
    Dim wb As Workbook
    
    Set fso = New FileSystemObject
    pth = "C:\Test" ' <-- replace with your path, or add a folder selection dialog>
    For Each fl In fso.GetFolder(pth).Files
       If StrComp(fso.GetExtensionName(fl.Path), "csv", vbTextCompare) = 0 Then
            Set wb = Workbooks.Open(fl.Path)
            With wb.Sheets(1)
                .UsedRange.EntireColumn.AutoFit
                .Rows(1).Font.Bold = True
                .Rows(1).Interior.ColorIndex = 3
            End With
            wb.SaveAs pth & "\" & fso.GetBaseName(fl.Path), xlOpenXMLWorkbook
               ' or use xlExcel8 for .xls
            wb.Close
        End If
    Next
    
    Set fl = Nothing
    Set fso = Nothing
End Sub