Rename Files

macropod · #1 05-11-2012, 08:15 PM

Hi,

You can use code like the following. I've assumed the names are in your workbook. If they're not, you can modify the code to suit - the basic principles are the same. Note that the Filepath must end with a "\"

Code:

Sub RenameFiles()
Dim i As Long, Strpath As String
Strpath = "Filepath"
With ActiveSheet
  On Error Resume Next
  For i = 1 To 12
    If Dir(Strpath & .Cells(i, 2).Value, vbNormal) <> "" Then
      Name Strpath & .Cells(i, 2).Value As Strpath & .Cells(i, 1).Value & .Cells(i, 2).Value
    End If
  Next
End With
End Sub

PS: Please don't post Excel vba questions in the Word vba forum.

gsrikanth · #2 05-14-2012, 02:15 AM

Quote:

Originally Posted by macropod

Hi,

You can use code like the following. I've assumed the names are in your workbook. If they're not, you can modify the code to suit - the basic principles are the same. Note that the Filepath must end with a "\"

Code:

Sub RenameFiles()
Dim i As Long, Strpath As String
Strpath = "Filepath"
With ActiveSheet
  On Error Resume Next
  For i = 1 To 12
    If Dir(Strpath & .Cells(i, 2).Value, vbNormal) <> "" Then
      Name Strpath & .Cells(i, 2).Value As Strpath & .Cells(i, 1).Value & .Cells(i, 2).Value
    End If
  Next
End With
End Sub

PS: Please don't post Excel vba questions in the Word vba forum.

in Filepath place in kept my path "\\geodb-1\f\villages\"
i have folder that
excel i kept attachment

using above code no replace occur

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Rename a Quick Part	sleake	Word	14	10-14-2013 09:21 AM
Can't rename shared calendars	kenelder	Outlook	0	06-02-2011 07:53 AM
Rename File	cksm4	Word VBA	2	02-25-2011 09:29 AM
Rename Outlook 2003 Contacts Folder	sfpermits	Outlook	6	07-21-2010 09:56 AM
code to save / rename / send attachments	unit213	Outlook	1	09-26-2007 08:15 PM