在Excel中将Excel中的工作表导出为UTF-16BE

Question

我正在尝试以Unicode（Big Endian）格式写入文本文件。

据我所知，VBA只允许我使用FileSystemObject输出为Unicode：

fso.CreateTextFile(Output_Dir, True, True) 'The third parameter turns on unicode

或者，我看到有些人使用ADODB.Stream方法，但我无法编写UTF16-BE文本文件。

set stream = CreateObject("ADODB.Stream")
stream.Charset = "UTF-16" 

但是，在进行以下编译时，它不会产生正确的输出。

stream.charset = "UTF-16BE"

现在我可以将文件保存在标准unicode中，打开它Notepad ++并将其转换为UTF-16BE，但由于显而易见的原因，这不是一个更好的解决方案。

有没有办法直接导出到Big Endian，还是我需要探索实际翻转文件中的每个字节？

由于