csv格式转换成Excel 2013

1、双击打开csv格式的文档。

2、点击【文件】、【另存为】。

3、选择保存路径，输入保存的文件名称，保存类型选择“Excel工作薄”，再点击【保存】。

4、csv格式的文档转换成xlsx格式完成。

1、打开Excel表格，点击【开发工具】、【Visual Basic】，或者使用【Alt+F11】组合键调出VBE编辑器。

2、点击【插入】、【模块】。

3、在模块的代码框里边输入以下VBA程序，再按【F5键】运行。

Sub ChangeFilesName()

Dim i1, i2, myPath, Na, Str1, Str2, Str3, fs, fo

On Error Resume Next  '忽略运行过程中可能出现的错误

Application.DisplayAlerts = False  '忽略报警提示

myPath = "H:\桌面文件\112\csv文件转换成Excel格式\"  '待修改文件名所在的文件夹

Set fs = CreateObject("Scripting.FileSystemObject") '计算机文件访问

Set fo = fs.GetFolder(myPath)  '获取文件夹

For Each fi In fo.Files  '扫描文件夹里面的每一个文件

 i1 = 0

 i2 = 0

 Na = fi.Name  '获取文件名称

 Do

  i1 = mypos   '寄存上次获取“.”的位置

  i2 = i2 + 1

  mypos = InStr(mypos + 1, Na, ".") '获取"."存在的位置

  If mypos = 0 And i2 <> 1 Then

   Str1 = Right(Na, Len(Na) - i1 + 1) '截取后缀名

   Str2 = Left(Na, i1 - 1) '截取名称

   If Str1 = ".csv" Then  '如果是csv格式的文件，则

   Workbooks.OpenText Filename:=myPath & Na  '打开生成的文件

   Str3 = Str2 & ".xlsx" '拼成xlsx的文件名

   Workbooks(Na).SaveAs Filename:=myPath & Str3 '文件另存为xlsx的格式

   Windows(Str3).Close  '文件窗口关闭

   End If

   Exit Do  '退出Do循环

  End If

 Loop

Next

Application.DisplayAlerts = True  '忽略报警提示

End Sub

4、csv格式的文档批量转换成Excel表格完成。

1、方法一：手动另存为Excel表格

1、双击打开csv格式的文档。

2、点击【文件】、【另存为】。

3、选择保存路径、文件名称，保存类型选择“Excel 工作薄”。

4、csv格式的文档转换成Excel表格完成。

方法二：使用VBA程序批量转换成Excel表格

1、打开Excel工作表，点击【开发工具】、【Visual Basic】。

2、点击【插入】、【模块】。

3、在模块的代码框里边输入下VBA程序，再按【F5键】运行。

4、csv格式的文档批量转换成Excel表格完成。