catsの出来ることからこつこつと…(VB・VBAでSJISからUTF-8に変換する)

winだとS-JISですが、Webの世界だと最近UTF-8を使う事が多いcatsです。
ローカルで作ったファイルの文字コードをイチイチUTF-8へ変換するのが面倒なので、一括で変換出来るVBA作りました。


'引数「FN」にファイルのフルパスを入れます。

Function SJIS_to_UTF8(FN As String)

Dim FROM_OBJ As Object
Dim TO_OBJ As Object

Set FROM_OBJ = CreateObject("ADODB.Stream")
With FROM_OBJ
    .Type = 2
    .Charset = "shift-jis"
    .Open
    .LoadFromFile FN
    .Position = 0
End With

Set TO_OBJ = CreateObject("ADODB.Stream")
With TO_OBJ
    .Type = 2
    .Charset = "utf-8"
    .Open
End With

FROM_OBJ.copyto TO_OBJ
TO_OBJ.Position = 0
TO_OBJ.savetofile FN & "_utf.txt", 2

End Function

[28回]