UTF-8 でファイルを保存する - VBA

VBAでD:\temp\hello.txtにUTF-8で保存するのは次のようにする

With CreateObject("ADODB.Stream")
    .Charset = "UTF-8"
    .Open
    .WriteText "こんにちは", 1
    .WriteText "世界", 1
    .SaveToFile "C:\temp\world.txt", 2
    .Close
End With

○解説

• CreateObject("ADODB.Stream")でファイルに書き込むオブジェクトを作成する
• .Charset = "UTF-8"で保存するときの文字コードをUTF-8に設定する
• .Openでファイルを開く
• .WriteText "こんにちは", 1では、こんにちはと出力。第2引数の1は出力した後に改行を入れるという意味
• .SaveToFile "C:\temp\world.txt", 2でC:\temp\world.txtに対して保存している。第2引数の2はファイルが存在していても上書きするという意味
• .Closeでファイルを閉じる

---

参考文献

Office TANAKA - Excel VBA講座：ファイルの操作[UTF-8形式のテキストファイルに書き込む]