袁世凯,妖精の飞羽,重庆婚庆网
最近在使用遇到一个问题需要把csv格式的文件转成xls,随便新建一个excel,然后打开,选择“开发工具”,找到下图“宏”,如果跟下图一样的话就需要先启用宏,启用之后可以直接把下面的代码直接复制到代码区,修改一个路径就好。
以下代码试讲文件名为1.csv的文件,转化为2.xls
'chdir "c:\" dim sdir as string dim curdir as string '要转换的文件路径 curdir = "c:\users\ghz\desktop\数据文件\一些作业数据样例\1" '转换后存文件路径 targetdir = "c:\users\ghz\desktop\数据文件\转换后\2" 'curdir = thisworkbook.path 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:=targetdir & "\" & temp & ".xls", _ fileformat:=xlexcel8, password:="", writerespassword:="", _ readonlyrecommended:=false, createbackup:=false activeworkbook.close sdir = dir wend
ok,今天的分享就到这里了,如果有有疑问欢迎留言~
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
win10如何启用管理员账户 win10禁用/启用管理员账户的方法
win10怎么查看驱动是否异常 Win10检测驱动程序是否正常的方法
Windows10系统任务栏无效图标怎么删除 通过注册表一键快速删除
Win10系统自动重启怎么办 Win10系统自动重启的关闭方法
怎么减少win10笔记本功耗 详谈笔记本硬件功耗大的原因和解决办法
网友评论