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 < p > . 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
< p > 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
< p > 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
4
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 .
