excel怎么把每个单独的单元格内容批量导出txt

Question

如题所述

Answer 1

excel怎么把每个单独的单元格内容批量导出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文件。

Answer 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来自：求助得到的回答本回答被网友采纳

Answer 3

可以的，你联系我，发表格给我