Come elencare tutti i file nella cartella e nelle sottocartelle in un foglio di lavoro?
Hai mai provato a elencare tutti i nomi di file da una cartella in un foglio di lavoro inclusi i file che si trovano nelle sue sottocartelle? In effetti, non esiste un modo diretto per elencare i nomi di file da una cartella e dalla sua sottocartella in Excel, tuttavia, oggi introdurrò alcuni trucchi rapidi per risolvere questo lavoro.
Elenca tutti i nomi di file nella cartella e nella sottocartella con il codice VBA
Elenca tutti i nomi di file nella cartella e nella sottocartella in modo rapido e semplice con Kutools per Excel
Elenca tutti i nomi di file nella cartella e nella sottocartella con il codice VBA
Normalmente, Excel non ha funzionalità integrate per gestire questa attività, ma è possibile applicare il seguente codice VBA per completare questo problema.
1. Attiva un nuovo foglio di lavoro che elencherà i nomi dei file.
2. Tieni premuto il ALT + F11 chiavi in Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.
3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.
Codice VBA: elenca tutti i nomi di file nella cartella e nella sottocartella
Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
4. Dopo aver incollato il codice nel modulo, premere F5 chiave per eseguire questo codice e un file Macro si apre la finestra di dialogo, selezionare il file Elenco principale nome della macro, quindi fare clic su Correre pulsante, vedi screenshot:
5. E nella Scopri la nostra gamma di prodotti finestra, seleziona la cartella in cui desideri elencare tutti i nomi di file comprese le sottocartelle, vedi screenshot:
6. Dopo aver specificato la cartella, fare clic su OK pulsante e tutti i nomi di file nella cartella e le sue sottocartelle sono stati elencati nel foglio di lavoro corrente dalla cella A2, vedere screenshot:
 |
 |
 |
Elenca tutti i nomi di file nella cartella e nella sottocartella in modo rapido e semplice con Kutools per Excel
Con il codice sopra, puoi semplicemente elencare i nomi dei file, a volte, devi elencare altri attributi, come la dimensione del file, il tipo di file, l'ora di creazione, la cartella contenente e così via. Kutools for Excel contiene una funzione utile - Elenco nomi file, con questa funzione è possibile elencare rapidamente tutti o specifici tipi di nomi di file in una cartella e nelle sue 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, eseguire i seguenti passaggi:
1. Clic Impresa > Importa ed esporta > Elenco nomi file, vedi screenshot:
2. Nel Elenco nomi file finestra di dialogo, eseguire le seguenti operazioni:
A: Fare clic su 
pulsante per scegliere la cartella in cui si desidera elencare i nomi dei file;
B: Specificare il tipo di file che si desidera elencare dal file Tipo di file sezione;
C: Selezionare un'unità di dimensione del file che si desidera visualizzare dal file Unità dimensione file .
Note:: Per elencare i nomi dei file dalla sottocartella, controllare Includi file nelle sottodirectory, puoi anche controllare il file Includi file e cartelle nascosti di cui hai bisogno. Se controlli Crea collegamenti ipertestuali opzione, creerà collegamenti ipertestuali per ogni nome di file e cartella.
3. Quindi fare clic OK pulsante, tutti i file contenuti nella cartella selezionata e le sue sottocartelle sono stati visualizzati con i seguenti attributi in un nuovo foglio di lavoro. Vedi screenshot:
Fare clic per conoscere ulteriori dettagli su questa utility Elenco nomi file.
Scarica e prova gratuitamente Kutools per Excel ora!
Demo: elenca tutti i nomi di file nella cartella e nella sottocartella con Kutools per Excel
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!
