エクセルマクロの文字コード変換について。UTF8からSJIS変換 VBA初心者です。 以下のコードを使用してファイルの変換を行うと、変換元のファイルが上書きされてしまいます。 有識者の方、コードの詳しい説明と解決方法をご教授下さい。 Sub UTF8toSJIS(ByVal InFile As String, ByVal OutFile As String) Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim myST1 As Object, myST2 As Object Set myST1 = CreateObject("ADODB.Stream") Set myST2 = CreateObject("ADODB.Stream") myST1.Type = adTypeText myST1.Charset = "UTF-8"