20

More than 5 years have passed since last update.

エクセルのマクロ（VBA）でUTF-8を書き出す方法

Posted at 2015-07-12

VBAは標準ではShift-JISかUTF16LEのみ

マクロを使ってHTMLの出力をする際にUTF-8で書き出したかったのですが、WriteLine()関数などでは基本的にShift-Jisになるようです。

UTF-8を書き出すにはADODB.Streamを使う(設定が必要)

Visual Basic Editor のメニューから［ツール］→［参照設定］を選び，［参照可能なライブラリファイル］の中から "Microsoft ActiveX Data Objects x.x Library" にチェックを入れます。

バージョンは最新のものでOK?

サンプルコード

書き出し用オブジェクトの準備

準備

Dim output As ADODB.Stream
Set output = New ADODB.Stream

With output
    .Type = adTypeText
    .Charset = "UTF-8"
    .LineSeparator = adLF
    .Open
End With

書き出す内容の準備

HTML_code = ""
HTML_code = HTML_code & "<!DOCTYPE html> "
HTML_code = HTML_code & "<html> "
HTML_code = HTML_code & "<head> "
…
…

書き出し＆ファイル保存

  output.WriteText HTML_code, adWriteLine
  output.SaveToFile "保存先のディレクトリ/ファイル名", adSaveCreateOverWrite
  output.Close

20

Register as a new user and use Qiita more conveniently

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up

20