Using VBA to rename multiple of file names in folder but also taken parts of it out? Would this be possible.

[Raboh001]

These file names are generally all the same but the numbers being completely different and I am just looking to place a ‘I’ at the start of the file name and removing the numbers at the start of it? The old name would be XS123445567_A_RT_Y 34019 and I would like to rename it too IXS123445567_A_RT_Y instead and I would have around 50 or these files names to change, if anyone has any ideas that would be amazing! Thank you again all

 

[Micron]

Should be easy enough using Name function.

VBA Rename File

VBA allows you to rename an existing file, using the Name command. In this tutorial, you will learn how to rename a specific file. If you want to learn

www.automateexcel.com

Instead of just using this line in that code
Name "C:\VBA Folder\Sample file 1.xlsx" As "C:\VBA Folder\Sample file 2.xlsx"
you would assign the old name to a variable and construct the new name by writing
strNewName = "1" & strOldName. However, it might be better to remove the trailing number first. The key though is consistency in the pattern of the strOldName - impossible to see a pattern with only one example, but it might be the space before the number.

 

[Raboh001]

Hello,
I am just in need of help with renaming files very quickly. So I would have around 60 pdfs with names “EA12736458_A_PA_N 2103”, I would have to rename these files by placing a “I” at the start and removing the last 4 numbers at the end. The only difference each name has is the names are completely different like another file name would be “EA12364926_A_PA_N 2104”. The end result should look like this taking the first file name “IEA12736458_A_PA_N”. I use to get 100s of these files and just need to make the job more efficient. Thank you to anyone who can help!?

 

[Joe4]

Try this (just change the folder name to match your needs):

Sub RenameFiles()

    Dim myDir As String
    Dim fn1 As String
    Dim fn2 As String

'   Set directory to look in
    myDir = "C:\Temp\Test\"
    
    fn1 = Dir(myDir & "*.pdf*")
    
'   Loop through files
    Do While fn1 <> ""
'       Check to see that file name does not begin with an "I"
        If Left(fn1, 1) <> "I" Then
'           Build new file name
            fn2 = "I" & Trim(Left(fn1, Len(fn1) - 8)) & ".pdf"
'           Rename files
            Name myDir & fn1 As myDir & fn2
'           Go to next file
        End If
        fn1 = Dir()
    Loop
    
    MsgBox "Renaming complete!"
    
End Sub

 

[Joe4]

I have merged your two threads together.

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted. If you have follow-up questions on a question, please post them back to the original thread instead of starting a new thread on the exact same question.

 

[Raboh001]

Try this (just change the folder name to match your needs):

Sub RenameFiles()

    Dim myDir As String
    Dim fn1 As String
    Dim fn2 As String

'   Set directory to look in
    myDir = "C:\Temp\Test\"
   
    fn1 = Dir(myDir & "*.pdf*")
   
'   Loop through files
    Do While fn1 <> ""
'       Check to see that file name does not begin with an "I"
        If Left(fn1, 1) <> "I" Then
'           Build new file name
            fn2 = "I" & Trim(Left(fn1, Len(fn1) - 8)) & ".pdf"
'           Rename files
            Name myDir & fn1 As myDir & fn2
'           Go to next file
        End If
        fn1 = Dir()
    Loop
   
    MsgBox "Renaming complete!"
   
End Sub

 

[Raboh001]

Try this (just change the folder name to match your needs):

Sub RenameFiles()

    Dim myDir As String
    Dim fn1 As String
    Dim fn2 As String

'   Set directory to look in
    myDir = "C:\Temp\Test\"
   
    fn1 = Dir(myDir & "*.pdf*")
   
'   Loop through files
    Do While fn1 <> ""
'       Check to see that file name does not begin with an "I"
        If Left(fn1, 1) <> "I" Then
'           Build new file name
            fn2 = "I" & Trim(Left(fn1, Len(fn1) - 8)) & ".pdf"
'           Rename files
            Name myDir & fn1 As myDir & fn2
'           Go to next file
        End If
        fn1 = Dir()
    Loop
   
    MsgBox "Renaming complete!"
   
End Sub

I’ve got a few lines that are red and then it won’t perform the task due to not having a macro name when pressing play. I will try and attach a photo but it’s saying it’s too large and just wondering how you also make a macro name to this task can be performed. Thank you for you help massively!

 

[Joe4]

I am not sure I understand what you are saying the issue is.
Where exactly have you placed this VBA code?
What is the name of the module you have placed it in?

You should be creating a new module, and placing it in there (do NOT put it in the "ThisWorkbook" or one of the "Sheet" modules).
If you place it in one of those other existing modules, you will not see it on your Macro listing from the worksheet.

 

[Raboh001]

I’ve got a few lines that are red and then it won’t perform the task due to not having a macro name when pressing play. I will try and attach a photo but it’s saying it’s too large and just wondering how you also make a macro name to this task can be performed. Thank you for you help massively!

 

[Raboh001]

My

I am not sure I understand what you are saying the issue is.
Where exactly have you placed this VBA code?
What is the name of the module you have placed it in?

You should be creating a new module, and placing it in there (do NOT put it in the "ThisWorkbook" or one of the "Sheet" modules).
If you place it in one of those other existing modules, you will not see it on your Macro listing from the worksheet.

My apologies I haven’t started a new one so I will have to create a new one, but after this is what the code looks like. Not sure if I was suppose to put spaces or something between but it won’t run because of it.