Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet felsorolni az összes mappát és almappát az Excelben?

Szenvedte már ezt a problémát, amely egy megadott könyvtár összes mappáját és almappáját egy munkalapba sorolja? Az Excel alkalmazásban nincs gyors és praktikus módszer arra, hogy egyszerre megkaphassa az összes mappa nevét egy adott könyvtárban. A feladat kezeléséhez ez a cikk segíthet.

Sorolja fel az összes mappát és almappát VBA kóddal

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Sorolja fel az összes mappát és almappát VBA kóddal

Ha az összes mappanevet egy megadott könyvtárból szeretné megszerezni, a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Sorolja fel az összes mappát és almappanevet

Sub FolderNames()
'Update 20141027
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choose the folder"
    .Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
    xRow = Range("A1").End(xlDown).Row + 1
    Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
    getSubFolder subfld
Next subfld
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a Válassza ki a mappát ablak megjelenik, majd ki kell választania azt a könyvtárat, amelybe fel kívánja sorolni a mappák és almappák nevét, lásd a képernyőképet:

doc-list-mappa-nevek-1

4. Kattints OK, és megkapja a mappa és az almappák elérési útját, könyvtárát, nevét, létrehozási dátumát és utoljára módosított dátumát egy új munkafüzetben, lásd a képernyőképet:

doc-list-mappa-nevek-1


Kapcsolódó cikk:

Hogyan lehet egy könyvtárban lévő fájlokat felsorolni az Excel munkalapjára?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (18)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen. A cmd promptot használtam, hogy legyen txt a mappáimmal, majd bemásoltam excelbe, de most megkönnyíted a dolgomat :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi van akkor, ha létre kell hoznom a linket a mappához is, mit kell módosítanom a kódolásban, és nem hozhatunk létre gombot és nem kapcsolhatjuk hozzá ugyanazt a kódot, így hasznos lesz azoknak a felhasználóknak, akik nem tudják, hogyan kell makrókat futtatni
A weboldal moderátora ezt a megjegyzést minimalizálta
Pontosan azt tettem, amit kértél. Elhelyeztem a cégem logóját a whorksheet-en, majd jobb gombbal rákattintottam és hozzárendeltem egy makrót (ami a fenti kód.) Beilleszthetem a használati utasításokat is.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a kód valóban megmentette a napot. Köszönöm, hogy megosztottad.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló! Csak követtem az utasításait, de hibaüzeneteket kapok, amikor lenyomom az F5 billentyűt a futáshoz. Az alábbi hiba kiemeli a „Dim xWs As Worksheet” elemet. Van frissített kód, amit használhatok? Fordítási hiba: A felhasználó által megadott típus nincs megadva
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Szia! Most követtem az utasításaidat, de hibákat kapok, amikor lenyomom az F5 billentyűt a futáshoz. Az alábbi hiba kiemeli a „Dim xWs As Worksheet” elemet. Van frissített kód, amit használhatok? Fordítási hiba: A felhasználó által megadott típus nincs megadvaCaralyn által[/quote] A Kutools kiegészítőt vagy az MS Excel VBA szerkesztőjét használod? Mivel nem használom a kiegészítőt, nem tudom megismételni a hibát. Az MS VBA Editor használata hiba nélkül működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor futtatom ezt a kódot, működik, de csak az első mappát mutatja a kiválasztott mappában. Például a kód futtatásakor a "C:\Users\Johnson\Music" lehetőséget választom (Megjegyzés: 70 mappa van a zenei mappámban) Amikor a kód fut, csak az első mappát jeleníti meg, majd felsorolja a benne lévő összes mappát. mappát. Szeretném, ha listázná a Zene mappán belüli összes mappát.
A weboldal moderátora ezt a megjegyzést minimalizálta
A többiekkel vagyok – egy bizonyos pontig működik.

Számomra ez a lényeg az, hogy létrehozza az új s/s-t, részletezi az általam mutatott mappát (az A1 cellákban), a 2. sorban egy sárga kiemelt sávot a címsorokkal, amelyeket semmi más nem követ!

