如何快速批量将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转换成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 Wend6、点击运行按钮运行。7、在页面中等待一会儿。8、现在所有csv文件都有一分转化为xls的文件了。