サンプルコード1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | Public Sub Utf8ToSjis(ByVal OriginPath As String, ByVal SavePath As String) Dim sReadData As Object Dim sWriteData As Object Set sReadData = CreateObject("ADODB.Stream") Set sWriteData = CreateObject("ADODB.Stream") Dim sText As Variant 'ファイルの読み込み sReadData.Type = adTypeText sReadData.Charset = "UTF-8" sReadData.Open sReadData.LoadFromFile OriginPath '書き込み用のファイルを開く sWriteData.Type = adTypeText sWriteData.Charset = "Shift-JIS" sWriteData.Open 'データの書き込み sWriteData.WriteText sText 'ファイルの保存 sWriteData.SaveToFile SavePath, adSaveCreateOverWrite sReadData.Close sWriteData.Close End Sub |