ファイルを一括リネームするExcel VBAマクロ
フォルダを読み込んで、その中にあるファイルを一括でリネームしたり、ファイルのプレフィックスを取り除いてファイル名をゼロパディング(先頭をゼロ埋めすること)したりできます。
当時探したフリーソフトではこの「ファイル名をゼロパディング」するのができなくて自作したんですよね。
ファイル一括リネーム.xlsm (3297 ダウンロード )
使い方
一括リネーム
「A2」セルに読み込むディレクトリのパスを設定して「ファイル読み込み」ボタンを押します。 変換前のファイルリストが作成されます。 変換後のリストに変えたい名前を書いていきます。変えたくないファイルはセルをコピーしましょう。 「一括リネーム」ボタンを押します。
確認ダイアログが出るので「はい」を押します。 ファイル名がリストの内容で変更されます。 また、「リセット」ボタンを押すと初期状態に戻すことができます。
ファイル名ぜロパディング
「ファイル名ぜロパディング」ボタンを押すとダイアログが立ち上がります。こんな感じのファイルを綺麗に「001.txt」、「010.txt」、「100.txt」となるようにしてみます。 実行するとこうなります。 誰かのニッチな需要に刺さるといいなー。
Excel VBAはプログラムのめんどくさい入出力処理とUI作成をサボれるから結構好きです。
でわ。
ディスカッション
コメント一覧
非常に参考になりました。
1点、初歩的な質問かもしれませんが、ファイルの一括返還する際の「変換前ファイル名」(又は変換後ファイル名)で使用できない言葉などはありますか?
ファイル名に使用できない文字とかは使えないと思います。
https://www.fmworld.net/cs/azbyclub/qanavi/jsp/qacontents.jsp?PID=3908-2319