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

Conas gach fillteán agus fo-fhillteán in Excel a liostáil?

Ar fhulaing tú riamh leis an bhfadhb seo a liostálann na fillteáin agus na fofhillteáin uile ó eolaire sonraithe i mbileog oibre? In Excel, níl aon bhealach gasta agus áisiúil chun ainm na bhfillteán uile a fháil i eolaire ar leith ag an am céanna. Chun déileáil leis an tasc, d’fhéadfadh an t-alt seo cabhrú leat.

Liostaigh na fillteáin agus na fofhillteáin uile le cód VBA

Cluaisín Oifige Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed in Oifig, agus Déan Do Obair i bhfad Níos Éasca ...
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
  • Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
  • Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
  • Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
  • Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
  • Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
  • Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
  • Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2021 agus 365; Tacaíonn sé le gach teanga; Imscaradh éasca i d'fhiontar nó d'eagraíocht.

mboilgeog cheart gorm saighead Liostaigh na fillteáin agus na fofhillteáin uile le cód VBA

Más mian leat ainmneacha na bhfillteán go léir a fháil ó eolaire sonraithe, d’fhéadfadh go gcabhróidh an cód VBA seo a leanas leat, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas isteach sa Fuinneog an Mhodúil.

Cód VBA: Liostaigh gach fillteán agus ainm fo-fhillteáin

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus a Roghnaigh an fillteán popfaidh an fhuinneog amach, ansin ní mór duit an t-eolaire a theastaíonn uait an fillteán agus ainmneacha na bhfo-fhillteán a liostáil, féach an scáileán:

doc-liosta-fillteán-ainmneacha-1

4. Cliceáil OK, agus gheobhaidh tú cosán, eolaire, ainm, dáta cruthaithe agus dáta modhnaithe deireanach an fhillteáin agus na bhfofhillteán i leabhar oibre nua, féach an scáileán:

doc-liosta-fillteán-ainmneacha-1


Airteagal gaolmhar:

Conas comhaid a liostáil i eolaire ar bhileog oibre in Excel?


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (18)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat.Bhí mé ag baint úsáide as cmd leid chun txt a bheith agam le mo fhillteáin ansin é a chóipeáil ar Excel ach anois déanann tú rudaí éasca dom :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlóidh má theastaíonn uaim an nasc a chruthú freisin don fhillteán cad ba cheart dom a mhodhnú sa chnaipe códaithe agus ní féidir linn a chruthú agus an códú céanna a nascadh leis, mar sin beidh sé úsáideach do na húsáideoirí nach bhfuil a fhios acu conas macraí a rith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne mé go díreach cad a d'iarr tú. Chuir mé lógó mo chuideachtaí ar an mbileog whork, ansin chliceáil mé ar dheis air agus sannadh macra (is é sin an cód thuas.) Is féidir leat treoracha úsáideora conas a úsáidtear a chur isteach freisin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Shábháil an cód seo an lá i ndáiríre. Go raibh maith agat as é a roinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, níor lean mé ach do threoracha ach tá earráidí á fháil agam nuair a bhuail mé F5 le rith. Léiríonn an earráid thíos "Dim xWs As Worksheet". An bhfuil cód nuashonraithe ann ar féidir liom a úsáid? Earráid tiomsaithe: Níl an cineál sainithe ag an úsáideoir sainithe
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Dia duit, lean mé do threoracha ach tá earráidí á fháil agam nuair a bhuail mé F5 le rith. Léiríonn an earráid thíos "Dim xWs As Worksheet". An bhfuil cód nuashonraithe ann ar féidir liom a úsáid? Earráid tiomsaithe: Níl an cineál sainithe ag an úsáideoir sainithele Caralyn[/ ceanglófar] An bhfuil tú ag baint úsáide as an breiseán Kutools nó eagarthóir MS Excel VBA? Toisc nach bhfuil an breiseán á úsáid agam, ní féidir liom d'earráid a mhacasamhlú. Ag baint úsáide as MS VBA Eagarthóir oibríonn gan aon earráidí.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a ritheann mé an cód seo oibríonn sé ach ní thaispeánann sé ach an chéad fhillteán taobh istigh den fhillteán a roghnaíonn mé. Mar shampla, Nuair a rithim an cód roghnaíonn mé "C:\Users\Johnson\Music" (Nóta: Tá 70 Fillteán agam taobh istigh den Fhillteán Ceoil agam) Nuair a ritheann an cód ní thaispeánann sé ach an chéad fhillteán agus ansin liostaigh na fillteáin go léir taobh istigh de sin. fillteán. Ba mhaith liom é a liostú go léir na fillteáin taobh istigh den fillteán Ceol.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá mé leis na cinn eile - oibríonn sé suas go pointe.

