文字コードをS-JISからUTF-8に変換する

VBAで、S-JISからUTF-8に変換する時に使います。
元のファイルはそのままで新規に「ファイル名_utf8.txt」で保存します。

Sub sjis_utf(FN As String)
Dim FROM_OBJ As Object
Dim TO_OBJ As Object


Set FROM_OBJ = CreateObject("ADODB.Stream")


FROM_OBJ.Type = 2
FROM_OBJ.Charset = "shift-jis"
FROM_OBJ.Open
FROM_OBJ.LoadFromFile FN
FROM_OBJ.Position = 0


Set TO_OBJ = CreateObject("ADODB.Stream")


TO_OBJ.Type = 2
TO_OBJ.Charset = "utf-8"
TO_OBJ.Open




FROM_OBJ.CopyTo TO_OBJ
TO_OBJ.Position = 0
TO_OBJ.SaveToFile FN & "_utf8.txt", 2


End Sub