当前位置: 萬仟网 > 科技>操作系统>windows > 关于使用宏将csv批量转换成xls的分享

关于使用宏将csv批量转换成xls的分享

2019年07月13日 15:47  | 萬仟网科技  | 我要评论

最近在使用遇到一个问题需要把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,今天的分享就到这里了,如果有有疑问欢迎留言~

如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复

相关文章:

◎已有 0 人评论

Copyright © 2019  萬仟网 保留所有权利. 粤ICP备17035492号-1
站长QQ:2386932994 | 联系邮箱:2386932994@qq.com