怎么样将excel的每行数据导成多个txt的文本文件 ，按行导，不是按列导，请教了

方法一：在D盘目录下新建文件夹“按行导出”（这个可以自行修改）

利用如下宏代码【注意：此代码只适应于每行数据全在A列的情况】。

Sub DaoChu()
Dim I As Integer
For I = 1 To 500  '根据总行数进行修改
Open "D:\按行导出\第" & I & "行.txt" For Output As 1 '输出目录和文档名称自行修改
Print #1, Range("A" & CStr(I)).Value
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

方法二：

1、将excel中文档，ctrl+A全选，ctrl+C复制，然后，ctrl+V粘贴在新建的text1.txt中，

2、将附件中的“按行导出.bat”粘贴text1.txt所在目录下。双击按行导出.bat即可。

强烈建议用方法二。简单，且适应于多列数据。

将电子EXCLE中的数据导入到WORD中的步骤

1、第一步：在工具档中找到“邮件合并”栏。如果不见，可以在“视图”中的工具栏中选定“邮件合并”。
2、第二步：打开“设置文档类型”为“word”。
3、第三步：打开“打开数据源”（事先准备好的EXCLE文件）。
4、第四步：打开“插入域”，分别插入对应的汇总表项目序号。（序号是以EXCLE中第二行计起，分别为对应为B2＝《F2》、C2＝《F3》、D2＝《F4》……）
5、第五步：打开“合并到新文档”选定“全部”，点确定。

注：可以生成新表前将表格的格式定好，对于要输入年月日的地方和输入单位等信息的地方，可以提前设定好，生成后就不用再修改了。

用录制宏 或 macro代码就可了！每一行 导出到 text中，再保存。

代码：

Sub export2file()

mypath = "c:\temp\"
num = 100 ' 行数
lies = 20 ' 列数
jiange=" " ' 列间隔符，自己定
For i = 1 To num
For j = 1 To lies
temp = Trim(Worksheets(1).Cells(i, j).Value) +jiange+ temp
Next j
outfile = mypath + CStr(i) + ".txt"
Open outfile For Output As #1 ' 打开输出文件。
Print #1, temp
Close #1 ' 关闭文件。
Next i

End Sub

使用&符号连接每一行中的每一个，然后复制粘贴到TXT文本中就搞定