Kako vse datoteke v mapi in podmapah našteti na delovnem listu?

Ste že kdaj poskušali vsa imena datotek iz mape uvrstiti na delovni list, vključno z datotekami v njegovih podmapah? Dejansko ne moremo neposredno našteti imen datotek iz mape in njene podmape v Excelu, danes pa bom predstavil nekaj hitrih trikov za rešitev tega posla.

Seznam vseh imen datotek v mapi in podmapi s kodo VBA

S Kutools za Excel hitro in enostavno navedite vsa imena datotek v mapi in podmapi

Seznam vseh imen datotek v mapi in podmapi s kodo VBA

Običajno Excel nima vgrajene funkcije za reševanje te naloge, vendar lahko za dokončanje te težave uporabite naslednjo kodo VBA.

1. Aktivirajte nov delovni list, v katerem bodo navedena imena datotek.

2. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: navedite vsa imena datotek v mapi in podmapi

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. Po lepljenju kode v modul pritisnite F5 tipko za zagon te kode in a Makri odpre se pogovorno okno, izberite Glavni seznam ime makra in nato kliknite Run gumb, glej posnetek zaslona:

5. In v Brskanje okno, izberite mapo, v katero želite našteti vsa imena datotek, vključno s podmapami, glejte sliko zaslona:

6. Po določitvi mape kliknite OK in vsa imena datotek v mapi in njenih podmapah so navedena v trenutnem delovnem listu iz celice A2, glejte posnetke zaslona:

S Kutools za Excel hitro in enostavno navedite vsa imena datotek v mapi in podmapi

Z zgornjo kodo lahko samo navedete imena datotek, včasih pa morate navesti tudi druge atribute, kot so velikost datoteke, vrsta datoteke, ustvarjeni čas, mapa in tako naprej. Kutools za Excel vsebuje uporabno funkcijo - Seznam imen datotek, s to funkcijo lahko hitro navedete vse ali določene vrste imen datotek v mapi in njenih podmapah.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Podjetje > Uvozno-izvoznih > Seznam imen datotek, glej posnetek zaslona:

2. v Seznam imen datotek v pogovornem oknu izvedite naslednje postopke:

A: Kliknite gumb, da izberete mapo, v katero želite navesti imena datotek;

B: Določite vrsto datoteke, ki jo želite na seznamu Vrsta datotek odsek;

C: Med enotami izberite enoto velikosti datoteke, ki jo želite prikazati Enota velikosti datoteke oddelek.

Opombe: Če želite seznam imen datotek izvesti v podmapi, preverite Vključi datoteke v podimenike, lahko tudi preverite Vključi skrite datoteke in mape kot rabiš. Če preverite Ustvari hiperpovezave možnost bo ustvarila hiperpovezave za vsa imena datotek in map.

Prenesite in brezplačno preskusite zdaj!

3. Nato kliknite OK , so vse datoteke v izbrani mapi in njenih podmapah prikazane z naslednjimi atributi na novem delovnem listu. Oglejte si posnetek zaslona:

Kliknite, če želite izvedeti več podrobnosti o tem pripomočku Seznam imen datotek.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

Predstavitev: s Kutools za Excel navedite vsa imena datotek v mapi in podmapi

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...