#1
|
|||
|
|||
Rename Files
if i want to give in excel existing file name in the folder replace to beside column name for example
excel data (12 names and 12 names with code) MUDHOJIWADI RADHAIPALLE KANNAPUR MODEGAON MOSHAMPUR PALVANCHA TIPPAPUR YELLAPGONDA WADI AKKAPUR AMARLABADA LINGAMPALLE BANAPUR MOMBAJIPET MANGARAM GADKOLE KONDUR PAKHAL AP18025024 MUDHOJIWADI AP18025011 RADHAIPALLE AP18025016 KANNAPUR AP18025025 MODEGAON AP18025019 MOSHAMPUR AP18024016 PALVANCHA AP18035006 TIPPAPUR AP18024018 YELLAPGONDA AP18024020 WADI AP18024008 AKKAPUR AP18025028 AMARLABADA AP18025026 LINGAMPALLE AP18032004 BANAPUR AP18032003 MOMBAJIPET AP18032016 MANGARAM AP18023018 GADKOLE AP18023012 KONDUR AP18023020 PAKHAL Last edited by macropod; 05-11-2012 at 03:36 AM. Reason: Excel topic wrongly posted in Word vba thread |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Quote:
i have folder that excel i kept attachment using above code no replace occur |
#4
|
||||
|
||||
It would have been easier if you had posted a workbook with sample data to begin with.
Try: Code:
Sub RenameFiles() Dim i As Long, Strpath As String Strpath = "\\geodb-1\f\villages\" With ActiveSheet On Error Resume Next For i = 1 To 12 If Dir(Strpath & .Cells(i, 1).Value, vbNormal) <> "" Then Name Strpath & .Cells(i, 1).Value As Strpath & .Cells(i, 2).Value End If Next End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
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 |