Maidir liom féin, is é an pointe sin go gcruthaíonn sé na s/s nua, sonraítear an fillteán a thaispeáin mé (i gCealla A1), an barra buí aibhsithe i ró 2 leis na ceannteidil agus gan aon rud eile ina dhiaidh!

Tá an fillteán a bhfuilim ag féachaint air folamh ach amháin i gcás fo-fhillteáin (.i. níl aon chomhaid sonraí ann) agus ní cosúil go bhfeictear na fofhillteáin ar chor ar bith.

An féidir le haon duine cabhrú liom na fofhillteáin agus a gcuid comhad a liostú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'athraigh mé é chun méid a chur leis:



Ainmneacha Fofhillteán()
Nuashonrú 20141027
Application.ScreenUpdating = Bréagach
Dim xPath Mar Teaghrán
Dim xWs Mar Bhileog Oibre
Dim fso Mar Réad, j Chomh fada, fillteán1 Mar Réad
Le Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Roghnaigh an fillteán"
.Taispeáin
Deireadh Le
Ar Lean Earráid Aghaidh
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Feidhmchláir.Leabhair Oibre.Cuir
Socraigh xWs = Application.ActiveSheet
xWs.Cells(1, 1).Luach = xPath
xWs.Cells(2, 1).Athraigh(1, 6).Value = Eagar("Conair", "Dir", "Ainm", "Dáta Cruthaithe", "Dáta Athraithe Deiridh",,"Méid")
Socraigh fso = CreateObject ("Scripting.FileSystemObject")
Socraigh fillteán1 = fso.getFolder(xPath)
fillteán getSubFolder1
xWs.Cells(2, 1).Athraigh Méid(1, 6).Color.Color = 65535
xWs.Cells(2, 1).Athraigh Méid(1, 6).EntireColumn.AutoFit
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Fo-getSubFolder(ByRef prntfld As Object)
Dim Fofhillteán Mar Réad
Dim subfld Mar Réad
Dim xRow Chomh fada
Do Gach Fofhillteán I prntfld.SubFolders
xRow = Raon ("A1").Deireadh(xlSíos).Row + 1
Cealla(xRow, 1).Athraigh Méid(1, 6).Luach = Eagar(Folder.Path, Clé(SubFolder.Path, InStrRev(SubFolder.Path, "\")), Fofhillteán.Name, Fo-Fhillteán.DateCreated, Fofhillteán. DátaLastModified, Fofhillteán.Méid)
An Chéad Fhofhillteán Eile
Do Gach subfld I prntfld.SubFolders
getSubFolder subfld
An chéad subfld eile
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a chuireann tú an fheidhm SubFolder.Size san áireamh ní liostaíonn an script na fofhillteáin go léir a thuilleadh, gan ach an chéad leibhéal.
Conas is féidir liom an méid a áireamh agus gach fofhillteán a liostú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit. An féidir leat cabhrú liom, le do thoil, ar chód a bhfuil sé deacair dom a aimsiú.

Seo thíos na ceanglais don chód.



1. Ba cheart don VBA dul tríd na fillteáin agus na fo-fhillteáin go léir
agus seiceáil gach uile chineál comhaid. Níor cheart don úsáideoir ach an cosán a thabhairt do
an fillteán barr. Ba cheart don chód na fillteáin agus na fofhillteáin go léir a sheiceáil ansin
laistigh den fhillteán barr.



2. Tar éis na comhaid a sheiceáil, ba chóir go mbeadh an cód zip gach comhad
nach bhfuil rochtain orthu ar feadh níos mó ná 3 mhí. Is é an tréimhse rochtana
rud ar cheart dom a bheith in ann a athrú amach anseo más gá. Ba chóir do
lig dom é a athrú go 1 mhí nó 5 mhí más gá.



3. Tar éis na comhaid a zipping, ba chóir an cód a scriosadh
comhaid bhunaidh a zipped.



4. Ba chóir an comhad zipped a shábháil ar an cosán céanna leis an
comhad bunaidh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Uirlis Mhór! Tar éis taighde fada a fháil ar an bréagán cruinn seo :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Díreach an méid a bhí ag teastáil uaim, agus treoracha breá soiléire maidir le conas é a chur ag obair. Go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat!, an-úsáideach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh sé seo agus conas... Go raibh míle maith agat. Just a addition-- amháin ag Céim 3, bhí orm cliceáil ar Céim Isteach agus ansin ní raibh ach an obair eochair F5 do roghnú an fillteán.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as an gcód úsáideach seo. an féidir an toradh sin a shábháil sa leabhar saothair céanna nach bhfuil sa leabhar saothair nua?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, is é seo go díreach cad a theastaigh uainn chun na fillteáin a thaifeadadh dár gcliaint.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Obair iontach... Tá sé an-chabhrach dom, go raibh míle maith agat
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL