Excel通过脚本导出到.txt

我遇到了这个问题，导出大量的Excel单元格到一个.txt文件，这一定需要UTF-8格式。 因此，我做了一个VBScript，由batch file执行，它完全做它应该（尽pipe它创build一个UTF-16文件）。

Set file = fso.OpenTextFile(FILE, 2, True, -1) 

在文档中提到， -1将生成一个Unicode文件，我很确定，这仅限于UTF-16。

我现在的问题是：我是否错过了一些东西，或者用VBScript来实现这一点是不可能的？ 有更容易的方法吗？ 除此之外：这个平台是独立的吗？

Answer 1

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 ...