Microsoft Excel handler ikke bare om tabellform data, beregninger og informasjonshåndtering. Noen ivrig bruker kan slå Excel til et kraftig verktøy for å administrere mappene , organisering av filer og holde oversikt over oppgaver . Du kan lage en makro som bruker en FileDialog VBA objekt raskt skanne en katalog og liste innholdet i et regneark . Ved utførelsen vil denne makroen be brukerne å velge en mappe , og det vil deretter føre opp navnene på innholdet i en enkelt kolonne. Instruksjoner
Opprette Makro
en

Start Microsoft Excel. Trykk "CTRL + O ", velg arbeidsboken , og klikk deretter på " Åpne". For å opprette en ny arbeidsbok i stedet , trykker " CTRL + N. "
2

Trykk "Alt + F8 " for å åpne dialogboksen Makroer . Type " GetFolderContents " inn i makro -boksen , og klikk deretter på " Create ".
3

Skriv inn følgende kode i VBA editor.

Gå GetFolderContents ()

Dim xDir , xFilename , f, fso som objekt

Set FSO = CreateObject ( " Scripting.FileSystemObject ")
p Med Application.FileDialog ( msoFileDialogFolderPicker )
< p > . InitialFileName = ThisWorkbook.Path & " \\"

. Tittel = " Velg en mappe for å vise filer fra "

. AllowMultiSelect = False

. Vis

If. SelectedItems.Count < > 0 Then

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

End Hvis

End With
p Hvis ( MsgBox ( Prompt : = " ? Har du ønsker å inkludere undermapper navn " , _

Knapper: = vbYesNo , Tittel : = " Inkluder undermapper ") = vbYes ) Da
< p > GoTo ListFolders

GoTo listfiles

Else

GoTo listfiles

End If

ListFolders :

For Each f I fso.GetFolder ( xDir ) . undermapper

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

ActiveCell.Offset ( 1 , 0 ) . Velg
< p > Neste f

listfiles :

for hver f I fso.GetFolder ( xDir ) filer

ActiveCell.Value = f.Name

ActiveCell . . offset ( 1 , 0 ) . Velg

Neste f

Set FSO = Ingenting

End Sub
4

Trykk " ALT + Q" å lukke VBA editor og gå tilbake til arbeidsboken.
Bruke Makro
5

Merk en celle i arket ditt . Trykk " ALT + I" og deretter "C " for å opprette en tom kolonne. Velg den første cellen i den nye kolonnen . Hvis du vil vise listen i et nytt regneark i stedet , trykk " SHIFT + F11 . "
6

Trykk " ALT + F8 " for å åpne dialogboksen Makroer . Velg " GetFolderContents " og klikk på " Run . "
7

Velg mappen eller katalogen som du ønsker å vise innholdet . Klikk på " OK ".
8

Klikk på " Ja" hvis du vil at makroen også liste opp navn på undermapper , eller klikk på " Nei" for å liste filer. Vent til Excel for å fullføre fylle den nye kolonnen med innholdet i din valgte mappen .