Извлечение текста в кодировке Юникод из таблицы Excel с использованием VBA

Question

Мы генерируем HTML из текста в электронной таблице Excel. Текст содержит Unicode представления международных символов. Когда мы используем VBA для извлечения текста и вывода его в файл, он записывается как ANSI (ASCII). Есть ли способ сохранить представление Unicode с помощью VBA?

Bruce

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