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

发布网友发布时间：2022-04-24 13:38

共1个回答

热心网友时间：2023-10-14 18:20

方法/步骤

首先用快捷键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

End Sub

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

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

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

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