VBA实例3-创建并将内容写入 txt 文件

Sub test1()
Dim m As Long, n As Long, p As Long, q As Long
Dim Name1 As String, Mypath As String, Temp, Save_file, Ss
Dim Arr1()
'判断A列数据的最后一行
m = Range("a1048576").End(xlUp).Row
'转为数组
Arr1 = Range("a1:a" & m)
'输出文件的名称
Name1 = "测试"
'获得文件路径
Mypath = ThisWorkbook.Path
'保存txt文件路径，可修改名称
Save_file = Mypath & "\" & Name1 & ".txt"
Ss = ""
'循环得到数组中数据组成字符串
For p = LBound(Arr1) To UBound(Arr1)
    '行内数据分隔，制表符
    Temp = Join(Application.Index(Arr1, p), vbTab)
    '换行
    Ss = Ss & Temp & vbCrLf
Next
'写入txt文件
Open Save_file For Output As #1
Print #1, Ss
Close #1
End Sub