【一步一步学习VBA】将Excel的每行数据导出为txt文本

最新推荐文章于 2024-12-08 19:38:36 发布

原创最新推荐文章于 2024-12-08 19:38:36 发布 · 1.1w 阅读

32 ·

CC 4.0 BY-SA版权

文章标签：

#一步一步学习VBA #将Excel的每行数据导出为txt文本 #Join #打开一个以第一列数据命名的txt #独立开发者er

VBA 专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个使用VBA编写的简单程序，该程序可以将Excel工作表中的每一行数据导出到单独的TXT文件中，每个TXT文件以该行的第一列数据作为文件名，并且包含了完整的工作表数据。

这里我就直接上源码：

Sub 导出每行为txt()
Dim i, j, arr(), brr(), myRow, myCol
arr = Sheet1.UsedRange   '将工作表的内容放入arr数组中
myRow = UBound(arr, 1)   '计算出数组的行数
myCol = UBound(arr, 2)   '计算出数组的列数
For i = 1 To myRow       '从第2行开始循环
Open ThisWorkbook.Path & "\" & arr(i, 1) & "1.txt" For Output As #1 '打开一个以第一列数据命名的txt
Print #1, Join(Application.Index(arr, 1), ",")   '输出表头
Print #1, Join(Application.Index(arr, i), ",")   '输出内容
Close #1              '关闭
Next                     '循环
End Sub

参考文章：点击

5 条评论

tt9853 2024.01.22
小白，每一万行生成一个txt文件要怎么改

、曾经沧海难为水 2021.09.11
你这循环的位置放错了吧，还有从第二行开始输出的话应该是 2 to myRow 我给你改了一下： Sub 导出每行为txt() Dim i, j, arr(), brr(), myRow, myCol arr = Sheet1.UsedRange '将工作表的内容放入arr数组中 myRow = UBound(arr, 1) '计算出数组的行数 myCol = UBound(arr, 2) '计算出数组的列数 MsgBox myRow Open "D:\测试文本.txt" For Output As #1 Print #1, Join(Application.index(arr, 1), ",") '输出表头 For i = 2 To myRow '从第2行开始循环 Print #1, Join(Application.index(arr, i), ",") '输出内容 '关闭 Next '循环 Close #1 End Sub