怎么把EXCEL格式转变成TXT文本格式-excel怎么转换txt,怎么把excel转换成txt文件

第一步：ATL+F11

第二步：在左边当前工作簿复双击当前工作表

第三步制：在右边空白处粘贴如下代码

Sub txt()

On Error Resume Next

MkDir "d:\导出zhidaoTXT"

Dim i As Long, a As String, b As String

For i = 1 To Cells(65536, 1).End(xlUp).Row

    a = Cells(i, 1)

    b = Cells(i, 2)

    Open "d:\导出TXT\" & a & ".txt" For Output As #1

    Print #1, b

    Close #1

Next i

MsgBox "完成" & i & "条数据导出"

End Sub

第四步：F5运行，导出的TXT文件在：d:\导出TXT

直接使用 文件==》另存为==》csv（逗号分隔）
然后用记事本等文本软件打开该文件，另存为 TXT即可（印象中直接改扩展名也可以的）。

只留下一个SHEET表, 然后, 按F12, 另存为 Unicode文本(*.txt) [保存格式], 出现提示选是即可.
生成的TXT文档, 分隔符为TAB, 视觉格式比较整齐.