File Renamer VBA

[nettadecoco]

Hi all, so I want to automatically rename multiple files through a button in VBA but I don't really know how the logic is...

I plan to put all files I want to rename in a single folder, so I think it would be best to use FileDialog(msoFileDialogFolderPicker) to pick the folder.

I've attached the example names of the original file and the file name I want them to be renamed in the attachment. The original names are in column A, while the renamed names should be the column B. The columns could be edited in the future so I think it would be better to refer to the columns.

Can anyone help me on this?

Thank you!

[Marc L]

Hi,

is it normal any file has an extension ?

[nettadecoco]

Oh, Hi Marc L! Thank you for replying

All files are .xlsx format

[Marc L]

According to your attachment a VBA demonstration for starters :

Sub Demo1()
        R& = [A1].CurrentRegion.Rows.Count:  If R = 1 Then Exit Sub
    With Application.FileDialog(4)
        If .Show Then V = .SelectedItems(1) & Application.PathSeparator Else Exit Sub
    End With
        V = Evaluate("""" & V & """&A2:B" & R & "&"".xlsx""")
    For R = 1 To R - 1
        If Dir(V(R, 1)) > "" Then If Dir(V(R, 2)) = "" Then Name V(R, 1) As V(R, 2)
    Next
End Sub 

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[nettadecoco]

Hi Marc L, the code works wonders!

Thank you so much! I hope you have a great day!