ファイル名一括変更のマクロ（ファイル名変更）(2ページ目)

エラーが発生しないように対策する

今回作成したファイル名を変更するマクロでは、次の2つの場合にエラーが発生する可能性があります。
■「新ファイル名一覧」の列にファイル名が入力されていない
■「コピー先フォルダ」にフォルダパスが入力されていない

1つめのケースは、「新ファイル名一覧」にファイル名が入力されていないために「コピー先が見当たらない」と判断され、下図のような「パスが見つかりません」というエラーメッセージが表示される場合です。

このエラーを防ぐため、ここでは「新ファイル名一覧」にファイル名が入力されていない場合は、FileCopyステートメントを実行しないで、その行のC列のセルに「ファイル名未入力」と入力するように書き換えます。

2つめのケースは、「コピー先フォルダパス」が入力されていない場合を想定したエラー処理で、下図のように記述します。ファイル名一覧を作成したマクロでも同じようなエラー処理を記述しましたね。特にエラーメッセージが表示されるようなケースではありませんが、意図していないフォルダにコピーされてしまうのを防ぐための重要な処理です。

作成したマクロをボタンに登録して完成！

これで、ファイル名を変更するマクロが完成しました。ワークシート上に「リネーム処理」ボタンを作成して、作成したマクロを登録しておきましょう。


それでは、実際にリネーム処理を実行してみましょう。「コピー元フォルダパス」と「コピー先フォルダパス」を入力し、「旧ファイル名一覧作成」ボタンをクリックして旧ファイル名一覧を作成したあと、新しいファイル名を入力して「リネーム処理」ボタンをクリックしてください。

見事に、コピー先フォルダにファイル名が変更されたファイルがコピーされていますね。


新しいファイル名が入力されていない行があった場合は、その行のリネーム処理は実行されず、C列に「ファイル名未入力」と入力されます。