【一步一步学习VBA】将Excel内容导出为单个txt文件

这里我就直接上源码：

Sub 导出txt1()
Dim file As String, arr, i
'定义文本文件的名称
file = ThisWorkbook.Path & "\新工资表.txt"
'判断是否存在同名文本文件，存在先行删除
If Dir(file) <> "" Then Kill file
'将当前的数据读入数组
arr = Sheet1.Range("a1").CurrentRegion
'使用print语句将数组中所有数据写入文本文件
Open file For Output As #1
For i = 1 To UBound(arr)
Print #1, Join(Application.Index(arr, i), ",")
Next
'关闭文本文件
Close #1
End Sub

运行结果如下：

上面是从Excel写入Txt，我的 梁歪一篇文章是从Txt读取然后写入Excel：点击

参考文章:点击