VBA 生成文本文件

Sub CreateFile(FileText As String, Fil As String)
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Charset = "Unicode"
        .Open
        .WriteText FileText
        .SavetoFile Fil
        .Flush
        .Close
    End With
End Sub

新建文本文件并写入内容, 第一参数:写入内容,第二参数:文件名.默认Unicode格式.