批量将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吧。
这样的直接保存不知，符不符要求。
不符合格式要求，明天就改为直接写入到636f70797a686964616f364TXT文件中。

试一下吧e5a48de588b6e799bee5baa6e79fa5e98193331，需要手动设置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
txt文件导入excel 步骤如下：
1、首先，打开excel，选择数据选项卡，自文本选项。
2、在弹出的资复源管理器界面选择存放好的txt文件后，点击打开按钮。
3、此时弹出文本导入制向导，由于我的数字是以空格为分隔字符的，所以我选择分隔符号，当然，如果你的文本是固定宽度，你可以选择第二个。然后点击下一步按钮。
4、勾选空格，检验预览数百据是否和自己预想的一致。一致后继续点击下一步按钮。
5、查看预览效果。并选择列数据格式，此处没什么特别要求，建议选择常规度，常规也是excel默认的格式。点击完成。
6、在弹出的对话框中，选中要导入的数据区域，此处我要导入到当前单元格，并知且从a1单元格开始，因此我选择a1单元格，多余的数据会自动以此单元格向两边道张开。点击确定按钮
我们的数据就算是完美的导入进来了。

随便写抄个宏批量另存为txt格式就行袭了，如果文件名很有规知律，直接写循环，如果没道啥规律就遍历文件夹。

Workbooks(1).SaveAs Filename:="C:\1.txt", FileFormat:=xlUnicodeText, CreateBackup:=False