rename bunch of csv files at one go

[nip251]

i am new to macro hence i need your help
i have mote than 3000 csv files in one folder ie in d:\re
I want to change name of those files

I also have one excel file containing OLD and NEW names in colomun A and B
like
A, B
Old Name, New Name
asd, bu_09943_n
sdc ,BU_43434_b
lt b ,u_22222_n
mm ,bu_2222_n

like this
now i want to change all thies names at on go can any one write the macro for me ? PLEASE

 

[daverunt]

Hi,

got this code from the archives of this site:
http://www.mrexcel.com/archive/VBA/11962.html:

Sub RenameFiles()
For I = 1 to Range("A1").End(xlDown).Row
OldFileName = Cells(R,1).Value
NewFileName = Cells(R,2).Value
If Not Dir(OldFileName) = "" Then Name OldFileName as NewFileName
Next
End Sub

 

[nip251]

thanks,
but i still not able to do, can you write more on this so i can copy the program in excel macro
please , Thnak you again

 

[daverunt]

OK I never tried that and it didn't work.

Try this. Works well.
http://www.experts-exchange.com/Sof...Office_Suites/MS_Office/Excel/Q_23140028.html

Sub RenameFiles()
   Dim lngRow As Long, lngRowCount As Long, lngStartRow As Long
   Dim strPath As String
   On Error Resume Next
   strPath = "D:\re"    '---------------------------------as required
 
   If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
   lngRowCount = Cells(65536, "A").End(xlUp).Row
   lngStartRow = 1
   Application.ScreenUpdating = False
   For lngRow = lngStartRow To lngRowCount
      If Len(Cells(lngRow, "A").Value) > 0 And Len(Cells(lngRow, "B").Value) > 0 Then
         Name strPath & Cells(lngRow, "A").Value As strPath & Cells(lngRow, "B").Value
         Cells(lngRow, "C").Value = "Renamed"
      End If
   Next lngRow
   Application.ScreenUpdating = True
End Sub

 

[nip251]

thanks, its very help ful