【一步一步学习VBA】将Excel的每行数据导出为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 参考文章： 点击