rinominare file pdf da excel

[calculon]

Scusate se ti disturbo ancora, ma sono ancora alle prese con lo stesso problema.

Vorrei provare a risolvere un altro problema che incontro quotidianamente sul lavoro: scaricare e rinominare file pdf.

Pensavo: è possibile con macro aprire un file pdf e rinominarlo sulla base di un elenco in colonna excel?

Che ne so, 123.pdf -----> (a1) = Giovanni ----> per diventare Giovanni.pdf?

Grazie grazie e ancora grazie!

[Anthony47]

Potresti sfruttare l' istruzione Name, ad esempio (dall' help on line del vba):

Codice: Seleziona tutto

Perc ="C:\Documents and Settings\NOME_UTENTE\Documenti\"  '<<Da personalizzare
Name (Perc & "123.pdf" As (Perc & Range("A1").value & ".pdf"


Ciao

[calculon]

Sub rinomina()
Perc = "C:\Users\Giovannino\Desktop" '<<Da personalizzare
Name (Perc & "marameo.pdf") As Perc & Range("A1").Value & ".pdf"
End Sub

errore di run-time "53"
impossibile trovare il file.

[calculon]

Sub provarinomina()

Perc = "C:\Users\Gio\Desktop\Via Genova\"
Call FileCopy(Perc & "Palermo.pdf", Perc & "Milano.pdf")
Kill (Perc & "Palermo.pdf")
End Sub

Sono emozionatissimo! è la mia prima Macro funzionanteeee!!!!

Ora vorrei chiedere a questa macro di fare questa operazione su tutte le celle, ossia:
trasforma da a1 ad a2; da b1 a b2, ecc..

Come mi consigliate di procedere?

[Anthony47]

Bravo.
Pero' se guardi bene la tua realizzazione del mio suggerimento, che "Rinomina" e non "Copia" il file, ti puoi risparmiare la Kill; inoltre il mio esempio gia' concatena la Directory con il contenuto di una cella (mentre nel tuo test funzionante hai usato nomi fissi).
Ritornando quindi a quanto ti avevo proposto (che hai realizzato con un paio di inesattezze ben visibili) lo inserirai in un ciclo del tipo For I=1 to 1000 / Next I; qualcosa del tipo

Codice: Seleziona tutto

Perc ="C:\Documents and Settings\NOME_UTENTE\Documenti\"  '<<Da personalizzare rispettando la sintassi
For I=1 to 1000 '<<< 1
If Cells(I,1)="" then exit Sub
Name (Perc & Cells(I,1).value & ".pdf" As (Perc & Cells(I,2).value & ".pdf" '<<<2
Next I


Note:
<<<1: invece di 1000 puoi usare qualsiasi valore che sia certamente superiore ai file elencati; la macro termina quando trova la prima riga vuota in col A.
<<<2: inserisci & ".pdf" se mancante in Ax e Bx

Ciao

[calculon]

FANTASTICO!!!



Fa davvero piacere pensare che da qualche parte nel mondo ci sia sempre qualcuno pronto a condividere il suo sapere...peraltro senza ricevere nulla in cambio.
Grazie Anthony.

[ricky53]

Ciao,
mi fa molto piacere leggere quanto hai scritto.

Aggiungo, sicuramente interpretando anche il pensiero di Anthony: in cambio si ha "il piacere di essere stati utili a qualcuno" e ... poi ci sono i vostri riscontri !!!

[thedregs]

Qui ho postato la mia soluzione, da profano di exel ho proposto l'uso di un programma di rinomina:
viewtopic.php?f=1&t=91721#p523504

[calculon]

Grazie anche a te per il tuo suggerimento.

[calculon]

Rieccomi anche per le vacanze a rompervi le scatole.


Perc ="C:\Documents and Settings\NOME_UTENTE\Documenti\" '<<Da personalizzare rispettando la sintassi
For I=1 to 1000 '<<< 1
If Cells(I,1)="" then exit Sub
Name (Perc & Cells(I,1).value & ".pdf" As (Perc & Cells(I,2).value & ".pdf" '<<<2
Next I

prendendo spunto da questo comando, vorrei che i miei file venissero rinominati secondo l'ordine cronologico 1,2,3 ecc..
Naturalmente vorrei che i numeri li calcolasse la macchina da sé, senza dover riempire io di volta in volta la colonna Perc & Cells(I,2).value.

Grazieeee

[Avatar3]

ma se vuoi una semplice numerazione è sufficiente modoficare questa riga da così

Codice: Seleziona tutto

Name (Perc & Cells(I,1).value & ".pdf" As (Perc & Cells(I,2).value & ".pdf" '<<<2


Codice: Seleziona tutto

Name (Perc & Cells(I,1).value & ".pdf" As Perc & format(I, "0000") & ".pdf" '<<<2


per avere i file da
0001
0002
a
0999
1000