如何把excel每一行各导出为一个txt文本

1、首先用快捷键Alt+F11，打开VBA，打开后界面如下。

2、然后在左上的那个窗口里面找到导出的表格，左键双击输入指令。

3、输入的指令为：

Sub txt()  

Dim i, j, arr(), brr(), myRow, myCol  

arr = Sheet1.UsedRange   

myRow = UBound(arr, 1)  

myCol = UBound(arr, 2)   

For i = 1 To myRow    

Open ThisWorkbook.Path & "\" & arr(i, 1) & "1.txt" For Output As #1 

Print #1, Join(Application.Index(arr, 1), ",")  

Print #1, Join(Application.Index(arr, i), ",") 

Close #1  

Next  

End Sub  

这个指令具体是什么意思是需要系统学习VBA的，非专业人员只需要复制就ok了。

4、输入完指令后在上面的菜单栏找到运行，然后选择第一个：运行子过程/用户窗体

5、最后点击运行就可以了，输出的txt会保存在excel的目录里面。

6、如图所示，导出的txt中，第一行是表格名称，第二排是这行的所有信息。