ExcelVBA 文字コード変換

締切済

質問者：_xxaaxx_
質問日時：2021/09/17 14:40
回答数：1件

VBAで、フォルダ内にあるcsvファイルの文字コードを変換する方法について教えて下さい。

「UTF-8」のtxtファイルを文字コード「Shift-JIS」に変換するVBAコードを教えて頂きたいです。

以下のような手順でファイルの操作ができるVBAコードでお願いします。

①「UTF-8」のtxtファイルが入っているフォルダを指定する。
②指定したフォルダ内にある全てのtxtファイルについて、「Shift-JIS」に変換させる。
③「Shift-JIS」に変換した後のtxtファイルの保存方法については、フォルダ名や場所をこちらで指定する。

※③については②の処理が完了次第、自動でフォルダ名と場所の指定をさせる入力画面を出力させるようなイメージです。

できればですが、変換させるtxtファイル数が多いため、早く処理できるようにしたいです。

(yahoo知恵袋の方に「UTF-8」のcsvファイルから「Shift-JIS」のcsvファイルに変換する方法は載っているのですが、うまくできない状態なので、よろしくお願いします。)