问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

怎么将文件夹中的excel文件批量转换成同名的csv文件,txt制表分隔符格式的文件,求宏代码及制作方法

发布网友 发布时间:2022-04-29 18:21

我来回答

1个回答

热心网友 时间:2023-10-02 17:31

制表分隔符格式的文件不是csv扩展名的.
csv扩展名的文件是以逗号分隔的.
txt扩展名的文件是以制表分隔符分隔的.
存为csv 和txt 的代码我都给你你 看需要吧
在要转换的目录新建一个excel文件.
打开这个新的excel文件
ALT+F11进入vba编辑窗口 新建一个模块 粘贴以下代码.

存为制表分隔符的文件

Sub 转换TXT()
Dim FilePath, MyFile, iPath As String
iPath = ThisWorkbook.Path
MyFile = Dir(iPath & "\*.xls")
If MyFile <> "" Then
Do
On Error Resume Next
If MyFile = ThisWorkbook.Name Then MyFile = Dir
Workbooks.Open (iPath & "\" & MyFile)
MyFile = Replace(MyFile, ".xls", ".txt")
Name = "\" & MyFile
FilePath = iPath & Name
ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _
xlText, CreateBackup:=False
Workbooks(MyFile).Close True
MyFile = Dir
Loop While MyFile <> ""
End If
End Sub

Sub 转换CSV()
Dim FilePath, MyFile, iPath As String
iPath = ThisWorkbook.Path
MyFile = Dir(iPath & "\*.xls")
If MyFile <> "" Then
Do
On Error Resume Next
If MyFile = ThisWorkbook.Name Then MyFile = Dir
Workbooks.Open (iPath & "\" & MyFile)
MyFile = Replace(MyFile, ".xls", ".csv")
Name = "\" & MyFile
FilePath = iPath & Name
ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _
xlCSV, CreateBackup:=False
Workbooks(MyFile).Close True
MyFile = Dir
Loop While MyFile <> ""
End If
End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
我网贷一万,手续费300,分24期,每期506.67,请问怎么计算月息,和年利率... 多普达手机铃音多普达手机铃声 【车载软件推荐】有车一族必备软件有哪些?好用的车主必备app 我画画时常被说我画画不动脑筋,弱弱的问一句,画画怎样动脑筋? 三星手机如何设置时间在桌面显示? 精确到十分位,要看小数点右边第一位 对吗 要把一个小数精确到十分位,就要看这个小数的( )A.十分位B.百分位C... 黑米算不算粗粮 存定期协议利率选是还是否? 同城上那些卖二手ndsi的是真的吗? 黄豆煮熟了怎么做肥料? MySQL数据库创建表结构和插入数据求助 用VB将excel批量转换成csv格式 请问如何批量将excel转换成csv?非常感谢! 如何通过一个excel marco 把 一个excel形式的数据文件转换成一个csv格式的文件? 我想把excel表格批量转为csv,表格太多了,一个个转太麻烦,向高手求助... 有没有软件能批量地把xls文件excel格式地,一次都转为csv格式的文件 小黄车怎退押金 为什么Testin云测试的兼容测试服务可以做到业内领先? 为什么兼容性测试时需要特别关注ie 所有软件必须进行某种程度的兼容性测试是对还是错 为什么进行EMC预兼容测试? 为什么要做电磁兼容测试 再留几个月才能剪锅盖头? 马上要过20岁生日,不知道该怎么过! 女孩子20岁生日怎么过才更有意义? 我想留个锅盖头请问还要留多久头发 20岁生日怎么过会比较有意义? 20岁的生日要怎么过?对人生有什么意义? 还有几天就到我的20岁生日了,怎么过得有意义啊! excel总表中有10000(一万)个数据需要拆分成200个一组的新excel文件并保存成csv格式,怎么做 mysql 如何到指定文件夹建立数据库 mysql:创建表及添加数据时数据库服务器背后做了什么 excel批量转换csv格式 因批量代发工资,需把银行卡号Excel转换成csv格式,但转换结果为科学计数并且银行卡号后两位都改变了,求解? 关于用vba把excel中的数据保存到一个csv文件中。 手机怎样接收GPS信号 手机外接GPS有什么优点和缺点 手机可以外加gps定位接收器么 手机可外接蓝牙GPS接收器是什么意思 手机外置GPS是指的内存卡吗 手机可不可以外接GPS天线,进行导航 手机使用GPS必须外接GPS接收器吗? 栈桥附近的景点 联想小新air12可以安装python吗? 栈桥有什么好玩的地方 平板电脑能安装编程软件吗 如何在iPad上安装Django,iPad用的软件为pythonista3? 青岛沿海一线 从栈桥开始 有多少景点可供游赏 昂达air ch平板电脑能学python么