If Excel ønsker du å få alle mappenavn fra en bestemt mappe, kan følgende VBA-kode hjelpe deg, kan du gjøre som dette:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode inn i modulen Window
VBA-kode:. List alle mapper og undermappe navn
Sub FolderNames () 'Oppdater 20141027Application.ScreenUpdating = FalseDim XPath Som StringDim xWs Som WorksheetDim FSO As Object, j As Lange, mappe1 Som ObjectWith Application.FileDialog (msoFileDialogFolderPicker) .Title = "Velg mappen" .ShowEnd WithOn Error Resume NextxPath = Application.FileDialog (msoFileDialogFolderPicker) .SelectedItems (1) & "\\" Application.Workbooks.AddSet xWs = Application.ActiveSheetxWs.Cells (1, 1) .Value = xPathxWs.Cells (2, 1) .Resize (1, 5) .Value = Array ("Path", "dir" "Name", "Date Laget", "Date Sist endret") Set FSO = Create ("Scripting.FileSystemObject") Set mappe1 = fso.getFolder (xPath) getSubFolder folder1xWs.Cells (2, 1) .Resize (1, 5) .Interior.Color = 65535xWs.Cells (2, 1) .Resize (1, 5) .EntireColumn.AutoFitApplication.ScreenUpdating = TrueEnd SubSub getSubFolder (ByRef prntfld As Object) Dim undermappe som ObjectDim subfld Som ObjectDim xRow Som LongFor hver undermappe I prntfld.SubFolders xRow = Range ("A1"). End (xlDown) .Row + 1 Cells (xRow, 1) .Resize (1, 5) .Value = Array (SubFolder.Path, Venstre (SubFolder.Path, InStrRev (SubFolder.Path, "\\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified) Neste SubFolderFor Hver subfld I prntfld.SubFolders getSubFolder subfldNext subfldEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en Velg mappen vindu vil komme ut, så må du velge mappen du vil mappelisten og undermappe navn, se skjermbilde:
4. Klikk OK, og du vil få mappen og undermapper banen, katalog, navn, opprettet dato og sist endret dato i en ny arbeidsbok, se skjermbilde: