Question

excel表格需要每一行文本导出一个txt文件

现在excel表格需要每一行文本导出一个txt文件，宏里面代码怎么写啊

Answer 1

方法/步骤

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

  

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

  

• 输入的指令为：

  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了。

  

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

  

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

  

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