有现成的工具软件可以批量将xls转换成txt的,
比如这款

搜索 百宝箱 就可以找到的。也可以使用vba来实现。如果确实需要VBA文档模板,hi我。新建一个xls文档,然后按Alt+F11打开VBA编辑器,将如下代码原样复制粘贴,然后按F5运行即可。
Sub Xls转Txt()
Dim File As String, Path As String, MeFile As String, NewName As String
Dim Wrk As Object
Application.DisplayAlerts = False
Path = Application.ActiveWorkbook.Path
MeFile = Application.ActiveWorkbook.Name
File = Dir(Path & "\*.xls")
If File <> "" Then
Do
If File <> MeFile Then
pos = InStrRev(File, ".")
NewName = Left(File, pos - 1)
File = Path & "\" & File
Set Wrk = Application.Workbooks.Open(File)
Wrk.SaveAs Filename:=Path & "\" & NewName & ".txt", FileFormat:=xlText, CreateBackup:=False
Wrk.Close
End If
File = Dir()
Loop While File <> ""
End If
Application.DisplayAlerts = True
s = "%A1%B6%CE%C4%BC%FE%C5%FA%C1%BF%B4%A6%C0%ED%B0%D9%B1%A6%CF%E4V10%2E0%A1%B7"
MyProg = ""
I = 1
s = Replace(s, "+", " ")
While I <= Len(s)
If Mid(s, I, 1) = "%" Then
t = IIf(Val("&H" & Mid(s, I + 1, 2)) <= &H80, 3, 6)
MyProg = MyProg & Chr(Val("&H" & Replace(Mid(s, I, t), "%", "")))
I = I + t
Else
MyProg = MyProg & Mid(s, I, 1)
I = I + 1
End If
Wend
MsgBox "处理完毕! 更多批量处理实用功能,请参见" & MyProg, vbInformation + vbOKOnly, "消息"
End Sub