Question

如何批量将CSV格式的文件转化成excel格式

Answer 1

1、打开该csv文件，进入到文件中界面中，点击菜单中“文件”的选项。
2、就会弹出一个下拉的菜单中进行选择为“另存为”的选项。
3、进入到另存为的框中，在保存类型中，进行选择“Microsoft office excel 工作簿”的选项。
4、选择完成之后，文件名后缀csv变为了xls的后缀，然后进行点击”保存“的按钮。
5、转换完成之后就可以到保存的路径中找到该转换完成的文件。

Answer 2

下面为Excel VBA代码，可以实现将某一文件夹内的Excel文件（xls或者xlsx）另存为“逗号分隔的csv文件”。
使用条件：
1. Windows系统；
2. 已安装 MS 2007或以上版本
本文测试环境： Win7 sp1 64bit 英文系统+MS2013
1.首先新建一个Excel文件，按Alt+F11，打开VBA编辑器，选择Insert-Module, 在编辑器中输入如下代码：
其中，fPath 定义了存放Excel文件的路径，sPath定义了csv文件的输出位置，根据个人情况进行修改，不要忘记路径最后的左斜线。
Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\ms-off1\Desktop\temp\"
sPath = "C:\Users\ms-off1\Desktop\temp\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
'MsgBox (wB.Name)
For Each wS In wB.Sheets
wS.SaveAs sPath & wB.Name & ".csv", xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub
2.点击VBA编辑器中的Run--> Run Sub/User Form，或者按下F5，开始执行程序。

Answer 3

会写代码的话，直接遍历文件夹下所有.csv的文件，将文件名修改为.xls就OK了。

Answer 4

试试这个转换工具，it365 CSV格式转换器：

htt=ps://it365.gitlab.io/zh-cn/csv-excel/?1823

我留的链接有点问题，你先复制链接，粘贴到浏览器地址栏，把前面的htt=ps改为https再进去。

进去就会操作了，点击选择文件按钮，然后会弹窗提示你选择文件，选择你的csv文件，

然后界面上，就可以下载转换后的Excel表格文件了。

it365 CSV格式转换器 这个程序可以快速把csv文件格式转换为Excel表格，还可以批量转换csv格式到excel表格。

截图示例：

csv格式转换效果：

csv文件快速、批量转换成excel表格、wps表格就这么简单。

希望能帮到你。