Excel から UTF-8 で出力する

Excel のマクロなど UTF-8 で出力する モジュールを紹介します。

UTF-8ファイル作成 for VBA

PostgreSQL の テーブルレイアウトを Excel で作成して Excel のマクロで CREATE 文を生成しているのですが コメント文など 日本語を UTF-8 で出力するのに 利用させてもらいました。

使い方も簡単で、ダウンロードした class ファイルを Excel にインポートして、Open メソッドの代わりに 次のように記述します。

Dim f1 As New TextFile

f1.FileCreate "test1.txt", "UTF-8"
f1.TextWrite "このファイルは UTF-8 でエンコードされています。"
f1.FileClose

Google サイト内検索

Amazonアソシエイト