だれかの、なにかに、役立てるウェブ制作者YoTaの趣味ブログ

VBAで指定フォルダのファイル or サブフォルダを一括リネームするマクロ自作した

特定フォルダに、大量のファイルやフォルダがあった時、それらのリネーム作業は超面倒です。

ネットで探すと、一括置換(一括リネーム)するフリーのアプリなどもあるのですが、エクセルベースで手軽に使えるのが欲しかったので自作してみました。

設計思想

流れとしてはこんな感じです。

・セルD5にディレクトリ指定
・そのディレクトリに含まれる、全ファイル or 全フォルダをD7列以降に吐き出し
・それをH列にコピー
・コピーした後のものをエクセルベースでリネーム(手作業)
・最後に置換ボタンを押すと、リネーム実行がされる

実際の挙動

D列にリネーム前のファイル一覧、H列にリネームしたファイル一覧があり、赤枠のボタンを押すことで…

windowsのエクスプローラー上で、このように指定したディレクトリの全ファイルが一括でリネームされます。

サブフォルダも同じようにして、

一気に改名することができます。

ソースコード

あくまで自分用でかなり手抜き作成しているので、公開は控えておきます。

もし欲しいという稀有な方いれば、本ブログSNSのいずれかをフォローして、本記事をシェアしてもらい、その旨をアカウントに連絡もらえれば送ります!

ページ上部に戻る