Сохраните текстовый файл UTF-8, закодированный VBA

как я могу записать, что UTF-8 закодировал строки к текстовому файлу от vba, как

Dim fnum As Integer
fnum = FreeFile
Open "myfile.txt" For Output As fnum
Print #fnum, "special characters: äöüß" 'latin-1 or something by default
Close fnum

Разве на Прикладном уровне существует ли некоторая установка?

45
задан Karsten W. 26 March 2010 в 18:34
поделиться

1 ответ

Я нашел ответ в сети :

Dim fsT As Object
Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2 'Specify stream type - we want To save text/string data.
fsT.Charset = "utf-8" 'Specify charset For the source text data.
fsT.Open 'Open the stream And write binary data To the object
fsT.WriteText "special characters: äöüß"
fsT.SaveToFile sFileName, 2 'Save binary data To disk

Конечно, не так, как я ожидал ...

71
ответ дан 26 November 2019 в 21:05
поделиться
Другие вопросы по тегам:

Похожие вопросы: