Excel VBAでUTF-8のテキストファイルを扱う(ADODB.Stream) - 百年の未読

自分にとっての覚書です。 Excel VBAでテキストファイルを書き出すために、こんなマクロを組んでいました。 Dim n As Long n = FreeFile Open "C:\sample.html" For Output As #n Print #n, "テキスト" Close #nけれど、この方法だと、できあがったテキストファイルの文字コードはShift-JISになります。 Excelのデータから大量にHTMLを生成するVBAを組もうと思っていたのですが、今回作成したいファイルの文字コードはUTF-8。 テキストファイルを作成した後に、文字コードを変換するという手も考えましたが、ひと手間増えてしまいます。どうにかならんかと検索してみたところ、VBAで文字コードを指定してテキストファイルを読み書きするにはADODB.Streamを使えばよいということが分かりました。 [参考にした

[genius_abc]

文字コード

[msh514]

VBA 文字コード変換

[milanista]

仕事でツール作る必要があったので

[tejima068]

excelからUTF-8でアウトプット

[toshifme]

excelからUTF-8でアウトプット