Mac Excel使用VBA生成UTF-8

Question

是否可以在Excel 2016 for Mac中使用Visual Basic（VBA）生成UTF-8文件？ 我需要生成编码的XML或TXT文件。

感谢

Answer 1

不是UTF-8，但UTF-16是什么VBA内部使用，这样你就可以直接倾倒字符串数据：

Dim fnum As Integer 
fnum = FreeFile() 
Open "utf16.txt" For Binary Access Write As fnum 

'write UTF-16 Byte Order Marker 
' 
Put #fnum, 1, &HFE 
Put #fnum, 2, &HFF 

printLineUtf16 fnum, "Olá Mundo!" 

Close #fnum 

Function printLineUtf16(fnum As Integer, str As String) 

    str = str & ChrW(10)   'append newline 

    Dim data() As Byte    'coerce string to bytes 
    data = str 

    Put #fnum, LOF(fnum) + 1, data 'append bytes to file 

End Function 

这应该在Excel的Mac 2011年和2016年的工作，并在Windows版本中。请注意，您将无法在编辑器中输入Unicode字符串文字，只需简单重音的拉丁字母（如上面的“á”），但单元格的Value中指定的字符串将保留为Unicode。