Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel]Macro per rinominare files in una cartella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel]Macro per rinominare files in una cartella

Postdi davide73 » 09/12/15 22:54

Buona sera a tutti! Ho un problema che non riesco a risolvere data la mia incapacità con excel.

Ho una cartella su cui ho centinaia di fotografie che devo rinominare in base ad un elenco di nomi nuovi (codici numerici) che ho su un foglio di excel.

Come faccio?

su una colonna A di excel ho riportato tutti i nomi delle foto e sulla colonna B i nomi nuovi.

Esiste una macro per fare questo lavoro? ho provato con alcune trovate ma non riesco a farle funzionare...non so neanche se le colonne di excel debbano avere qualche proprietà che non ho messo.

Vi prego aiutatemi!
davide73
Newbie
 
Post: 1
Iscritto il: 09/12/15 22:48

Sponsor
 

Re: [Excel]Macro per rinominare files in una cartella

Postdi Anthony47 » 17/12/15 00:58

Ciao davide73, benvenuto nl forum.
Questa tua domana non l'avevo proprio letta...
Supponiamo che in A1 ci sia il percorso dove si trovano i file attualmente, con lo "slash" (\) finale; in B2 metti il percosro dove vuoi posizionare le immagini.
Da A2 verso il basso ci sono gli attuali nomi file (compreso di estensione); accanto, in B2 verso il basso, ci sono i nuovi nomi file (compreso di estensione).
Prova allora con questa macro:
Codice: Seleziona tutto
Sub rinoma()
Dim myIPath As String, myOPath As String, I As Long
'
myIPath = Range("A1")
myOPath = Range("B1")
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Dir(myIPath & Cells(I, "A").Value) = Cells(I, "A").Value Then
        Name myIPath & Cells(I, "A").Value As myOPath & Cells(I, "B").Value
    End If
Next I
End Sub
Da excel: premi Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx
Compila A1 e B1 e gli elenchi in colonna A e B e lancia poi la Sub Rinoma: dal foglio contenente i dati, premi Alt-F8; seleziona Rinoma dall'elenco macro disponibili, premi Esegui.

La directory di Output deve gia' esistere.

Ciao, fai sapere...
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[Excel]Macro per rinominare files in una cartella":


Chi c’è in linea

Visitano il forum: alfrimpa e 8 ospiti