Renaming files using excel

[sanilmathews]

Hi,

I am trying to write VBA code to rename files (word doc) in a particular folder.
Please help me with the code to rename files in the folder by referring a column in the excel.

For example: Column A has a list of names aaa, bbb, ccc, ddd in A1, A2, A3, A4 etc.... I need a code to rename the existing files which are saved already in a different name with the new name listed in A1, A2, A3, A4 etc....

I would appreciate if you could give me a better solution ASAP!!
Thanks in advance

 

[Blade Hunter]

How do you know the old name? Is that in another column?

 

[sanilmathews]

Yes, I have the old names displayed in column B.

Also note that my files to be renamed are word documents.

 

[Blade Hunter]

OK well something like this (I am freetyping here so it may need debugging)

Sub RenameMyFiles()
Dim X as long
Dim DirName as string
DirName = "C:\Temp\" 'Change this to your file location
For X = 1 to range("B" & Rows.count).end(xlup).row 'Change the 1 to a 2 if you have a header
name DirName & Range("B" & X).text & ".doc" as DirName & Range("A" & X).text & ".doc" 'Change .doc to what you need (maybe docx depending on version)
Next
End sub

 

[sanilmathews]

Thank you very much!! This one is working
looking forward for more such help

 

[henanksha]

Hey,

I'm in an urgent need of an Excel macro that enables me to rename all files in a folder AND put these renamed files in a separate folder.

Can you please mail me this macro of yours on - henanksha@gmail.com

Any help will be much appreciated.

Cheers

 

[Blade Hunter]

Just put a dir name in the name part

name "c:\myfile.xls" as "c:\NewFolder\AnotherFolder\MyNewFilename.xls" will rename and move the file.