这里我就直接上源码：
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：点击
参考文章:点击
转载请注明原文地址: https://ju.6miu.com/read-1296782.html
