Condividi tramite

Rinominare File contenuti in una cartella con nomi presi da File Excel

Anonimo
2024-03-21T10:23:18+00:00

Buongiorno vi chiedo aiuto per questa necessità.

Vorrei Rinominare i file presenti in una cartella con un nome "evocativo"

Associazione Nome file attuale ( formato alfanumerico) e quello nuovo ( data.pdf) sono contenuti in un file excel

592ff202-3100-4303-ba07-d2d6805b92f1.pdf 01-12-2006.pdf
3d5e59db-2b9e-4683-9375-36cb782d767a.pdf 04-12-2006.pdf
234c84a8-f73c-46a7-940d-50dd9a164f80.pdf 05-12-2006.pdf
0e375dbc-f968-4b88-99cc-980ec371fda1.pdf 06-12-2006.pdf

Potete darmi una dritta?

grazie infinite

Luca

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti
Risposta accettata dall'autore della domanda
  1. Anonimo
    2024-03-21T16:06:27+00:00

    Ciao Luca,

    il codice dovrebbe essere questo:

    Sub RenameFiles()

    'Updateby20141124

    Dim xDir As String

    Dim xFile As String

    Dim xRow As Long

    With Application.FileDialog(msoFileDialogFolderPicker) 

       .AllowMultiSelect = False 

  If .Show = -1 Then 

     xDir = .SelectedItems(1) 

     xFile = Dir(xDir & Application.PathSeparator & "\*") 

     Do Until xFile = "" 

         xRow = 0 

         On Error Resume Next 

         xRow = Application.Match(xFile, Range("A:A"), 0) 

         If xRow > 0 Then 

             Name xDir & Application.PathSeparator & xFile As \_ 

             xDir & Application.PathSeparator & Cells(xRow, "B").Value 

         End If 

         xFile = Dir 

     Loop 

  End If

    End With

    End Sub

    1 persona ha trovato utile questa risposta.
    0 commenti

9 risposte aggiuntive

Ordina per: Più utili
Più utili Più recente Meno recente
  1. Anonimo
    2024-03-21T12:25:05+00:00

    https://www.reddit.com/r/excel/comments/14dzo1t/how_do_i_batch_rename_files_with_names_from_an/

    Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

    0 commenti
  2. Anonimo
    2024-03-21T12:20:35+00:00

    Oh scusa Luca, la traduzione è automatica dal mio testo originale in inglese

    Si prega di provare questo link, ci sono alcune formule relative condivise nel forum

    https://techcommunity.microsoft.com/t5/excel/how-to-rename-file-names-from-an-excel-cell/m-p/*******

    Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

    0 commenti
  3. Anonimo
    2024-03-21T12:03:53+00:00

    Scusa, puoi postare il codice originale per poterlo utilizzare?

    Grazie.

    Luca

    [tradotto il post]

    0 commenti
  4. Anonimo
    2024-03-21T11:12:55+00:00

    Ciao Luca

    Grazie per averci contattato.

    Ecco come modificare e rinominare in blocco i file tramite Excel utilizzando gli script VBA:

    Ottieni i nomi dei file dalla cartella tramite Excel. In Excel attenersi alla seguente procedura:

    Scheda Dati in alto > Ottieni > dati da file > da cartella (seleziona la cartella con i file che desideri modificare)

    Nella finestra che si apre mostrando i file nella cartella selezionata, fai clic su Trasforma dati (questo ti consentirà di selezionare solo i dati effettivi che desideri (come il nome dei file o qualsiasi altro metadato che hai collegato ai file)

    2.

    con i tuoi file nella colonna A del tuo foglio, inserisci i nomi in cui desideri modificare i file

    Ad esempio

    colonna A = nomi dei file originali

    colonna B = nuovi nomi di file

    Quando si rinominano i file, è importante aggiungere anche le estensioni dei file alla fine dei nuovi nomi dei file, altrimenti i file saranno vuoti/non riconosciuti.

    3.

    ora per rinominarli, ti consigliamo di selezionare la scheda Sviluppatore in alto (se non riesci a vedere la scheda Sviluppatore, cercalo su Google)

    Nella scheda Sviluppo fare clic su Visual Basic

    Una volta visualizzata la finestra popup per Visual Basic, fare clic su Inserisci, quindi su Modulo, quindi copiare e incollare questo codice nella casella di testo visualizzata:

    Sub RenameFiles() 'Updateby20141124 Dim xDir come stringa Dim xFile come stringa Dim xRow fino a lungo Con Application.FileDialog(msoFileDialogFolderPicker) . AllowMultiSelect = False Se. Mostra = -1 Allora xDir = . SelectedItems(1) xFile = Dir(xDir & Application.PathSeparator & "*") Eseguire fino a xFile = "" xRow = 0 In caso di errore Riprendi successivo xRow = Application.Match(xFile, Range("A:A"), 0) Se xRow > 0 allora Nome xDir & Application.PathSeparator & xFile As _ xDir & Application.PathSeparator & Cells(xRow, "B"). Valore Fine se xFile = Dir Ciclo Fine se Termina con Fine sottomarino Salva quel modulo (ti consigliamo di usarlo in seguito quando vorrai rinominare nuovamente i file)

    4.

    Con il modulo salvato, i nomi dei file originali e i nuovi nomi dei file nelle colonne corrette (A e B), eseguire lo script Macro/Modulo/VBA facendo clic sul pulsante verde Riproduci vicino alla parte superiore o semplicemente premendo F5.

    Se hai fatto tutto correttamente, tutti i file dovrebbero essere rinominati

    Suggerirei di fare prima solo pochi file, solo per essere sicuri di farlo bene, quindi una volta fatto basta andare per la modifica in blocco.

    Spero che questo aiuti.

    Miglior

    Shannah

    Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

    0 commenti