| | Post: 2 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
  10/05/2018 13:12 | |
Come consigliato da Raffaele, sposto su una nuova discussione la mia richiesta. Ho dovuto ricavare file di simulazione perché quelli originali contengono informazioni personali.
Qui sotto la descrizione originaria.
Ho delle stringhe di nomefile come la seguente
COGNOME_MIUR.AOODR.Reg_reg_dei_decreti_direttoriali.1111.31-08-2017.pdf
e vorrei trasformarla in stringhe di nome file ...
CODICEFISCALE-COGNOME_1111.31-08-2017.pdf
Importante è il CF in testa al file.
Si tratterebbe di prendere i CF e i cognomi da un file xls o cvs (o ev. txt se serve).
Ciò di cui avrei bisogno è una sorta di "fusione di stampa" che "verificato" il cognome (nel nome del file con il cognome nel file xls/cvs), "prelevi" all'interno del file xls/cvs il codice fiscale corrispondente al nome, aggiungendolo in testa al nome del file. Il numero delle omonimie di cognome è molto ridotto e potrei gestirlo a parte.
Ho provato a fare quanto sopra con Advanced Renamer e altri programmi simili ma non sono riuscito ad individuare la funzione giusta (se esiste).
Come consigliato, allego alcuni file di simulazione.
1- I file "provvedimento" da rinominare (si tratta di file PDF che NON posso modificare) si trovano nella cartella File di partenza.
2- La lista dei nominativi con i codici fiscali e la mail per l'invio dei provvedimenti è nel file Excel. Se questa lista non fosse ottimale, posso rivederla, ad esempio potrei disgiungere cognome e nome se servisse a gestire le omonimie di cognome
3- Un esempio di file rinominato è presente nella cartella File rinominati.
Excel 2010
Giovanni |
|
| | Post: 2 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
| 10/05/2018 13:47 | |
Ora rispondo anche a guybruhs82 (in ordine di arrivo di post)
Allego il file che mi hai chiesto con due colonne, una con il nome del file originari e una con il nome del file ... come lo vorrei.
Ho aggiunto queste informazioni a quelle del file originario (post precedente), se ti danno noia toglile.
Ti ricordo che il mio problema consiste nel rinominare il nome dei file (non dei campi di Excel), prendendo le informazioni (in particolare il codice fiscale) da un file Excel, che va aggiunto in testa al nome del file corrispondente.
Tutti i file pdf sono diversi (sono nominativi) e andrebbero abbinati al corrispondente CF nel file Excel.
Grazie a te e a quanti potranno darmi una mano ![[SM=x423047]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0027.gif)
Rinominare qualche centinaio di file a manina mi lascia ... perplesso ![[SM=x423021]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0001.gif) |
| | Post: 3.437 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 10/05/2018 19:34 | |
Come da Tuo allegato, inserisci il files nella stessa directory
Ci devono essere pure le due stesse sottodirectory
Premi il bottone nelle colonne D/E appaione delle scritte (devi trovarci una soluzione)
In colonna F appaiono nomi di file, non presenti in foglio1
Quando sei a posto premi ALT+F11, verso la metà c'è una riga verde (togli il ') Excel 2013 |
| | Post: 4 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
| 10/05/2018 22:41 | |
raffaele1953, 10/05/2018 19.34:
Come da Tuo allegato, inserisci il files nella stessa directory
Ci devono essere pure le due stesse sottodirectory
Premi il bottone nelle colonne D/E appaione delle scritte (devi trovarci una soluzione)
In colonna F appaiono nomi di file, non presenti in foglio1
Quando sei a posto premi ALT+F11, verso la metà c'è una riga verde (togli il ')
Mi spiace, non capisco ![[SM=x423059]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0039.gif)
1- inserisco i file da rinominare (quindi gli originali) in una directory (insieme al file Excel?)
2- creo due subdir che si chiamano file-di-partenza e file-originali
3- in file-di-partenza metto i file già inseriti nella DIR
4- la DIR file-originali è vuota (dovrà contenere i file rinominati)
5- trascurando per il momento i due casi di quasi omonimia, cosa devo verificare nel file Excel?
6- non capisco cosa dovrei togliere nella riga verde (forse volevi indicarmi lo sfondo verde di una cella?)
Grazie. |
| | Post: 3.440 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 11/05/2018 00:59 | |
Ricominciamo da zero, creati una cartella sul desktop e mettici dentro il files che ho allegato.
Dopo nella stessa cartella, crei altre due cartelle, una col nome file-di-partenza l'altra col mome file-rinominati.
1)Adesso (COPIA, non spostarli) tutti i Tuoi PDF nella cartella file-di-partenza.
2)Apri il files Allegato (casomai dovrai abilitare le macro), selezioni colonne ABC e cancelli il contenuto. Selezioni G/H e cancelli il contenuto.
3)Apri il Tuo files originale dei CF, Selezioni la colonna dei nomi e la copy in colonna A, selezioni la colonna dei Codici fiscali e la incolli in colonna G (chiudi il Tuo files)
4)Ti posizioni sulla colonna A, excel/Dati/Testo in colonne/delimitato avanti/metti una spunta su spazio avanti/fine
5) A questo punto premi il bottone, appaiono delle scritte in D/E/F.
Colonna D) Se appare doppione = il codice non farà nulla
Colonna E) OK = il codice lo farà
Colonna F) Nome-files.pdf, nella cartella\file-di-partenza, esiste un files mà non trovo il nome in colonna A
Fino qui, il VBA ha fatto solo una prova e Ti mostra a monitor quello che può fare/non fare. Se il risultato Ti sembra giusto e desideri eseguire veramente la rinomina, premi ALT + F11.
Sulla parte destra riga27 (quella verde ='Name Path2 & Nome1 As Path3 & Nome3) gli togli l'apice iniziale (') e chiudi.
Ripremi nuovamente il bottone che riesegue il tutto.
Nella cartella file-rinominati i files rinominati.pdf
Nella cartella file-di-partenza i files rimanenti che non ha eseguito [Modificato da raffaele1953 11/05/2018 01:02] Excel 2013 |
| | Post: 5 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
| 23/05/2018 12:07 | |
raffaele1953, 11/05/2018 00.59:
Ricominciamo da zero, creati una cartella sul desktop e mettici dentro il files che ho allegato...
Mille grazie Raffaele per il tuo VBA e per la procedura. Per il momento ho fatto solo qualche prova, ma sembra che il tuo script funzioni ![[SM=x423030]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0010.gif)
Ora farò la prova del 9, con i 350 file veri e poi ti dirò.
Giovanni |
| | Post: 6 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
| 05/06/2018 10:47 | |
raffaele1953, 11/05/2018 00.59:
Ricominciamo da zero, ... Se il risultato Ti sembra giusto e desideri eseguire veramente la rinomina, premi ALT + F11.
Raffaele, ho necessità di cambiare il nome del file da riordinare. Ho alcuni file denominati solamente COGNOME.PDF (es. BIANCHI.PDF, ROSSI.PDF, VERDI.PDF ...) Mi sono accorto che se i nomi dei file da rinominare sono diversi da quelli della stringa iniziale, la macro non funziona (chiamata di routine o argomenti non validi). Pensavo di poter modificare la stringa di chiamata, riprendendo la macro ma non sono riuscito. In allegato la macro con il tentativo fatto.
Hai ancora voglia di aiutarmi?
Giovanni
[Modificato da grmail1 05/06/2018 10:55] |
| | Post: 3.516 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 05/06/2018 13:08 | |
Devo precisare una cosa...
Quando ho visto i Tuoi files d'esempio, ho notato che esisteva un numero dopo "decreti_dirett"
Pertanto il VBA era fatto a misura per quei files, mantenendo "quei numeri"
Adesso dici che sono rimasti solo alcuni file denominati solo con COGNOME.pdf (intendo cognomepuntopdf)
Da qui si deduce che non possono esistere doppioni. Metti la spunta davanti a queste righe
'Nome2 = "*.pdf"
'Nome2 = "MIUR.AOODR.Reg_reg_dei_decreti_dirett.1348.*"
6 righe sotto modifica la riga, sostituendo il _ con un punto
Nome2 = Mid(Nome1, 1, InStr(Nome1, ".") - 1)
Dovrebbe funzionare
EDIT (Rivedendo il tutto, ho sbagliato con la riga9 compreso il numero
Nome2 = "MIUR.AOODR.Reg_reg_dei_decreti_dirett.1348.*"
Doveva essere differente, mà a te adesso non serve più.) EDIT
[Modificato da raffaele1953 05/06/2018 16:01] Excel 2013 |
| | Post: 7 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
| 31/05/2019 11:54 | |
raffaele1953, 05/06/2018 13.08:
Devo precisare una cosa...
Quando ho visto i Tuoi files d'esempio, ho notato che esisteva un numero dopo "decreti_dirett"
Pertanto il VBA era fatto a misura per quei files, mantenendo "quei numeri"
Adesso dici che sono rimasti solo alcuni file denominati solo con COGNOME.pdf (intendo cognomepuntopdf)
Da qui si deduce che non possono esistere doppioni. Metti la spunta davanti a queste righe
'Nome2 = "*.pdf"
'Nome2 = "MIUR.AOODR.Reg_reg_dei_decreti_dirett.1348.*"
6 righe sotto modifica la riga, sostituendo il _ con un punto
Nome2 = Mid(Nome1, 1, InStr(Nome1, ".") - 1)
Dovrebbe funzionare
EDIT (Rivedendo il tutto, ho sbagliato con la riga9 compreso il numero
Nome2 = "MIUR.AOODR.Reg_reg_dei_decreti_dirett.1348.*"
Doveva essere differente, mà a te adesso non serve più.) EDIT
Raffaele, per cortesia, potresti risistemarmi il codice in modo che possa rinominare correttamente i file? Il nome del file originario è un po' diverso da quello dello scorso anno. Ti allego il file Excel che mi avevi predisposto e ho aggiunto sulla destra (a sfondo verde) il nome di una decina di file originali (da rinominare) e sulla destra il risultato che vorrei avere.
[Modificato da grmail1 31/05/2019 12:28] |
| | Post: 3.761 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 31/05/2019 16:54 | |
Nell'allegato esiste una Directory con due sottodirectory
Copia tutti i PDF nella sottodirectory=file-di-partenza
Avvii il files RinominaPDF.xlsm e premi elabora, ad un certo punto Ti chiede se deve rinominare? Sposta il MSGBOX in modo da visualizzare quello che farà. Decidi se premere Si oppure No
Ps. La cartella file-rinominati dovrà essere sempre vuota Excel 2013 |
| | Post: 8 | Registrato il: 11/09/2011
| Città: TORINO | Età: 61 | Utente Junior | 2010 | | OFFLINE | |
|
| 04/06/2019 13:16 | |
raffaele1953, 31/05/2019 16.54:
Nell'allegato esiste una Directory con due sottodirectory
Copia tutti i PDF nella sottodirectory=file-di-partenza
Avvii il files RinominaPDF.xlsm e premi elabora, ad un certo punto Ti chiede se deve rinominare? Sposta il MSGBOX in modo da visualizzare quello che farà. Decidi se premere Si oppure No
Ps. La cartella file-rinominati dovrà essere sempre vuota
Raffaele, la funzione funzione in circa la metà dei casi. Posso avere un tuo riferimento mail in modo da girarti il file eseguito (che contiene dati soggetti a privacy)?
|
| | Post: 3.776 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 04/06/2019 17:05 | |
Non sò cosa dirti, per me il codice è giusto
Ho provato (senza files, senza rinominare) ed sono andato sino riga 330
Se desideri (nel codice riga74) metti una spunta davanti
'Name Path2 & Nome1 As Path3 & Nome4 e riprova
Ps. L'unica cosa che puoi semplificare sono le righe 68-74 con questo r = Rr.Row
Nome1 = Cells(r, 7)
Nome2 = Cells(X, 5) & "_" & Nome1
Cells(X, 3) = Nome2
Name Path2 & Nome1 As Path3 & Nome2Excel 2013 |
|
|
|
|