Come utilizzare Excel Filedialog ottenere l'elenco dei file di una directory

Microsoft Excel non è solo dati tabulari , calcoli e la gestione delle informazioni . Qualsiasi utente appassionato può trasformare Excel in un potente strumento per la gestione delle cartelle , organizzare i file e tenere traccia delle attività . È possibile creare una macro che utilizza un oggetto FileDialog VBA per eseguire la scansione in modo rapido una directory ed elencare il suo contenuto in un foglio di calcolo . Al momento dell'esecuzione, questa macro viene richiesto agli utenti di scegliere una cartella , e sarà successivamente elencare i nomi dei suoi contenuti in una singola colonna .
Istruzioni Creazione della Macro
1

Avviare Microsoft Excel . Premere il tasto " CTRL + O ", selezionare la cartella di lavoro e quindi fare clic su "Apri ". Per creare una nuova cartella di lavoro , invece , premere " CTRL + N."
2

Comunicati "Alt + F8 " per aprire la finestra di dialogo Macro . Tipo " GetFolderContents " nella casella Nome macro e quindi fare clic su "Crea ".
3

Inserisci il seguente codice nell'editor di VBA .

GetFolderContents sub ()

Dim xDir , xFilename , f , fso As Object

Set fso = CreateObject ( " Scripting.FileSystemObject " ) per

Application.FileDialog ( msoFileDialogFolderPicker ) per

. InitialFileName = ThisWorkbook.Path & "\\"

. Title = "Seleziona una cartella per elencare i file da"

. AllowMultiSelect = False

. Visualizza

. SelectedItems.Count < > 0 Then

xDir = . SelectedItems ( 1 ) & " \\ "

End If End With

( MsgBox ( Prompt : = " ? Vuoi includere i nomi delle sottocartelle " , _

Buttons : = vbYesNo , Title : = " Includi sottocartelle " ) = vbYes ) Poi

GoTo ListFolders

GoTo ListFiles

Else

GoTo ListFiles

End If

ListFolders :

For Each f In fso.GetFolder ( xDir ) . SubFolders

ActiveCell.Value = " .. \\ " & f.Name

ActiveCell.Offset ( 1 , 0 ) . Select

Avanti F

ListFiles :

For Each f In fso.GetFolder ( xDir ) File

ActiveCell.Value = f.Name

. ActiveCell . Offset ( 1 , 0 ) . Selezionare

Avanti f

Set fso = Nothing End Sub

Premere " ALT + Q " per chiudere l'editor di VBA e tornare alla cartella di lavoro .
Utilizzo della macro
5

Evidenziare una cella nel foglio . Premere il tasto " ALT + I" e poi " C " per creare una colonna vuota . Selezionare la prima cella della nuova colonna . Se vuoi visualizzare la lista in un nuovo foglio di lavoro , invece , premere il tasto " MAIUSC + F11 . "
6

Press "ALT + F8 " per aprire la finestra di dialogo Macro . Seleziona " GetFolderContents " e quindi fare clic su "Esegui ".
7

Selezionare la cartella o la directory da cui vuoi elencare il contenuto . Fare clic su " OK ".
8

Clicca su "Sì" se vuoi la macro per elencare anche i nomi dei sotto-cartelle , o fare clic su " No" per elencare solo i file . Attendere Excel per finire popolando la nuova colonna con il contenuto della cartella selezionata .