大量のファイル名を変更するときありませんか?
1つ1つ手入力すると、なかなか大変ですよね…
そこで、Excelみたいに一括変更できるマクロを作りました!
この記事ではファイル名を変更するマクロについて紹介します!
はじめまして、さかいと申します。
Excelマクロ エキスパートの資格を持っている自分が
解説させていただきます!
マクロを作る前の準備
まず、マクロを作成するために準備をしていきます
Excelファイルの上にあるツールバーに
「開発」タブを表示させます
既に表示している方は2 マクロを作るにジャンプしていただいてOKです
開発タブを表示
①ツールバーの上で右クリック
②「リボンのユーザー設定」を選択
すると、Excelのオプションが開きます
③「開発」にチェックをつけてOKをクリック
ツールバーに「開発」タブが表示されます。
これで準備完了です!
これでマクロを作ることができます!
早速マクロを作成していきましょう。
マクロを作る
まず初めに、間違えやすい3つの言葉について説明します。
マクロ|自動で処理をする「機能」
VBA|マクロを作るためのプログラミング言語
VBE|VBAを書くエディタ(メモ帳みたいなもの)
今回はVBEにコードを書いて、マクロを実行していきます。
①VBEを起動
「開発」タブから「Visual Basic」をクリック
または「Alt + F11」でもOKです
以下の画面が表示されます
②プロジェクトから標準モジュールを挿入
プロジェクト→挿入→標準モジュールをクリック
標準モジュールが表示されるとOKです
③Module1に以下のコードを貼り付け
Sub updFileName()
'フォルダパスを宣言
Dim path As String
Dim j As Integer
'A2セルの文字をパスに設定
path = Cells(2, 1) & "\"
j = 1
'B4セルからファイル名を更新
Do Until Cells(j + 3, 1) = ""
'A列のファイル名をB列のファイル名に更新
Name path & Cells(j + 3, 1) As path & Cells(j + 3, 2)
j = j + 1
Loop
End Sub
これでマクロの完成です!
④マクロの実行
A2セルにフォルダパス、A4セルに修正前のファイル名を入力
ファイル名取得マクロを使うと、効率的です
↓過去に投稿したファイル名取得マクロ↓
修正後のファイル名を入力完了
オートフィルで効率的に入力しましょう
▶︎(実行ボタン)をクリック
ファイル名が変更されました!
ファイル名一括変更のマクロの使い方は以上になります。
また、ファイル名が存在していなかったり、ファイル名が重複していると
エラーが表示されるので、ファイル名、フォルダパスをご確認ください!
まとめ
ここまでお疲れさまでした。
ファイル名を変更するマクロについて説明させていただきました。
手入力より速く楽にできるので、とてもオススメです!
また、置換を使うことで入力ミスなども減るので
ぜひぜひ使ってみてください!