Microsoft Excel är inte bara om tabelldata , beräkningar och informationshantering . Varje ivrig användare kan vända Excel till ett kraftfullt verktyg för att hantera mappar , organisera filer och hålla reda på uppgifter . Du kan skapa ett makro som använder en filedialog VBA objekt att snabbt skanna en katalog och lista dess innehåll i ett kalkylblad . Vid utförande , kommer detta makro att uppmana användarna att välja en mapp , och det kommer därefter att lista namnen på dess innehåll i en enda kolumn . Instruktioner
Skapa Makro
1
Starta Microsoft Excel . Tryck på " CTRL + O , " välj din arbetsbok och klicka sedan på " Öppna". Om du vill skapa en ny arbetsbok i stället , tryck "Ctrl + N. "
2
Tryck "ALT + F8 " för att öppna dialogrutan Makron . Typ " GetFolderContents " i makrot namnet rutan och klicka sedan på " Skapa ".
3
Skriv följande kod i VBA editorn .
Sub GetFolderContents ()
Dim xDir , xFilename , f , FSO As Object
Set FSO = CreateObject ( " Scripting.FileSystemObject " ) katalog
Application.FileDialog ( msoFileDialogFolderPicker ) katalog
. InitialFileName = ThisWorkbook.Path & " \\ "
. Titel = " Välj en mapp för att lista filer från "
. AllowMultiSelect = False
. Visa
p Om . SelectedItems.Count < > 0 Then
xDir = . selectedItems ( 1 ) & " \\ "
End If
End With
p Om ( MsgBox ( Prompt : = " ? Vill du inkludera undermappar namn " , _
Knappar: = vbYesNo , Titel : = " inkludera undermappar " ) = vbYes ) Sen
GoTo ListFolders
GoTo ListFiles
Else
GoTo ListFiles
End If
ListFolders :
For Each f I fso.GetFolder ( xDir ) . undermappar
ActiveCell.Value = ".. \\ " & f.Name
ActiveCell.Offset ( 1 , 0 ) . Välj
Nästa f
ListFiles :
För varje f I fso.GetFolder ( xDir ) Filer
ActiveCell.Value = f.Name
ActiveCell . . offset ( 1 , 0 ) . Välj
Nästa f
Set FSO = Nothing
End Sub
4
Tryck " ALT + Q " att stänga VBA editorn och återgå till arbetsboken . Addera Använda Macro
5
Markera en cell i tabellen . Tryck " ALT + I " och sedan " C " för att skapa en tom kolumn . Markera den första cellen i den nya kolumnen . Om du vill visa listan i ett nytt kalkylblad i stället , trycka "Shift + F11 . "
6
Tryck " ALT + F8 " för att öppna dialogrutan Makron . Välj " GetFolderContents " och klicka sedan på " Kör ".
7
Välj den mapp eller katalog som du vill visa innehållet . Klicka på " OK . "
8
Klicka på " Ja " om du vill att makrot att även lista namnen på undermappar , eller klicka på " Nej " för att lista filer. Vänta Excel till slut fylla den nya kolumnen med innehållet i din valda mappen .
