アーシの毎日インプット

毎日1つ以上学習する。学習した内容を公開する。を目標に自分のスキルアップを目指します。

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

スポンサードリンク

自分用メモです。

 

Dim ADOST As Object
Set ADOST = CreateObject("ADOST.Stream")

With ADOST
.Charaset = "UTF-8"
.LineSeparator = adLF
.Open

.WriteText "aaa", adWriteLine
.WriteText vbTab & "bbb", adWriteLine
.WriteText "ccc", adWriteLine

.Position = 0
.Type = ad TypeBinary
.Position = 3

Dim byteData as Variant
byteData = .Read
.Close

.Open
.Write byteData
.SaveToFile {FILENAME}, adSaveCreateOverWrite
.Close

End With

【アーシの原点】

【頭を鍛える迷路集】


スポンサードリンク