使用 VBA 从 Excel 电子表格中提取 unicode 文本答案

【问题标题】：Extracting unicode text from Excel spreadsheet using VBA使用 VBA 从 Excel 电子表格中提取 unicode 文本
【发布时间】：2010-01-25 16:02:43
【问题描述】：

我们从 Excel 电子表格中的文本生成 HTML。文本包含国际字符的 unicode 表示。当我们使用 VBA 提取文本并将其输出到文件时，它被写为 ANSI (ASCII)。有没有办法使用 VBA 保留 unicode 表示？

布鲁斯

【问题讨论】：

VBA 在内部使用 Unicode，所以理论上这样做应该没有任何问题......你能插入一些你正在使用的代码吗？尤其是你写文件的那一点。

标签： excel vba unicode

【解决方案1】：

VBA 中的默认文件写入机制是 ANSI (just like VB6)。

您需要使用不同的方法。一个way 是使用FileSystemObject。

   Dim fso As Object, MyFile As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\testfile.txt", False,True) 'Unicode=True'
   MyFile.WriteLine("This is a test.")
   MyFile.Close

【讨论】：