哪位高手可以将下面的excel文件批量转换成txt文本文档?

我每天都要使用excel所编辑的大量文件,然后把文件转换成txt文本文件导入到我的另外的一个软件中使用,一个文件一个文件的转换太费事了,恳请哪位大侠能有什么好的方法或者是编一个小程序解决excel文件批量转换成txt文本文档。下面是我的文件截图:每个文件里面都是数字,如图:

Sub 按钮1_单击()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path & "\xls文件\"
mypathtxt = ThisWorkbook.Path & "\txt文件\"
myfilename = Dir(mypath & "*.xls")
Do While (Len(myfilename) > 0)
Set mybk = GetObject(mypath & myfilename)
For Each sh In mybk.Sheets
sh.Activate
sh.Columns(2).NumberFormatLocal = "@"
sh.Copy
ActiveWorkbook.SaveAs Filename:=mypathtxt & ActiveSheet.Name & ".txt", FileFormat:=xlUnicodeText
ActiveWorkbook.Close
Next
mybk.Close
myfilename = Dir()
Loop
Set mybk = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
excel文件放在xls文件夹,
生成的结果放在txt文件夹中的。
Unicode编码包括ASCII吧。
这样的直接保存不知,符不符要求。
不符合格式要求,明天就改为直接写入到TXT文件中。

参考资料:http://iask.sina.com.cn/b/18057161.html

温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-10-25
使用CTRL+A全选不行么
相似回答