计算机
Excel 2010
双击打开csv格式的文档。
点击【文件】、【另存为】。
选择保存路径,输入保存的文件名称,保存类型选择“Excel工作薄”,再点击【保存】。
csv格式的文档转换成xlsx格式完成。
打开Excel表格,点击【开发工具】、【Visual Basic】,或者使用【Alt+F11】组合键调出VBE编辑器。
点击【插入】、【模块】。
在模块的代码框里边输入以下VBA程序,再按【F5键】运行。Sub ChangeFilesName()Dim i1, i2, myPath, Na, Str1, Str2, Str3, fs, foOn 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 LoopNextApplication.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表格完成。
操作界面及功能可能因软件、版本不同而存在差异。