ファイルリネーム＆コピーVer6
大量のファイルを扱っていると、
「ファイル名を一つずつ変更するのが面倒……」
ということがあります。
以前、Excel VBAを使ってファイル名を一括変更するマクロを作りました。
今回はそれをさらに改良し、ファイルの一括リネームだけでなく、1つのファイルを複数の名前でコピーできる機能も追加しました。
それが今回紹介する、「ファイルリネーム＆コピーVer6」です。
以前作った「ファイル一括リネーム用マクロ」
以前の記事では、Excelにフォルダ内のファイル名を取り込み、Excel上で新しいファイル名を入力して、一括でファイル名を変更するマクロを紹介しました。
当時は「ファイル名をまとめて変更できれば便利」ということで作ったものですが、実際に使っていると、もう一つ欲しくなった機能がありました。
それが、「1つのファイルを、名前を変えて複数コピーする機能」です。
そこで、リネーム機能とコピー機能を一つのExcelファイルにまとめました。
ファイルリネーム＆コピーVer6の主な機能
今回のマクロは、大きく2つの機能があります。
① ファイル名の一括変更
指定したフォルダ内のファイルをExcelに一覧表示し、新しいファイル名を入力して一括変更します。
② ファイルの一括コピー
1つのファイルを指定し、コピー先と新しいファイル名を入力することで、同じファイルを複数の名前で一括コピーできます。
① ファイル名を一括変更
まずExcelファイルを開きます。
スタート画面から、
「元ファイル名 取得」
をクリックします。
すると、指定したフォルダにあるファイルがExcelに一覧表示されます。
一覧には、
- フォルダパス
- 元ファイル名
- 新しいファイル名
- リネーム結果
が表示されます。
「ファイル名入れ替え実行」をクリック。
これだけで、まとめてファイル名を変更できます。
実行結果もExcelで確認できます
処理後は、リネーム結果もExcel上に表示されます。
例えば、成功や、スキップ（新しいファイル名が未入力）など、処理状況を確認できます。
大量のファイルを処理するときも、「ちゃんと変更されたかな？」と一つずつ確認する必要がありません。
② ファイルを一括コピー
今回追加したもう一つの機能です。
例えば、
1つの画像を、名前だけ変えて何個も作りたい
という場合。
まずコピー元となるファイルを選択します。
次にコピー先のフォルダを指定します。
そしてExcelに、コピー後のファイル名を入力します。
コピーするファイルの拡張子は入力する必要がありません。
元ファイルの拡張子を取得して、自動的に付けるようにしています。
こんなときに便利です
例えば、同じ画像や資料を、
- 商品001
- 商品002
- 商品003
- 商品004
- 商品005
というように、名前だけ変えて大量に用意したい場合。
通常なら、
「コピー → 名前変更 → コピー → 名前変更……」
と繰り返す必要があります。
このマクロなら、Excelに新しいファイル名をまとめて入力して実行するだけです。
なぜExcel VBAで作ったのか？
私自身、以前から大量のファイル名を変更する作業がありました。
最初はフリーソフトなどを利用していましたが、会社のパソコンでは自由にソフトをインストールできないこともあります。
そこで、
「Excelなら使えるパソコンが多い」
ということで、Excel VBAを使って自分用のマクロを作りました。
最初は単純なリネーム機能だけでしたが、少しずつ改良して現在の形になっています。
使用上の注意
リネーム
・必ず元データのバックアップを取ってください。
ファイル名の変更は、間違えて実行すると元に戻すのが面倒になる場合があります。バックアップさえとっておけばいくらでも試せます。
・サブフォルダは対象外。
指定したフォルダ内のファイルを対象としています。
・フォルダ名やファイル名には、できるだけ特殊な記号を使用しないことをおすすめします。
ExcelやWindowsの仕様によって、思わぬエラーになる可能性があります。
マクロを使用する場合
このファイルはExcel VBAを使用しているため、
.xlsm形式になっています。
Excelのセキュリティ設定によっては、マクロの実行が制限される場合があります。
ファイルの内容を確認したうえで、必要に応じてマクロを有効にしてください。
ダウンロード
今回の最新版はこちらです。
ファイルリネーム＆コピーVer6
[ファイルリネーム＆コピーVer6をダウンロード]
※ZIP形式で公開しています。
※Excelマクロ（VBA）を含むファイルです。
※使用前に、必ず元データのバックアップを取ってください。
まとめ
今回は、以前作ったファイル一括リネーム用マクロを改良して、
「ファイルリネーム＆コピーVer6」
としてまとめました。
できることはシンプルですが、
- ファイル名を一括変更
- 新しいファイル名をExcelで指定
- リネーム結果を確認
- 1つのファイルを複数の名前でコピー
- 拡張子を自動取得
といった作業ができます。
大量のファイルを一つずつ変更するのが面倒な方には、意外と便利だと思います。
Excelが使える環境であれば、特別なソフトをインストールせずに利用できます。
自分自身の作業を楽にするために作ったものですが、同じような作業をしている方のお役に立てればと思います。
必要な方は、バックアップを取ったうえでお試しください。
コメント