Microsoft Excel er ikke kun om tabelform data, beregninger og information management . Enhver ivrig bruger kan slå Excel til et kraftfuldt værktøj til styring af mapper, organisering af filer og holde styr på opgaver. Du kan oprette en makro , der bruger en filedialog VBA objekt for hurtigt at scanne en mappe og liste dens indhold i et regneark . Ved udførelsen vil denne makro få brugerne til at vælge en mappe, og det vil efterfølgende liste navnene på dens indhold i en enkelt kolonne . Instruktioner
Oprettelse Macro
1

Start Microsoft Excel. Tryk på " CTRL + O ", vælge din projektmappe , og klik derefter på " Åbn". Hvis du vil oprette en ny projektmappe men tryk " CTRL + N. "
2

Tryk " ALT + F8 " for at åbne dialogboksen Makroer . Type " GetFolderContents " i boksen Makronavn og derefter klikke på "Opret ".
3

Indtast følgende kode i VBA editoren .

Sub GetFolderContents () < br >

Dim xDir , xFilename , f, FSO As Object

Set FSO = CreateObject ( " Scripting.FileSystemObject " )

Application.FileDialog ( msoFileDialogFolderPicker )
< p > . InitialFileName = ThisWorkbook.Path & "\\ "

. Title = " Vælg en mappe til listen af filer fra "

. AllowMultiSelect = False

. Vis

Hvis . SelectedItems.Count < > 0 Then

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

End If

End With

Hvis ( MsgBox ( Prompt : = " ? du ønsker at inkludere undermappe navne " , _

Knapper : = vbYesNo , Title : = " Medtag undermapper " ) = vbYes ) Så
< 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) . Select
< p > Næste f

ListFiles :

For Each f In fso.GetFolder ( xDir ) Filer

ActiveCell.Value = f.Name

ActiveCell . . offset (1, 0) . Vælg

Next f

Set FSO = Nothing

End Sub
4

Tryk på " ALT + Q" at lukke VBA editor og vende tilbage til din projektmappe .
bruge Macro
5

Fremhæv en celle i dit ark. Tryk på " ALT + I " og derefter "C" for at oprette en tom kolonne . Vælg den første celle i den nye kolonne . Hvis du gerne vil vise listen i et nyt regneark i stedet , tryk på " SHIFT + F11 ".
6

Tryk på " ALT + F8 " for at åbne dialogboksen Makroer . Vælg " GetFolderContents " , og klik derefter på " Run ".
7

Vælg den mappe eller mappe , som du gerne vil vise indholdet . Klik på " OK".
8

Klik på "Ja ", hvis du gerne vil makroen til også liste navnene på undermapper , eller klik på "Nej " for at liste filer alene. Vent til Excel til slut befolker den nye kolonne med indholdet af din valgte mappe .