如何快速批量将csv转换成excel文件

快速批量将csv转换成excel文件步骤如下：

1、首先随便打开一个表格文件。

2、在开发工具标签页下有个宏功能。

3、打开宏窗口后，随便起个名字，新建。

4、箭头指的部分准备粘贴代码，代码粘贴下面的，其中目录部分换成你的csv文件所在的目录。

5、书写程序：

ChDir "C:\Users\Administrator\Desktop\新建文件夹"    

Dim sDir As String    

Dim curdir As String    

curdir = "C:\Users\Administrator\Desktop\新建文件夹"    

sDir = Dir(curdir & "\*.csv")    

While Len(sDir)        

Workbooks.Open Filename:=curdir & "\" & sDir        

Dim temp As String        

temp = Left(sDir, Len(sDir) - 4)        

ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xls", _            

FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _            

ReadOnlyRecommended:=False, CreateBackup:=False        

ActiveWorkbook.Close       

sDir = Dir    

Wend

6、点击运行按钮运行。

7、在页面中等待一会儿。

8、现在所有csv文件都有一分转化为xls的文件了。

右击“我的电脑”选择“资源管理器”，然后浏览到你那些“.csv”文件那里，看到所有文件后按Ctrl+A（全选），然后再按F2（重命名），把扩展名改成“.xls”，在弹出窗口点确定即可。如果不想改所有文件名，可以，一个一个把扩展名改成“.xls”即可。如果你懂DOS命令，可以在DOS下面把“*.csv”改成“.xls”。要是自己不懂，可以复制一份到桌面做实验。

csv分隔符需要打开时设置分隔的，不能直接改名什么的，除非你想把这个过程录制成VBA

要求:
所有的CSV文件必须在同一个目录下.
步骤:
在这个目录下新建一个excel文件
打开这个文件然后按ALT+F11进入VBA编辑窗口粘贴下面的代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Sub CSV2XLS()
Dim FilePath, MyFile, iPath As String
iPath = ThisWorkbook.Path
MyFile = Dir(iPath & "\*.CSV")
If MyFile <> "" Then
Do
On Error Resume Next
If MyFile = ThisWorkbook.Name Then MyFile = Dir
Workbooks.Open (iPath & "\" & MyFile)
MyFile = Replace(MyFile, ".csv", ".xls")
Name = "\" & MyFile
FilePath = iPath & Name
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _
xlNormal, CreateBackup:=False
Workbooks(MyFile).Close True
Application.ScreenUpdating = True
MyFile = Dir
Loop While MyFile <> ""
End If
End Sub

试试吧，it365 CSV格式转换器：

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

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

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

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

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

截图示例：

csv格式转换效果：

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

希望能帮到你。