excel如何把csv文件批量转换为xls文件
1、首先随便打开一个表格文件
2、在开发工具标签页下有个宏功能
3、如果宏按钮是灰色的,搜索"vba提取自WPS2012专业增强版",下载这个东西安装,再启动wps就能用了。下载安装过程很简单,不再细说。
4、打开宏窗口后,随便起个名字,新建
5、箭头指的部分准备粘贴代码,代码粘贴下面的,其中目录部分换成你的csv文件所在的目录
6、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
7、点击运行按钮运行
8、在页面中等待一会儿
9、现在所有csv文件都有一分转化为xls的文件了。
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:42
阅读量:76
阅读量:35
阅读量:54
阅读量:46