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

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

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

3、输入的指令为：Sub txt()Dimi,j,arr(),brr(),m鲻戟缒男yRow,myColarr=Sheet1.UsedRange myRow=U蚱澄堆别Bound(arr,1)myCol=UBound(arr,2) Fori=1TomyRow OpenThisWorkbook.Path&"\"&arr(i,1)&"1.txt"ForOutputAs#1Print#1,Join(Application.Index(arr,1),",")Print#1,Join(Application.Index(arr,i),",")Close#1NextEndSub这个指令具体是什么意思是需要系统学习VBA的，非专业人员只需要复制就ok了。

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

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

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