怎么样将excel的每行数据导成多个txt的文本文件 ，按行...

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

方法一：在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, "导出成zd功"
End Sub

方法二：

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

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

 

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

 

第一步，将txt文档合并为一个大的txt文档。
打开记事本，输入for %%i in (*.txt) do type %%i>>0.txt（可将该命令复制粘贴过去）
然后将文件道保存到500多个txt文件所在的文件夹，文件的后缀名为.bat文件。比如保存为all.bat

在文件夹中双击运行all.bat批处理文件，将文件夹中所有txt文档合并为一个名字叫0.txt的文档。专

第二步，属打开excel文档，新建一个工作表，然后打开0.txt，将内容全部复制粘贴到这个新工作表的A列。

第三步，在这个新工作表的B列、C列、D列等列设置公式
根据txt文件内容的特殊字符，自动从txt中截取所需内容。

或者将txt文件合并粘贴到新工作表后，将文件发我Q：1055581074

先把加载宏安全性设为zd中或低。然后到VBA编辑器里插入一个模块，把下面代码专加进去，保存以后关闭EXCEL再重新打开。然后按ctrl+shift+P就完成导出属了。导出到D盘根目录下。
Sub Auto_Open()
Application.OnKey "^{P}", "DaoChu"
End Sub

Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
RW = ActiveSheet.UsedRange.Rows.Count
For I = 1 To 10
Open "D:\" & Chr(Asc("A") + I - 1) & "列.txt" For Output As 1
For J = 1 To RW
Print #1, Range(Chr(Asc("A") + I - 1) & CStr(J)).Value
Next J
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

本文标签：excel生成txt文件(2)excel数据导出txt(1)