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

这里我就直接上源码：

Sub 导出每行为txt()Dim i, j, arr(), brr(), myRow, myColarr = 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 '打开一个以第一列数据命名的txtPrint #1, Join(Application.Index(arr, 1), ",")   '输出表头Print #1, Join(Application.Index(arr, i), ",")   '输出内容Close #1              '关闭Next                     '循环End Sub

参考文章：点击