A mappa, amit nézek, üres, kivéve az almappákat (azaz nincsenek adatfájlok), és az almappák egyáltalán nem jelennek meg.

Tudna valaki segíteni listázni az almappákat és a hozzájuk tartozó fájlokat?
A weboldal moderátora ezt a megjegyzést minimalizálta
Módosítottam méretre:



Almappák nevei()
„Frissítés: 20141027
Application.ScreenUpdating = Hamis
Dim xPath As String
Dim xWs munkalapként
Dim fso As Object, j As Long, folder1 As Object
Az Application.FileDialog(msoFileDialogFolderPicker) segítségével
.Title = "Válassza ki a mappát"
.Előadás
Vége
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Alkalmazás.Munkafüzetek.Hozzáadás
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Érték = xPath
xWs.Cells(2, 1).Resize(1, 6).Value = Tömb("Elérési út", "Dir", "Név", "Létrehozás dátuma", "Utolsó módosítás dátuma", "Méret")
Állítsa be az fso = CreateObject ("Scripting.FileSystemObject")
Mappa1 beállítása = fso.getFolder(xPath)
getSubFolder mappa1
xWs.Cells(2, 1).Resize(1).Interior.Color = 6
xWs.Cells(2, 1).Resize(1).EntireColumn.AutoFit
Application.ScreenUpdating = Igaz
End Sub
Sub getSubFolder (ByRef prntfld mint objektum)
Dim SubFolder mint objektum
Dim subfld mint objektum
Dim xRow As Long
Minden almappához a prntfld.SubFolders mappában
xRow = Tartomány("A1").End(xlDown).Sor + 1
Cells(xRow, 1).Resize(1, 6).Érték = Tömb(Almappa.Elérési út, Bal(Almappa.Elérési út, InStrRev(Almappa.Elérési út, "\")), Almappa.Név, Almappa.Létrehozás dátuma, Almappa. Utolsó módosítás dátuma, Almappa. Méret)
Következő almappa
Minden alfld-hez A prntfld.SubFolders mappában
getSubFolder subfld
Következő alfld
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
A SubFolder.Size függvény használatakor a szkript már nem listázza ki az összes almappát, csak az első szintet.
Hogyan tudom megadni a méretet és az összes almappát listázni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló. Kérem, segítsen nekem egy kódban, amelyet nehezen találok.

Az alábbiakban a kóddal kapcsolatos követelmények találhatók.



1. A VBA-nak végig kell mennie az összes mappán és almappán
és ellenőrizze az összes fájltípust. A felhasználónak csak az elérési utat kell megadnia
a felső mappát. A kódnak ezután ellenőriznie kell az összes mappát és almappát
a felső mappában.



2. A fájlok ellenőrzése után a kódnak tömörítenie kell az összes fájlt
amelyekhez több mint 3 hónapja nem fértek hozzá. Az elért időszak a
olyasvalamit, amit a jövőben módosíthatok, ha szükséges. Kellene
engedje meg, hogy módosítsam 1 hónapra vagy 5 hónapra, ha szükséges.



3. A fájlok tömörítése után a kódnak törölnie kell a
az eredeti fájlok, amelyeket tömörítettek.



4. A tömörített fájlt ugyanarra az útvonalra kell menteni, mint a
eredeti fájl.
A weboldal moderátora ezt a megjegyzést minimalizálta
Remek Eszköz! Hosszas kutatás után rátaláltunk erre a pontos játékra :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Pont amire szükségem volt, és tökéletesen világos utasítások a működéshez. Nagyon köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen, nagyon hasznos!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez működött, és hogyan... Köszönöm szépen. Csak egy kiegészítés – a 3. lépésnél rá kellett kattintanom a Step Into elemre, és csak az F5 billentyű működött a mappa kiválasztásához.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen ezt a hasznos kódot. lehetséges, hogy az eredményt ugyanabban a munkafüzetben nem újba mentheti?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönjük, pontosan erre volt szükségünk a mappák rögzítéséhez ügyfeleink számára.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyszerű munka... Nagyon hasznos számomra, köszönöm szépen
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi