忍者ブログ

[PR]

2024年03月19日
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

VB・VBAでSJISからUTF-8に変換する

2009年07月02日

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

拍手[27回]

PR
Comment
  Vodafone絵文字 i-mode絵文字 Ezweb絵文字
Trackback
トラックバックURL: