【⼀步⼀步学习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), ",")vba自学好学吗
Next
'关闭⽂本⽂件
Close #1
End Sub
运⾏结果如下：
上⾯是从Excel写⼊Txt，我的 梁歪⼀篇⽂章是从Txt读取然后写⼊Excel：
参考⽂章:

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。