EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
csv格式转换成Excel 2013
来源：互联网
2023-02-21 16:00:49 68
csv格式是逗号分隔的文本表格，将csv格式的文档转换成xlsx格式的Excel 2013表格，通常采用“另存为”的形式，示例如下。
工具/原料
- 计算机
- Excel 2010
方法一：手动另存为Excel表格
双击打开csv格式的文档。
点击【文件】、【另存为】。
选择保存路径，输入保存的文件名称，保存类型选择“Excel工作薄”，再点击【保存】。
csv格式的文档转换成xlsx格式完成。
方法二：使用VBA程序批量转换成Excel表格
打开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表格完成。
注意事项
- 操作界面及功能可能因软件、版本不同而存在差异。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
