将excel的每行数据导成多个txt的文本文件的两个方法

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

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

1

2

3

4

5

6

7

8

9

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即可。