Excel のマクロなど UTF-8 で出力する モジュールを紹介します。
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