【VBA】ファイル名変更マクロ

ファイル名変更マクロ

ファイル名をリストに沿って変更するマクロの防備メモです。

A列に現在のファイル名、B列に変更したファイル名を入れる。

Sub renamemacro()
Dim i As Long

    'ファイル保存先
    Const MyFolder$ = "C:\Users\*****\
    Const A& = 1, B& = 2

    Dim con As Long
    con = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To con
        Name MyFolder & Cells(i, A).Value As MyFolder & Cells(i, B).Value
    Next i
End Sub