使用VBA从Excel电子表格中提取Unicode文本

Question

我们从Excel电子表格中的文本生成HTML。 文本包含国际字符的unicode表示。 当我们使用VBA提取文本并将其输出到文件时，它被编写为ANSI（ASCII）。 有没有一种方法可以使用VBA保留Unicode表示形式？

布鲁斯

Answer 1

VBA中的默认文件写入机制是ANSI（ 就像VB6一样 ）。

您需要使用其他方法。 一种方法是使用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