こんにちは。会社で大量のファイル名を変更していますが、Excelで一覧からを変更できれば能率的なので作っていますが、困っています。下記のものです。
Sub リネーム()
Dim i As Long
Dim NEWファイル As String
Dim OLDファイル As String
Dim パス As String
For i = 1 To Range("B65536").End(xlUp).Row
パス = Cells(2, 1).Value
OLDファイル = パス & Cells(i, 2).Value
NEWファイル = パス & Cells(i, 3).Value
If Dir(OLDファイル) <> "" Then
Name OLDファイル As NEWファイル
End If
Next i
End Sub
※A2にはC:\Documents and Settings\M．Co，\デスクトップ\リネームと入っています。B1には変更前の001.jpg、C1には変更するa-1.jpgとファイル名が入っています。実行してもファイル名は変更されません。エラーもでません。よろしくお願いします。
