ExcelVBA 文字コード変換

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ファイルに変換する方法は載っているのですが、うまくできない状態なので、よろしくお願いします。)

No.1 回答者： fujillin 回答日時： 2021/09/17 15:02

こんにちは

＞うまくできない状態なので、
「yahoo知恵袋」の内容は知りませんけれど、これでもダメでしょうか？

https://vbabeginner.net/convert-utf-8-files-to-s …