Forum Discussion
PatMyer
Feb 24, 2023Copper Contributor
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...
- Feb 24, 2023
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
PatMyer
Feb 24, 2023Copper Contributor
HansVogelaar Hmmm, failed to work. I wonder if it is because we use OneDrive at my work. Not sure if it is finding the folder "rename_test". I changed to "rename_test1" and got the same error so might not be locating the folder.
HansVogelaar
Feb 24, 2023MVP
Did the code rename any file at all, or did it fail at the first one (the one in A2)?