Forum Discussion
Solved
How to rename file names from an excel cell
I have a list of .png file names exported to excel that I have modified (added an _ in a specific location in the name) and want to rename the same .png file names in the same folder I pulled from to...
Oh wait - my bad. The values in the worksheet already include .png.
Try this version:
Sub RenameFiles() ' Change the path as needed, but keep the trailing backslash Const sFolder = "C:\MyFiles\" Dim r As Long Dim m As Long Dim v As Variant m = Range("A" & Rows.Count).End(xlUp).Row v = Range("A1:B" & m).Value On Error GoTo ErrHandler For r = 2 To m Name sFolder & v(r, 1) As sFolder & v(r, 2) Next r Exit Sub ErrHandler: MsgBox "Failed to rename " & v(r, 1), vbInformation Resume Next End Sub
Could you create a list of the original names in column A, and the corresponding modified names in column B?
Ok, same file names are now in Column A that are currently in the folder and what I want the .png file names changed to are in Column B (added _ after the 591_42).
By the way, this is just a sample size to test, the folder of images I want to update has over 10,000 .png files.
You marked your reply as the best response, so I take it your problem has been solved.
- No, just didn't know what that did 🙂
Is there a macro or Command Prompt code that can take column A as a look up in the Folder (rename_test) and replace with column B. I am new at this and don't know the best steps for completing this task.OK, I unmarked your reply.
In the workbook with the list of names, press Alt+F11 to activate the Visual Basic Editor.
Select Insert > Module to create a new code module.
Copy the following code into it:
Sub RenameFiles() ' Change the path as needed, but keep the trailing backslash Const sFolder = "C:\MyFiles\" Dim r As Long Dim m As Long Dim v As Variant m = Range("A" & Rows.Count).End(xlUp).Row v = Range("A1:B" & m).Value On Error GoTo ErrHandler For r = 2 To m Name sFolder & v(r, 1) & ".png" As sFolder & v(r, 2) & ".png" Next r Exit Sub ErrHandler: MsgBox "Failed to rename " & v(r, 1), vbInformation Resume Next End SubChange the value of the constant sFolder at the beginning of the macro to the full path of the .png files, including the backslash \ at the end.
You might want to test the code on a folder with just a few files to see if it does what you want, before you run it on the folder with all the files.
To run the macro, click anywhere in it and press F5.
