大量ファイルの一括リネーム(VBAの標準コマンドだけでも簡単にできるよって話)

---

VBAはExcelを操作するためのマクロ言語です。セルやワークシートを扱うために、大量のオブジェクトやプロパティなどが用意されています。しかし、それだけではありません。実はVBAには、ファイルやフォルダを操作するためのコマンドが標準で搭載されているんです。ファイルをコピーしたり削除したり、あるいはサブフォルダの作成も可能です。そして、そうした中には、ファイル名を変更(リネーム)するコマンドも含まれています。今回は、そのファイル名変更コマンドを使って、フォルダ内の大量ファイルを一気に名前変更する方法をご紹介します。

↓左上にあるをクリックすると、チャンネル登録できます。ぜひ、チャンネル登録をお願いします。あなたのチャンネル登録が、私のやる気を維持向上してくれます(笑)

【関連動画】

実務では必須のDir関数。あまり知られていない使い方をご紹介します。
https://youtu.be/FGVe4GkjjQc

Sub Macro1()
    Dim i As Long
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Name Cells(i, 1) As Cells(i, 2)
    Next i
End Sub

Sub Macro2()
    Dim A As String, P As String, N As Long
    P = "C:\Work\"
    A = Dir(P & "*.jpg")
    Do While A <> ""
        N = N + 1
        Name P & A As P & "【酒】写真-" & Format(N, "000") & ".jpg"
        A = Dir()
    Loop
End Sub

Office TANAKAのYouTubeチャンネルはこちら(動画一覧ページ)