csv格式是逗号分隔的文本表格，将csv格式的文档转换成xlsx格式的Excel 2013表格，通常采用“另存为”的形式，示例如下。
双击打开csv格式的文档。
点击【文件】、【另存为】。
选择保存路径，输入保存的文件名称，保存类型选择“Excel工作薄”，再点击【保存】。
csv格式的文档转换成xlsx格式完成。
打开Excel表格，点击【开发工具】、【Visual Basic】，或者使用【Alt+F11】组合键调出VBE编辑器。
点击【插入】、【模块】。
在模块的代码框里边输入以下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
csv格式的文档批量转换成Excel表格完成。
方法一：手动另存为Excel表格
1、双击打开csv格式的文档。
2、点击【文件】、【另存为】。
3、选择保存路径、文件名称，保存类型选择“Excel 工作薄”。
4、csv格式的文档转换成Excel表格完成。
方法二：使用VBA程序批量转换成Excel表格
1、打开Excel工作表，点击【开发工具】、【Visual Basic】。
2、点击【插入】、【模块】。
3、在模块的代码框里边输入下VBA程序，再按【F5键】运行。
4、csv格式的文档批量转换成Excel表格完成。
