VBA 向文件写入简单数据（默认编码为ANSI或者Unicode）

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