批量将excel文件转换为txt文件。
发布网友
共2个回答
热心网友
试一下吧，需要手动设置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
热心网友
选中excel右键，打开方式，选择记事本（txt）方式就可以了～
