Microsoft Office VBA输出Unicode支持的

在使用Office的VBA输出文本文件的时候，默认居然是ANSI，如果里面有中文，可能就是乱码了，需要输出Unicode的文本文件就没事了。
比如常规用下面的代码输出，默认是ANSI，而且暂是不知道如何使之输出Unicode。

file = Application.GetSaveAsFilename("指定文件", fileFilter:="文本文件(*.txt), *.txt")
Open file For Output As #1
Write #1, textContent
Close #1

改成下面的就行了：

file = Application.GetSaveAsFilename("指定文件", fileFilter:="文本文件(*.txt), *.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
'CreateTextFile函数的三个参数
'第一个是文件名（含路径）
'第二个参数指明文件已经存在的话，是否直接覆盖，为True就直接覆盖
'第三个指是否使用Unicode，True就是Unicode否则是ANSI
Set outStream = fso.CreateTextFile(file , True, True)
outStream.WriteLine (textContent)
outStream.Close              

达叔傻乐（darwin.zuo@163.com）