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

Question

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

Answer 1

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

Answer 2

使用CTRL+A全选不行么