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

自分用メモです。

----------

With CreateObject("ADODB.Stream")
    .Charset = "UTF-8"
    .LineSeparator = adLF
    .Open
    
    .WriteText "aaa", adWriteLine
    .WriteText vbTab & "bbb", adWriteLine
    .WriteText "ccc", adWriteLine
    
    .Position = 0
    .Type = 1
    .Position = 3
    
    Dim byteData As Variant
    byteData = .Read
    .Close
    
    .Open
    .Write byteData
    
    .SaveToFile FILENAME, adSaveCreateOverWrite
    .Close
End With

----------

以前のおまじないはExcelのバージョンアップに伴い使えなくなっていたため、今後は新しいおまじないを使いましょう！