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

Sut i restru'r holl ffolderau ac is-ffolderi yn Excel?

A ydych erioed wedi dioddef gyda'r broblem hon sy'n rhestru'r holl ffolderau ac is-ffolderi o gyfeiriadur penodol i mewn i daflen waith? Yn Excel, nid oes ffordd gyflym a defnyddiol o gael enw'r holl ffolderau mewn cyfeiriadur penodol ar unwaith. I ddelio â'r dasg, gall yr erthygl hon eich helpu chi.

Rhestrwch bob ffolder ac is-ffolder gyda chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gydag Office 2007-2021 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Rhestrwch bob ffolder ac is-ffolder gyda chod VBA

Os ydych chi am gael yr holl enwau ffolderi o gyfeiriadur penodol, gall y cod VBA canlynol eich helpu chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol i'r Ffenestr Modiwl.

Cod VBA: Rhestrwch yr holl ffolderau ac enwau is-ffolderi

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac a Dewiswch y ffolder bydd y ffenestr yn popio allan, yna mae angen i chi ddewis y cyfeiriadur rydych chi am restru'r ffolder ac enwau is-ffolder, gweler y screenshot:

doc-list-folder-names-1

4. Cliciwch OK, a byddwch yn cael y ffolder a'r llwybr is-ffolderi, cyfeiriadur, enw, dyddiad wedi'i greu a'r dyddiad a addaswyd ddiwethaf mewn llyfr gwaith newydd, gweler y screenshot:

doc-list-folder-names-1

Erthygl gysylltiedig:

Sut i restru ffeiliau mewn cyfeiriadur i daflen waith yn Excel?

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (18)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Dahamou ayman
Dahamou ayman
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr. Roeddwn i'n defnyddio anogwr cmd i gael txt gyda fy ffolderi ac yna ei gopïo ar excel ond nawr rydych chi'n gwneud pethau'n hawdd i mi :)
ateb
0
0
MMB
MMB
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os oes angen i mi greu'r ddolen hefyd ar gyfer y ffolder beth ddylwn i ei addasu yn y botwm codio ac ni allwn greu a chysylltu'r un codio ag ef, felly bydd yn ddefnyddiol i'r defnyddwyr nad ydynt yn gwybod sut i redeg macros
ateb
0
0
Robert Poole
Robert Poole     MMB
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwneuthum yn union yr hyn yr ydych yn gofyn amdano. Rhoddais logo fy nghwmnïau ar y daflen whorksheet, yna de-gliciais arno a neilltuo macro (sef y cod uchod.) Gallwch hefyd fewnosod cyfarwyddiadau defnyddiwr sut i ddefnyddio.
ateb
0
0
Robert Poole
Robert Poole
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn wirioneddol achub y dydd. Diolch am ei rannu.
ateb
0
0
Caralyn
Caralyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dilynais eich cyfarwyddiadau ond rwy'n cael gwallau pan rwy'n taro F5 i redeg. Mae'r gwall isod yn amlygu "Dim xWs As Worksheet". A oes cod wedi'i ddiweddaru y gallaf ei ddefnyddio? Gwall llunio: Math wedi'i ddiffinio gan y defnyddiwr heb ei ddiffinio
ateb
0
0
Robert Poole
Robert Poole     Caralyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Helo, dilynais eich cyfarwyddiadau ond rwy'n cael gwallau pan rwy'n taro F5 i redeg. Mae'r gwall isod yn amlygu "Dim xWs As Worksheet". A oes cod wedi'i ddiweddaru y gallaf ei ddefnyddio? Gwall llunio: Math wedi'i ddiffinio gan y defnyddiwr heb ei ddiffinioGan Carolyn[/quote] Ydych chi'n defnyddio'r ychwanegiad Kutools neu olygydd MS Excel VBA? Gan nad wyf yn defnyddio'r ychwanegyn, ni allaf ddyblygu'ch gwall. Mae defnyddio MS VBA Editor yn gweithio heb unrhyw wallau.
ateb
0
0
Paul J
Paul J
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn rhedeg y cod hwn mae'n gweithio ond dim ond y ffolder cyntaf yn ochr y ffolder a ddewisaf y mae'n ei ddangos. Er enghraifft, Pan fyddaf yn rhedeg y cod rwy'n dewis "C:\Users\Johnson\Music" (Nodyn: Mae gen i 70 o Ffolderi y tu mewn i'm Ffolder Cerddoriaeth) Pan fydd y cod yn rhedeg, dim ond y ffolder cyntaf y mae'n ei ddangos ac yna rhestru'r holl ffolderi y tu mewn i hynny ffolder. Hoffwn iddo restru'r holl ffolderi y tu mewn i'r ffolder Cerddoriaeth.
ateb
0
0
jimbosmiles
jimbosmiles
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf gyda'r lleill - mae'n gweithio hyd at bwynt.

I mi, y pwynt hwnnw yw ei fod yn creu'r s/s newydd, yn manylu ar y ffolder a ddangosais (yng Nghelloedd A1), y bar melyn wedi'i amlygu yn rhes 2 gyda'r penawdau ac yna dim byd arall!

