VBAでUTF-8のテキストファイルを作成する

VBAで文字コードがUTF-8のテキストファイルを作成する方法。
Excelファイルの内容をJSONフォーマットで出力させようと思って、
色々調べたところ、ADOのStreamオブジェクト使ったら簡単に出来る事が判明。

ソース

Option Explicit

' VBAで文字コードUTF8のテキストファイルを作成する
Sub CreateText_UTF8()

    Const cnsFilePath As String = "D:\hogefuga.txt"

    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .WriteText "ほげふが"
        .SaveToFile cnsFilePath, 2 '1:ファイル有り時上書きしない、2:上書きする
        .Close
    End With

End Sub

MSDN ADO API リファレンス
SJIS→UTF8といった、文字コード変換とかも今度試してみよう。