エクセルマクロの文字コード変換について。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"
![エクセルマクロの文字コード変換について。UTF8からSJIS変換 - VBA初心者です。以下のコードを使用してファイルの変... - Yahoo!知恵袋](https://cdn-ak-scissors.b.st-hatena.com/image/square/1d07bee2b75b182ba712690f3a3464c29972e28b/height=288;version=1;width=512/https%3A%2F%2Fs.yimg.jp%2Fimages%2Fks%2Fclap%2Fimage%2Fogp%2Fogp.png)