如何把<em>excel</em>表格中的内容批量转换成txt文档？-excel 保存为txt,

随便选百中度想要的单内元容格
Sub A()
Dim Q As Range, Y$, AR, N%, L$, I%
For Each Q In Selection
Y = Y & "," & Q
Next
AR = Split(Y, ",")
N = Int(Rnd * UBound(AR)) + 1
L = ThisWorkbook.Path & "\" & AR(N) & ".TXT"
Open L For Output As #1
For I = 1 To UBound(AR)
Print #1, AR(I)
Next
Close #1
End Sub

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

方法1：COPY相关内容，粘贴在百EXCEL工作表里，再对其分列（菜单：数度据-->分列）
文本中的内容知有分隔符（如逗号、空格）的会被分在不同的单元格

方法2：用EXCEL打开道这个文本文件，打开是选择文件格式为“内文本文件”容，分列的操作基本同方法1

excel怎么把每个单独的单元格内容批量copy导出txt的方法如下：

1、另存为法：
直接将excel文件另存为文本文件即可百。如果 保存后的文件中有不需要的内度容，选择后删除它。
2、编程实现法：

需要把A列的A1~A100批量问导出txt，插入以下宏并执行：
Sub bod()
Dim nm$
For I = 1 To 100
n = n + 1
nm = ThisWorkbook.Path & "\" & Application.Trim(Cells(I, 1)) & ".txt"
Open nm For Output As #I
Print #I, Cells(I, 1) 'Cells(i, 1)为每个txt里面要放的内容，可替换，内容为空则删除
Close #I
Next
End Sub
执行之后，就可以得到一个txt文件。答