サンプルコード1

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

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

2023-01-21