Come si fa a importare più nomi di file direttamente nelle celle di Excel?
Supponiamo che tu abbia una cartella con centinaia di file e ora desideri importare questi nomi di file nelle celle di un foglio di lavoro. Copiare e incollare uno per uno richiederebbe molto tempo; in questo articolo illustrerò alcuni trucchi rapidi per aiutarti a importare più nomi di file da una cartella in un foglio di lavoro.
Importa più nomi di file nelle celle del foglio di lavoro con codice VBA
Importa più nomi di file nelle celle del foglio di lavoro con Kutools per Excel
Importa più nomi di file nelle celle del foglio di lavoro con codice VBA
Il seguente codice VBA ti permette di importare nomi dei file, estensioni e nome della cartella direttamente nelle celle del foglio di lavoro. Procedi come segue:
1. Apri la cartella di lavoro Nuovo foglio di lavoro in cui desideri importare i nomi dei file.
2. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
3. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del Modulo.
Codice VBA: Importa più nomi di file nelle celle del foglio di lavoro
Sub GetFileList()
'updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Folder name"
ActiveSheet.Cells(1, 2) = "File name"
ActiveSheet.Cells(1, 3) = "File extension"
i = 1
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
Next
End Sub
4.Premi quindi il tasto F5per eseguire questo codice; nella finestra di dialogo Sfoglia che compare, scegli la cartella da cui desideri importare i nomi dei file, vedi screenshot:
5. Clicca quindi sul pulsante OK e otterrai il risultato seguente:
Nota：se nella cartella specificata sono presenti sottocartelle, i nomi dei file al loro interno non verranno importati.
Importa più nomi di file nelle celle del foglio di lavoro con Kutools per Excel
Se devi importare i nomi dei file sia dalla cartella principale che dalle sottocartelle, non preoccuparti: con lo strumento Kutools per Excel’s Elenco nomi file puoi importare facilmente tutti i nomi dei file nella cartella specificata, incluse le sottocartelle.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Fai clic su KUTOOLS PLUS > Importa/Esporta > Elenco nomi file, vedi screenshot:
2. Nella finestra di dialogo Elenco nomi file, esegui le seguenti operazioni:
(1.) Fai clic sul pulsante 
per selezionare la cartella contenente i file da importare;
(2.) Seleziona l'opzione Includi file nelle sottodirectoryper importare anche i nomi dei file presenti nelle sottocartelle;
(3.) Specifica il Tipo di file che desideri importare nella sezione Tipo di file;
(4.) Seleziona uno Unità di dimensione file da visualizzare nella sezione Unità di dimensione file;
(5.) Se desideri creare collegamenti ipertestuali per i nomi dei file e delle cartelle, seleziona l’opzione Crea collegamento ipertestuale.
3. Al termine delle impostazioni, fai clic sul pulsante OK e i nomi dei file presenti nella cartella e nelle relative sottocartelle verranno importati in un nuovo foglio di lavoro, come mostrato nello screenshot seguente:
Suggerimenti: se desideri importare solo i nomi dei file di un tipo specifico da una determinata cartella, seleziona l'opzione Specifica nella finestra di dialogo Elenco nomi file, digita l'estensione del file e verranno importati soltanto i nomi dei file del tipo specificato, sia dalla cartella principale che dalle sottocartelle.
Scarica e prova gratuitamente Kutools per Excel oggi stesso!
Articoli correlati:
Come elencare tutti i file in una cartella e nelle relative sottocartelle in un foglio di lavoro?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi