如何把excel表格中的内容批量转换成txt文档？

如何把excel表格中的内容批量转换成txt文档？

第一步：ATL+F11
第二步：在左边当前工作簿双击当前工作表
第三步：在右边空白处粘贴如下代码
Sub txt()
On Error Resume Next
MkDir "d:导出TXT"
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

方法/步骤
打开需要转换的文件。
点击左上角OFFICE图标，依次点击“另存为”→“其它格式”
在另存为窗口的保存类型选择“文本文件(制表符分隔)(*.txt）”,输入文件名，点击保存。
打开Book1.txt,我们看到这种方式是将表格以空格符分隔来排出来的，若表格很长的话可能就不是很好了。
下面来教大家将Excel转TXT，而且在TXT中将表格以“，逗号”隔开的方式来排序，这样对于长表格数据我们便于区分！
先将Excel表格“文件”-->另存为，然后选择“CSV”格式，保存。
然后将“CSV”格式文件用“记事本”来打开，打开后将文件另存为“TXT”格式即可。追问不是全部信息转换成一个txt文件，是一行内容一个txt文档