ファイルを一括リネームするExcel VBAマクロ

2019年4月8日

以前作ったもの。

フォルダを読み込んで、その中にあるファイルを一括でリネームしたり、ファイルのプレフィックスを取り除いてファイル名をゼロパディング（先頭をゼロ埋めすること）したりできます。

当時探したフリーソフトではこの「ファイル名をゼロパディング」するのができなくて自作したんですよね。

ファイル一括リネーム.xlsm (3550 ダウンロード )

使い方

一括リネーム

「A2」セルに読み込むディレクトリのパスを設定して「ファイル読み込み」ボタンを押します。

変換前のファイルリストが作成されます。

変換後のリストに変えたい名前を書いていきます。
変えたくないファイルはセルをコピーしましょう。

「一括リネーム」ボタンを押します。
確認ダイアログが出るので「はい」を押します。

ファイル名がリストの内容で変更されます。 また、「リセット」ボタンを押すと初期状態に戻すことができます。

ファイル名ぜロパディング

「ファイル名ぜロパディング」ボタンを押すとダイアログが立ち上がります。

こんな感じのファイルを綺麗に「001.txt」、「010.txt」、「100.txt」となるようにしてみます。

実行するとこうなります。

誰かのニッチな需要に刺さるといいなー。

Excel VBAはプログラムのめんどくさい入出力処理とUI作成をサボれるから結構好きです。

でわ。