Free File Renamer Tool - Quickly Rename files batch using Excel VBA

Here is another help code and tool for programmers to rename files.

You can use this tool for renaming all files available in a selected folder. Just browse the folder and hit ‘Rename Files’ button. This tool is available free on our website, please go through this and let us know your thoughts in comments section.

VBA To Rename Files

VBA Code to Rename Files - File Rename Shortcut

Though this tool can be downloaded for free however we are pasting the code here, if someone wanna play with this customization. Here you just copy the code and paste it in Excel VB Editor Window and start using it.

'This function loops through all the files listed in the sheet and
'rename them as per details provided by user
Public Sub RenameFiles()
    '
    'Variable declaration
    Dim lCounter As Long
    Dim lInnerCounter As Long
    Dim bHasError As Boolean
    Dim strPath As String
    '
    'Clear Status field
    Sheet1.Range("E7:E" & Sheet1.Rows.Count).ClearContents
    '
    'Check if New File Name is not left blank
    bHasError = False
    For lCounter = 7 To Sheet1.Range("C" & Sheet1.Rows.Count).End(xlUp).Row
        If Trim(Sheet1.Range("D" & lCounter).Value) = "" Then
            Sheet1.Range("E" & lCounter).Value = "New File Name cannot be left blank"
            bHasError = True
        End If
    Next
    If bHasError = True Then
        MsgBox "There are few validation errors." & vbNewLine & vbNewLine & "Please check column E (Status) for details.", vbInformation
        Exit Sub
    End If
    '
    'Check if there are duplicate file names
    For lCounter = 7 To Sheet1.Range("C" & Sheet1.Rows.Count).End(xlUp).Row
        For lInnerCounter = lCounter + 1 To Sheet1.Range("C" & Sheet1.Rows.Count).End(xlUp).Row
            If Trim(LCase(Sheet1.Range("D" & lCounter).Value)) = Trim(LCase(Sheet1.Range("D" & lInnerCounter).Value)) Then
                Sheet1.Range("E" & lCounter).Value = "Duplicate File Name"
                bHasError = True
                Exit For
            End If
        Next
    Next
    If bHasError = True Then
        MsgBox "There are few validation errors." & vbNewLine & vbNewLine & "Please check column E (Status) for details.", vbInformation
        Exit Sub
    End If
    '
    'Store path in a variable and add slash to it
    strPath = Sheet1.Range("C3").Value
    If Right(strPath, 1) <> "/" And Right(strPath, 1) <> "\" Then
        strPath = strPath & "\"
    End If
    'Rename files
    For lCounter = 7 To Sheet1.Range("C" & Sheet1.Rows.Count).End(xlUp).Row
        On Error GoTo Error_FileRename
        '
        'Use Name function to rename file
        Name strPath & Sheet1.Range("C" & lCounter).Value As strPath & Sheet1.Range("D" & lCounter).Value
        '
        'Update status column as success
        Sheet1.Range("E" & lCounter).Value = "Success"
        '
        On Error GoTo 0
    Next
    '
    'Show confirmation to user
    MsgBox "Done", vbInformation
    '
    Exit Sub
    '
'Error Handler if file rename produces error
Error_FileRename:
    MsgBox "An error occurred while renaming file '" & Sheet1.Range("C" & lCounter).Value & "'." & vbNewLine & vbNewLine & "Error: " & Err.Description, vbCritical
    Sheet1.Range("E" & lCounter).Value = "Failed"
    Exit Sub
End Sub

How to use free File Renamer tool?

  • Save the following attachment in your system
  • Unzip the file and open
  • Browse the folder which has your files
VBA File Rename Tool
  • Enter ‘New File Name’ for each record
Rename Excel files
  • Click on ‘Rename Files’ button
Rename Files VBA
  • Done, all the files will be renamed and you will receive a confirmation message.
VBA To Rename Files in bulk

Note: Just in case if the tool is not able to rename a few files, you will get those details in the Status column.

  • To clear the data, click on ‘Clear Data

VBA Rename Excel Files

Hope it resolves your problem. Please do share this with your friends and colleagues.

Please do comment below with your thoughts.

Recommended Articles

If you wanna explore more excel utility tools, click here

Excel VBA Course : Beginners to Advanced

We are currently offering our Excel VBA Course for just $29. This courses includes On Demand Videos, Practice Assignments, Q&A Support from our Experts. Also after successfully completion of the certification, will share the success with Certificate of Completion

This course is going to help you to excel your skills in Excel VBA with our real time case studies.

Lets get connected and start learning now. Click here to Enroll.

Secrets of Excel Data Visualization: Beginners to Advanced Course

Here is another best rated Excel Charts and Graph Course in just $29. This courses also includes On Demand Videos, Practice Assignments, Q&A Support from our Experts.

This Course will enable you to become Excel Data Visualization Expert as it consists many charts preparation method which you will not find over the internet.

So Enroll now to become expert in Excel Data Visualization. Click here to Enroll.

Similar Posts

4 Comments

  1. Hi

    I downloaded the File Rename Tool and it did not run.

    Asking fo the password to unprotect the sheet.

    Please help.

    Thanks,

      1. ITS NOT GETTING DOWNLOADED

        1. I have fixed the issue. Please let me know if you still see the issue.

Leave a Reply

Your email address will not be published. Required fields are marked *