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 > Modulie incolla il codice seguente nel file Moduli 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:
Suggerimenti:: 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
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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 ogni giorno centinaia di clic del mouse!
