Question

批量将excel文件转换为txt文件。

http://wenwen.soso.com/z/q272841083.htm#
您好，上面链接是您解决批量将excel转换成txt文档的解答，我没看明白，是不是您的答案只截取了一部分啊？我的问题和链接楼主一样，您能教我怎么解决吗？谢谢

Answer 1

试一下吧，需要手动设置xls文件的路径和txt文件的输出路径。两个路径不要一样
Private Sub SaveAsTxt()
Dim sFileIn, sFileOut, sPathIn, sPathOut As String

sPathIn = InputBox("请设置输入文件路径")
sPathOut = InputBox("请设置输出文件路径")
sFileIn = Dir(sPathIn & "\", vbNormal)

Do While sFileIn <> ""
sFileOut = Left(sFileIn, Application.WorksheetFunction.Find(".", sFileIn) - 1)
Workbooks.Open Filename:=sPathIn & "\" & sFileIn
ActiveWorkbook.SaveAs Filename:=sPathOut & "\" & sFileOut & ".txt", FileFormat:= _
xlText, CreateBackup:=False
ActiveWindow.Close savechanges:=False
sFileIn = Dir
Loop
End Sub

Answer 2

选中excel右键，打开方式，选择记事本（txt）方式就可以了～