这里我就直接上源码:
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:点击
参考文章:点击
时间: 2024-11-06 07:18:10