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

admin

　　excel中需要把每一行数据都导出为一个txt文本的时候，一行一行复制出来很简单，但是遇到特别多数据的时候，怎么可能一个一个复制出来呢?这个时候就需要借助excel的VBA。

　　工具/原料 excel中的VBA　　方法/步骤 1　　首先用快捷键Alt+F11，打开VBA，打开后界面如下。

2

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

3

　　输入的指令为：　

1. 　　Sub txt()
   
2. 　　Dim i, j, arr(), brr(), myRow, myCol
   
3. 　　arr = Sheet1.UsedRange
   
4. 　　myRow = UBound(arr, 1)
   
5. 　　myCol = UBound(arr, 2)
   
6. 　　For i = 1 To myRow
   
7. 　　Open ThisWorkbook.Path & "" & arr(i, 1) & "1.txt" For Output As #1
   
8. 　　Print #1, Join(Application.Index(arr, 1), ",")
   
9. 　　Print #1, Join(Application.Index(arr, i), ",")
   
10. 　　Close #1
    
11. 　　Next
    
12. 　　End Sub

复制代码

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

4

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

5

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

6

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