用宏代码将excel批量转换成txt文本文件
http://iask.sina.com.cn/b/18057161.html，注意这个页面中有个arg123.rar的压缩包可以下载下来，请在这个代码基础上修改。我想在...
http://iask.sina.com.cn/b/18057161.html，注意这个页面中有个arg123.rar的压缩包可以下载下来，请在这个代码基础上修改。我想在这个的基础上加上这样两个功能，1、文件夹中包括有.xls和.xlsx的文件，都能识别出来。2、转换后生成的txt文件除了有sheet的名字，还要有这个excel的文件名，比如压缩包中的示例excel文件a.xls，应该生成a@2002.txt、a@2003.txt、a@2004.txt和a@2005.txt
展开
展开全部
将你语句中的saveas语句改为
ActiveWorkbook.SaveAs Filename:=mypathtxt & Left(myfilename, Len(myfilename) - 4) & "@" & ActiveSheet.Name & ".txt", FileFormat:=xlCSV
ActiveWorkbook.SaveAs Filename:=mypathtxt & Left(myfilename, Len(myfilename) - 4) & "@" & ActiveSheet.Name & ".txt", FileFormat:=xlCSV
追问
非常感谢，已经能正常运行了，请教下，为什么“myfilename = Dir(mypath & "*.xls")”这句既能读出.xls又能读出.xlsx呢？
追答
可以吗？应该是用了通配符的关系吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