Mae'r ffolder rydw i'n edrych arno yn wag heblaw am is-ffolderi (hy dim ffeiliau data yn bodoli) ac nid yw'r is-ffolderi yn ymddangos o gwbl.

A all unrhyw un fy helpu i restru'r is-ffolderi a'u ffeiliau?
ateb
0
0
tom Vincent
tom Vincent
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe'i haddasais i ychwanegu maint:



Enwau Is-ffolder()
'Diweddariad 20141027
Application.ScreenUpdating = Anghywir
Dim xPath Fel Llinyn
Dim xWs Fel Taflen Waith
Dim fso Fel Gwrthrych, j Mor Hir, ffolder1 Fel Gwrthrych
Gyda Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Dewiswch y ffolder"
.sioe
Diwedd Gyda
Ar Ail-ddechrau Gwall Nesaf
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Cymhwysiad.Llyfrau Gwaith.Add
Gosod xWs = Application.ActiveSheet
xWs.Cells(1, 1).Gwerth = xPath
xWs.Cells(2, 1).Resize(1, 6).Value = Array("Llwybr", "Dir", "Enw", "Dyddiad Creu", "Dyddiad Addasu Diwethaf", "Maint")
Gosod fso = CreateObject ("Scripting.FileSystemObject")
Gosod ffolder1 = fso.getFolder(xPath)
ffolder getSubFolder1
xWs.Cells(2, 1).Newid maint(1, 6).Color.Color = 65535
xWs.Cells(2, 1).Newid maint(1, 6).EntireColumn.AutoFit
Application.ScreenUpdating = Gwir
Is-End
Is getSubFolder(ByRef prntfld As Object)
Is-ffolder Dim Fel Gwrthrych
Dim subfld Fel Gwrthrych
Dim xRow Cyhyd
Ar gyfer Pob Is-ffolder Mewn prntfld.SubFolders
xRow = Ystod ("A1").Diwedd(xlDown). Rhes + 1
Celloedd(xRow, 1).Newid maint(1, 6).Gwerth = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder. DateLastAdified, SubFolder.Size)
Is-ffolder Nesaf
Ar gyfer Pob subfld Mewn prntfld.SubFolders
getSubFolder subfld
Subfld nesaf
Is-End
ateb
0
0
AL
AL     tom Vincent
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddwch yn cynnwys y swyddogaeth SubFolder.Size nid yw'r sgript bellach yn rhestru'r holl is-ffolderi, dim ond y lefel gyntaf.
Sut alla i gynnwys y maint a chael yr holl is-ffolderi wedi'u rhestru?
ateb
0
0
lloyd
lloyd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. A allwch chi fy helpu os gwelwch yn dda ar god yr wyf yn cael trafferth dod o hyd iddo.

Isod mae'r gofynion ar gyfer y cod.



1. Dylai'r VBA fynd drwy'r holl ffolderi ac is-ffolderi
a gwirio pob math o ffeil. Dylai'r defnyddiwr roi'r llwybr ar gyfer yn unig
y ffolder uchaf. Dylai'r cod wedyn wirio'r holl ffolderi ac is-ffolderi
o fewn y ffolder uchaf.



2. Ar ôl gwirio'r ffeiliau, dylai'r cod zip pob ffeil
sydd heb eu cyrchu ers mwy na 3 mis. Y cyfnod a gyrchwyd yw
rhywbeth y dylwn allu ei newid yn y dyfodol os oes angen. Dylai
caniatáu i mi ei newid i 1 mis neu 5 mis os oes angen.



3. ar ôl sipio y ffeiliau, dylai y cod dileu'r
ffeiliau gwreiddiol a gafodd eu sipio.



4. Dylid cadw'r ffeil wedi'i sipio yn yr un llwybr â'r
ffeil wreiddiol.
ateb
0
0
jose
jose
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Offeryn Gwych! Ar ôl ymchwil hir, canfuwyd y tegan cywir hwn :)
ateb
0
0
David
David
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr union beth oedd ei angen arnaf, a chyfarwyddiadau hollol glir ar sut i wneud iddo weithio. Diolch yn fawr
ateb
0
0
José
José
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!, defnyddiol iawn.
ateb
0
0
D Rodrigues
D Rodrigues
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe weithiodd hyn a sut... Diolch yn fawr iawn. Dim ond un ychwanegiad - ar Gam 3, bu'n rhaid i mi glicio ar Step Into ac yna dim ond y gwaith allweddol F5 ar gyfer dewis y ffolder a wnaeth.
ateb
0
0
Ezel K.
Ezel K.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am y cod defnyddiol hwn. a yw'r canlyniad arbed posibl hwnnw yn yr un llyfr gwaith nid i un newydd ?
ateb
0
0
Tim_Cooprider
Tim_Cooprider
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, dyma'n union beth oedd ei angen arnom i gofnodi'r ffolderi ar gyfer ein cleientiaid.
ateb
adroddiad
0
0
mohanad hazah
mohanad hazah
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwaith gwych... Mae'n ddefnyddiol iawn i mi, diolch yn fawr
ateb
adroddiad
0
0
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Guest
Postio fel Gwestai
Mewngofnodi
×
Graddiwch y swydd hon:
Ailosod
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL