Condividi:        

Excel: rinominare immagini con Excel

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: rinominare immagini con Excel

Postdi osvaldino70 » 19/06/08 16:09

Posto qui dove in passato ho avuto aiuto immenso!

Dovrei rinominare circa 4000 immagini.
In un file excel ho due colonne... in colonna A ho il nome attuale delle immagini e in colonna B ho il nome nuovo che vorrei assegnare.
Esiste un modo per farlo da Excel?
Sparo una cavolata... creare una funzione personalizzata (oggetto? OLE? VBA?) che una volta richiamata va ad agire in questi file (.jpg) esterni?!

Ciao
osvaldino70
Utente Junior
 
Post: 22
Iscritto il: 17/02/08 13:02
Località: Caorle

Sponsor
 

Re: Domandona x esperti: rinominare immagini con Excel

Postdi Anthony47 » 19/06/08 19:11

Bentornato.
Allora, hai i vecchi nomi dei files da A2 in giu' e i nuovi da B2 in giu'
Metti in C2 il path completo di questi files, esempio C:\Documents and Settings\User_1\Documenti\My Pictures
Poi usi questa macro:
Codice: Seleziona tutto
Sub ChFNames()
ChDir Range("C2").Value
For I = 1 To Range("A65536").End(xlUp).Row - 1
Name Range("A1").Offset(I, 0).Value As Range("B1").Offset(I, 0).Value
Next I
End Sub

Se in excel non hai scritto anche l' estensione (es .jpg), allora nella macro calcolerai prima il nome completo e poi userai l' istruzione Name come segue:
Codice: Seleziona tutto
FOldName= Range("A1").Offset(I, 0).Value & ".jpg"
FNewName= Range("B1").Offset(I, 0).Value & ".jpg"
Name FOldName as FNewName


Come sempre, almeno 1 copia di backup dei tuoi dati prima dell' esperimento.
Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Domandona x esperti: rinominare immagini con Excel

Postdi osvaldino70 » 19/06/08 22:35

Gentile, puntuale e incredibilmente perfetto.
Ora prova ma già so che funziona... l'estensione l'avevo già messa.
Intanto ci sono riuscito con uno script php visto che le immagini sono sul server... cmq mi servirà lo stesso la tua macro.

Grazie... ti faccio sapere

Ciao
osvaldino70
Utente Junior
 
Post: 22
Iscritto il: 17/02/08 13:02
Località: Caorle

Re: Domandona x esperti: rinominare immagini con Excel

Postdi osvaldino70 » 19/06/08 23:34

mmm mi da un errore... vedo domani coem risolvere.

Notte
osvaldino70
Utente Junior
 
Post: 22
Iscritto il: 17/02/08 13:02
Località: Caorle

Re: Domandona x esperti: rinominare immagini con Excel

Postdi Anthony47 » 19/06/08 23:59

Non e' secondario quale errore e su quale istruzione.

Tutte le righe devono essere contigue, da riga 2 fino alla fine; ogni nome file di col A deve esistere; i nomi in col B devono rispettare la sintassi windows per il nome file; e ovviamente in col B non devono esserci duplicati.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Domandona x esperti: rinominare immagini con Excel

Postdi osvaldino70 » 20/06/08 07:45

Il problema credo si proprio nel fatto che qualche file manca... provo ad eleiminare dal foglio quelli che mancano.

Ciao
osvaldino70
Utente Junior
 
Post: 22
Iscritto il: 17/02/08 13:02
Località: Caorle

Re: Excel: rinominare immagini con Excel

Postdi carlin75 » 29/05/12 18:10

Buogiorno ragazzi, ho trovato questo argomento che è praticamente il mio, semplicemente non conosco le stringhe di programma per ampliarlo:
nel mio caso ho creato come da vostro lavoro 2 colonne come citato, ma
a) in diversi casi in prima colonna ho lo stesso nome di immagine di partenza, e vorrei assegnare la stessa immagine a più codici (elencati in seconda colonna, diversi tra loro)
b) senz'altro capiterà che alcuni codici elencati in prima colonna non siano in realtà presenti nella directory (la prima colonna per me è una "wish" list, di quel che vorrei, ma non è detto che vi sia la foto corrispondente): si può saltare la riga e passare alla successiva?

Esempio mio file:
vecchi nomi nuovi nomi
100.jpg 00159999.jpg C:\foto
none.jpg 01234567.jpg
1008.jpg 02097459.jpg
1008.jpg 02097466.jpg
1008.jpg 00198271.jpg

in cui la foto none.jpg non esiste e mi occorrono 3 copie con 3 nomi diversi della foto 1008 (tre misure diverse dello stesso oggetto)

Mi riterrei debitore...
Grazie ora devo andare spero nel domani :) :)
carlin75
Newbie
 
Post: 2
Iscritto il: 29/05/12 17:50

Re: Excel: rinominare immagini con Excel

Postdi Anthony47 » 29/05/12 23:28

Ciao carlin75, benvenuto nel forum.
Con una macro come questa puoi COPIARE i file da una directory ad un' altra cambiandone il nome:
Codice: Seleziona tutto
Sub rinom()
SorgD = "C:\Users\UTENTE\Desktop\DA_PC-FACILE\Dir_UNO\"  '<< \ finale!!
DestD = "C:\Users\UTENTE\Desktop\DA_PC-FACILE\Dir_DUE\"  '<< \ finale!!
Range("A2").Select
On Error Resume Next
Do While Selection.Value <> ""
    FileCopy SorgD & Selection.Value, DestD & Selection.Offset(0, 1).Value
    Selection.Offset(1, 0).Select
Loop
End Sub
I nomi di origine sono da A2 verso il basso; il nome di copia e' nella colonna B. La macro si ferma alla prima cella vuota in col A.
Adegua le righe marcate <<< alla tua situazione (attenzione: "\" finale).

Fai sapere, ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel: rinominare immagini con Excel

Postdi raimea » 30/05/12 05:53

ciao
potrebbe esserti utile anche questo programma (non in excel)
lupas rename, dalle un occhiata. 8)

http://www.lelugarine.eu/downloads.asp?id=504

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: Excel: rinominare immagini con Excel

Postdi carlin75 » 31/05/12 14:18

Wow!!!!
Per Anthony
E' bastato creare una nuova macro vuota, copia/incolla dalla tua e via ad una velocità impressionante!!
Ho fatto una prova prima con una trentina di righe ma anche con la lista grande è bastato aspettare alcuni secondi

Poco sforzo ho aggiunto io .jpg al nome dei files in colonna B, nel mio originale non c'erano e non ero riuscito a reinterpretare i comandi che avevi citato ad Osvaldino

Adesso il problema diventa un altro: il numero massimo delle emoticons :lol: :lol: :)

Grazie
Carlin75

Per Raimea:
Ci guardo senz'altro, non credo oggi ma ho in programma cose simili
Grazie mille, ti faccio sapere
Carlin75
carlin75
Newbie
 
Post: 2
Iscritto il: 29/05/12 17:50


Torna a Applicazioni Office Windows


Topic correlati a "Excel: rinominare immagini con Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 78 ospiti