Come importare più nomi di file nelle celle in Excel?
Supponendo 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 richiederà molto tempo, in questo articolo parlerò di 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 può aiutarti a importare i nomi dei file, le estensioni dei file e il nome della cartella nelle celle del foglio di lavoro, esegui i seguenti passaggi:
1. Avvia un nuovo foglio di lavoro in cui desideri importare i nomi dei file.
2. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
3. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.
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. Quindi premere F5 chiave per eseguire questo codice e nella finestra Sfoglia spuntata, scegli la cartella in cui desideri importare il modulo dei nomi dei file, vedi screenshot:
5. E poi clicca OK pulsante, e otterrai il seguente risultato:
Note:： Se sono presenti sottocartelle all'interno della cartella specifica, i nomi dei file nelle sottocartelle 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 nella cartella che nelle sottocartelle, non preoccuparti, con Kutools for Excel'S Elenco nomi file utility, puoi facilmente importare tutti i nomi dei file nella cartella specifica comprese le sottocartelle.
| Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, si prega di fare come segue:
1. Clic Kutools Plus> Importa ed esporta > Elenco nomi file, vedi screenshot:
2. Nel Elenco nomi file finestra di dialogo, eseguire le seguenti operazioni:
(1.) Fare clic su 
pulsante per selezionare la cartella con i file che si desidera importare;
(2.) Controllare Includi file nelle sottodirectory importare i nomi dei file delle sottocartelle;
(3.) Specificare il tipo di file che si desidera importare in Tipo di file sezione;
(4.) Selezionare un'unità di dimensione del file che si desidera visualizzare dal file Unità dimensione file sezione;
(5.) Se vuoi collegare i nomi dei file e le cartelle, controlla Crea collegamenti ipertestuali opzione.
3. Dopo aver terminato le impostazioni, fare clic su OK pulsante, ei nomi dei file sia nella cartella che nelle sottocartelle vengono importati in un nuovo foglio di lavoro come mostrato nella seguente schermata:
Tip: Se desideri importare solo un nome di file di tipo specificato da una cartella specifica, puoi controllare Specificare opzione nel Elenco nomi file finestra di dialogo e digitare l'estensione del file al suo interno, quindi importerà solo i nomi di file del tipo specificato sia dalla cartella che dalle sottocartelle.
Fare clic per saperne di più su questa funzione Elenco nomi file ...
Scarica e prova gratuitamente Kutools per Excel ora!
Demo: importa più nomi di file nelle celle del foglio di lavoro con Kutools per Excel
Articoli correlati:
Come elencare tutti i file nella cartella e nelle sottocartelle in un foglio di lavoro?
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
