如何快速批量将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的文件了。

1

打开要转换的Excel表

请点击输入图片描述

2

点蔽桐差击左上角“office按钮”下的“另存为”，或“另存为”中的“其他格式”均可

请点击输入图片描述

3

d出另存为界面，选择“保存类型”

请点击输入图片描述

4

从“保存类型”的下拉列表中找到并点击“CSV逗号分隔”，并确定保存位置，点击“确定”即可

请点击输入图片描述

5

d出这样的小对话框，让你选择“是”与“否”的，均选择“是”即可

请点击输入图片描述

6

原有Excel表退出则应选择“否”，否则就会有两个CSV格式文件（包括转换的一个、和原有Excel表也转换为CSV格式文件）

请轮链点击输入图片描述

7

至此转换 *** 作就已完成

请点击输入图片描述

8

但是因为CSV格式文件用Excel查看可能会出现乱码、尾数变成零等可能得错误。因此，就会再将CSV格式转换成TXT格式文件。

鼠标右键CSV格式文件，从列表中点击“重命名”

请点击输入图片描述

9

将“.csv”直接手动改为“.txt”，回车

请点击输入图片描述

10

d出是否确定修改对话框，直接点击“是”

请点击输入图片描述

11

至此就完成所有转换 *** 作了

请点击输入图片描述

请点击输入图片描述

END

注意事项

转换为CSV格式文件，待查看时，可能会出现数据尾数变零、数据显示为乱码的错误，但是也不会出现，需要点击查看

反向转换 *** 作是否宏皮也可以还待研究，这里可以相互交流，共同进步。

原Excel文件在转换成CSV格式文件之前如有变动，先退出，保存下修改再打开 *** 作转换。

以WPS Office 2020为例，可参考以下步骤将csv文件转换为excel文件。

1、首先，在文件夹中找到以CSV为后缀的文件，双击打开。

2、打开后，点击WPS软件中的【毁哪文件】菜单。

3、d出下拉菜单栏，选择【另存为】选项。

4、d出对话框，选择保存的文友行件类型为【Microsoft Excel】类型，点击【保存】按钮。

5、最后，切换到保存目录，好余哗就可以查看转换后的excel文件。

---