Sub Test()
Dim fileSaveName
Dim i As Integer
Dim fso, outStream
'创建文件,并返回路径
fileSaveName = Application.GetSaveAsFilename("测试文件", fileFilter:="文本文件(*.txt), *.txt")
'创建写入数据的流
Set fso = CreateObject("Scripting.FileSystemObject")
Set outStream = fso.CreateTextFile(fileSaveName, True, False) '第二个参数为设置文件是否可直接覆盖。第三个参数为True时对应的编码
'式为Unicode,'为False对应的编码格式为ANSI
'向文本文件写入内容
For i = 1 To 20
outStream.WriteLine (Sheet1.Cells(i, 1) & "-----" & Sheet1.Cells(i, 2))
Next i
outStream.Close
End Sub