文字コードをS-JISからUTF-8に変換する - catsの出来る事からこつこつと…
文字コードを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