Question

如何将excel每行单独导出为单独txt文件?每行中的单元格单独成行？

把150篇文献导出到Excel里了，第一列是年份，第二列是文献题目，第三列是摘要（比较长），共150行，想把每行单独导出到一个txt文件，文献题目跟摘要间换行，摘要结束后最好有个空行
像这样想把每一行单独成一个txt文档，命名为1，2，3，每个单位格之间要有空行，或者每个单元格单独成一个txt文件也行，但是希望从做到右，从上到下命名1，2，3，比如A1命名为1.txt，B1命名为2.txt，C1命名为3.txt，B1命名为5.txt。。特别是c列特别长的摘要后一定要有空行，不然最后合并txt文件的时候就没法看了，求VBA代码

Answer 1

将EXCEL的每列内容保存成单独的TXT问题 

有一个EXCEL文档，需要将每列的列头当作TXT文档的名字，列头下面的内容为此文档的内容。如  此EXCEL文档有10列，   需要保存成的文件为：A1.TXT       内容为A2                           A3                           A4B1.TXT       内容为B2                           B3                           B4C1.TXT       内容为C2                           C3                           C4D1.TXT       内容为D2                           D3                           D4写了一段代码，但是此代码只能保存几个文件就出现：    运行时错误`52`      文件名或文件号错误！我检查了每列的列头，里面没有双引号(")、撇号(') 、斜杠(/)、反斜杠(\)、冒号(:)、垂直条(|)，  而且文件名设置的小于255字符。  但是还是出现这种情况。当时用的代码如下：

Sub DaoChu()

Dim I As Integer, J As Long, RW As Long

For I = 1 To ActiveSheet.UsedRange.Columns.Count

Open ThisWorkbook.Path & "" & Cells(1, I) & ".txt" For Output As 1

For J = 2 To Cells(65536, I).End(3).Row

Print #1, Cells(J, I).Value

Next J

Close 1

Next I

MsgBox "数据导出完毕!", vbOKOnly, "导出成功"

End Sub

截图如下：

追问

这个代码是每行单独一个txt嘛？我测试了，没找到输出路径，我需要的是每行单独一列，然后相邻单元格之间有空行