VBAでBOM無しUTF-8テキストを出力する - enokitechjavadocのpackage-info.javaをマクロでまとめて出力しようとしたのだが、OPEN - CLOSE ではShift-JIS、FileSystemObjectではUTF-16かASCIIでしか出力できない模様。 この記述を参考にコードを作成。 '## ファイル出力 - 開始 ## Dim bytData() As Byte With CreateObject("ADODB.Stream") .Open ' UTF-8に変換 ' .Type = adTypeText .Type = 2 .Charset = "UTF-8" .WriteText "/**", 1 '改行する .WriteText " * XXX, 1 ' .WriteText " * <pre>", 1 ' .WriteText " * YYY", 1 ' .WriteText " * </pre>", 1
