Microsoft Excel is niet alleen over tabelvorm gegevens, berekeningen en informatiebeheer. Een fervent gebruiker kan Excel veranderen in een krachtig hulpmiddel voor het beheren van mappen, bestanden organiseren en het bijhouden van taken. U kunt een macro maken die een FileDialog VBA-object gebruikt om snel te scannen van een map en de inhoud ervan in een werkblad lijst. Uitvoering, deze macro zal gebruikers vragen om een map kiezen, en er zal vervolgens een lijst van de namen van de inhoud ervan in een enkele kolom.
De Macro maken
Microsoft Excel start. Druk op "CTRL + O," Selecteer uw werkmap en klik vervolgens op "Open." Als u wilt een nieuwe werkmap in plaats daarvan maken, druk op "CTRL + N".
Druk op 'ALT + F8"te openen van het dialoogvenster macro's. "GetFolderContents" typt in het vak Macronaam en klik op "Create".
Voer de volgende code in de VBA-editor.
Sub GetFolderContents()
Dim xDir, xFilename, f, fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Met Application.FileDialog(msoFileDialogFolderPicker)
. InitialFileName = ThisWorkbook.Path & "\"
. Titel = "Kies een map aan de lijst met bestanden uit"
. AllowMultiSelect = False
. Toon
Als. SelectedItems.Count <> 0 Then
xDir = .SelectedItems(1) & "\" End If
Eindigen met
Als (MsgBox (Prompt: = "Wilt u submappen bevatten?", _
Buttons: = vbYesNo, titel: = "Inclusief onderliggende mappen") = vbYes) dan
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 Next f
ListFiles:
For Each f In fso.GetFolder(xDir).Files ActiveCell.Value = f.Name ActiveCell.Offset(1, 0).Select Next f
Set fso = niets
End Sub
Druk op 'ALT + Q"naar de VBA-editor sluiten en terugkeren naar uw werkmap.
Met behulp van de Macro
Selecteer een cel in uw werkblad. Druk op ' ALT + ik "en vervolgens"C"tot het maken van een lege kolom. Selecteer de eerste cel in de kolom Nieuw. Als u weergeven van de lijst in een nieuw werkblad in plaats daarvan wilt, drukt u op "SHIFT + F11 te drukken."
Druk op 'ALT + F8"te openen van het dialoogvenster macro's. Selecteer "GetFolderContents" en vervolgens tikken voort "Stormloop."
Selecteer de map of de map waaruit u wilt weergeven van de inhoud. Klik op 'OK'.
Klik op "Ja" als u de macro ook de namen van sub-omslagen een lijst dat wilt, of klik op "Nee" tegen alleen lijst bestanden. Wachten voor Excel wil bevolken de nieuwe kolom met de inhoud van uw geselecteerde omslag.
- Macro's zijn standaard uitgeschakeld in Microsoft Excel. Om hen in staat stellen, klik op de Microsoft Office-knop en ga naar "Excel Options." Zorgen dat "Show Developer tab" wordt gecontroleerd. Ga naar "Trust Center" en klik vervolgens op "Instellingen Vertrouwenscentrum." Ga naar "Macro-instellingen" en kies "Alle macro's inschakelen." Klik op "OK" in beide vensters, alle open werkmappen opslaan en start Excel.