自分用メモです。 Dim ADOST As ObjectSet ADOST = CreateObject("ADOST.Stream") With ADOST.Charaset = "UTF-8".LineSeparator = adLF.Open .WriteText "aaa", adWriteLine.WriteText vbTab & "bbb", adWriteLine.WriteText "ccc", adWriteLine .Position …

VBA UTF-8出力のおまじない