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

Question

excel表格中一行导出为一个txt文档的方法

Answer 1

第一步：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

Answer 2

方法/步骤
打开需要转换的文件。

点击左上角OFFICE图标，依次点击“另存为”→“其它格式”

在另存为窗口的保存类型选择“文本文件(制表符分隔)(*.txt）”,输入文件名，点击保存。
打开Book1.txt,我们看到这种方式是将表格以空格符分隔来排出来的，若表格很长的话可能就不是很好了。

下面来教大家将Excel转TXT，而且在TXT中将表格以“，逗号”隔开的方式来排序，这样对于长表格数据我们便于区分！
先将Excel表格“文件”-->另存为，然后选择“CSV”格式，保存。

然后将“CSV”格式文件用“记事本”来打开，打开后将文件另存为“TXT”格式即可。追问

不是全部信息转换成一个txt文件，是一行内容一个txt文档