TIL

Today I Leaned. 無理せず。できるときに。自分のペースで。

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

VBAD:\temp\hello.txtUTF-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", 2C:\temp\world.txtに対して保存している。第2引数の2はファイルが存在していても上書きするという意味
  • .Closeでファイルを閉じる

参考文献

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