我遇到了将大量 Excel 单元格导出到 .txt 文件的问题，该文件必须采用 UTF-8 格式。因此，我制作了一个 VBScript，它由一个批处理文件执行，它完全完成了它应该做的事情（尽管它创建了一个 UTF-16 文件）。
Set file = fso.OpenTextFile(FILE, 2, True, -1)
在文档中提到 -1 将生成一个 Unicode 文件，我很确定这仅限于 UTF-16。
我现在的问题是：我是否遗漏了什么，或者用 VBScript 完全不可能实现这一点？有没有更简单的方法？除此之外：这个平台是独立的吗？
【问题讨论】：
FileSystemObject 不支持 UTF-8，但 ADODB.Stream 对象支持。
...
'Note: wb is the variable holding your workbook object
'Save worksheet as Unicode text ...
wb.SaveAs "C:\utf16.txt", 42
'... read the Unicode text into a variable ...
Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("C:\utf16.txt", 1, False, -1).ReadAll
'... and export it as UTF-8 text.
Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 2 'text
stream.Position = 0
stream.Charset = "utf-8"
stream.WriteText txt
stream.SaveToFile "C:\utf8.txt", 2
stream.Close
...
【讨论】：
FileSystemObject 读取该 Unicode 文件并使用 ADODB.Stream 对象将其写入 UTF-8 编码文件。
recode 转换导出的 Unicode 文件。