excel - UTF-8エンコーディングを使用したVBA Excelマクロ書き込みファイル

Question

スプレッドシートを処理し、コンテンツ (テキスト) をファイルに書き込むマクロを Excel で作成しています。このファイルを UTF-8 でエンコードする必要があります。OpenTextFile(... TristateTrue) と StrConv(.. vbUnicode) を使用してファイルをユニコードとして開こうとしましたが、それらはUTF-16にのみ変換します。オンラインであらゆる場所を検索しましたが、何も見つかりません。これは可能ですか？

ありがとう

Answer 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

参考： VBAでUTF-8エンコードしたテキストファイルを保存