UTF-8ファイル出力したい

Dim fp As New ADODB.Stream
'Dim fp As ADODB.Stream
'Set fp = New ADODB.Stream
With fp
 .Type = adTypeText
 .Charset = "UTF-8"
 .LineSeparator = adLF 'LFのみ
 .Open
End With

fp.WriteText "出力したい文字列", adWriteLine
fp.SaveToFile ActiveWorkbook.Path & "\temp.txt", adSaveCreateOverWrite
fp.Close
標準状態ではUTF-8出力はできない。
ただライブラリは用意されているので以下の設定をして使えるようにする。
「ツール」->「参照設定」を選択し、参照設定ダイアログを開く。
その中の「Microsoft ActiveX Data Objects 2.8 Library」にチェックを入れて「OK」をクリックする。
comments (0)

コメント

Comment Form