批量将CSV文件转换为EXCEL文件

在win10+新版office可用，记录一下操作步骤。

1. 随便打开或新建一个Excel。

2. 在 Excel 中按 Alt + F11 打开 VBA 编辑器。

3. 点击插入（Insert） -> 模块（Module），粘贴以下代码：

Sub BatchConvertCSVtoXLSX()    Dim strPath As String    Dim strFile As String    Dim wb As Workbook    ' 设置 CSV 文件夹路径（请修改这里）    strPath = "C:\YourCSVs\"    strFile = Dir(strPath & "*.csv")    Application.ScreenUpdating = False    Do While strFile <> ""        Set wb = Workbooks.Open(strPath & strFile)        wb.SaveAs Replace(strPath & strFile, ".csv", ".xlsx"), xlOpenXMLWorkbook        wb.Close SaveChanges:=False        strFile = Dir    Loop    Application.ScreenUpdating = True    MsgBox "转换完成！"End Sub

4. 修改代码中的第6行，"C:\YourCSVs\"，改为自己的文件夹路径，注意最后的\。

5. 按 F5 运行。

6. 转换完成，收工。