Gall y VBA canlynol eich helpu i gyfrif math penodol o ffeiliau yn hawdd mewn ffolder benodol, fel cyfrif pob ffeil .xlsx mewn ffolder. Gwnewch fel a ganlyn:

1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod VBA isod i mewn i ffenestr agoriadol y Modiwl.

VBA: Cyfrif ffeil benodol mewn ffolder benodol

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Nodyn: Bydd y cod VBA uchod yn cyfrif y .xlsx ffeiliau mewn ffolder benodol. Ar gyfer cyfrif mathau eraill o ffeiliau, darganfyddwch xPath = xFolder & "\ *. xlsx", a newid y .xlsx i estyniad ffeil arall yn seiliedig ar eich anghenion.

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y cod VBA hwn.

4. Yn y blwch deialog Pori agoriadol, dewiswch y ffolder benodol y byddwch chi'n cyfrif y math penodol o ffeiliau ynddo, a chliciwch ar y OK botwm.

5. Nawr bydd blwch deialog yn dod allan ac yn dangos i chi faint o'r math penodol o ffeiliau sy'n bodoli yn y ffolder benodol. Caewch y blwch deialog.

Cyfuno nifer o daflenni gwaith / llyfrau gwaith / ffeiliau CSV yn hawdd mewn un daflen waith / llyfr gwaith

Efallai ei bod yn ddiflas cyfuno dwsinau o daflenni o wahanol lyfrau gwaith yn un ddalen. Ond gyda Kutools ar gyfer Excel's Cyfuno (taflenni gwaith a llyfrau gwaith) cyfleustodau, gallwch chi wneud hynny gyda dim ond sawl clic!

Os ydych chi wedi agor ffolder, fel arfer fe gewch chi rif yr holl ffeiliau ar waelod y ffolder hon. Bydd y dull hwn yn cyflwyno Kutools ar gyfer Excel's Ffolder sy'n Cynnwys Agored cyfleustodau i agor y ffolder sy'n cynnwys llyfr gwaith cyfredol, ac yna cael nifer y ffeiliau yn y ffolder hon.

1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Ffolder sy'n Cynnwys Agored. Gweler y screenshot:

2. Nawr mae'r ffolder sy'n cynnwys llyfr gwaith cyfredol yn agor.

Dad-ddewiswch unrhyw ffeil yn y ffolder agoriadol, a byddwch yn gweld nifer yr holl ffeiliau ar waelod y ffolder hon fel y dangosir isod:

Nodyn: Y Ffolder sy'n Cynnwys Agored bydd cyfleustodau yn annilys os nad ydych erioed wedi arbed llyfr gwaith cyfredol o'r blaen.

Weithiau, efallai yr hoffech chi gyfrif sawl math o ffeiliau mewn ffolder a'i his-ffolderi. Mewn gwirionedd mae Kutools ar gyfer Excel yn darparu un arall Rhestr Enw Ffeil cyfleustodau i'w ddatrys yn rhwydd.

1. Cliciwch Kutools Byd Gwaith > Mewnforio / Allforio > Rhestr Enw Ffeil i agor y blwch deialog Rhestr Enw Ffeil.

2. Yn y blwch deialog agoriadol Rhestr Enw Ffeil, gwnewch fel a ganlyn:

3. Cliciwch ar y Ok botwm yn y blwch deialog Rhestr Enw Ffeil.

4. Nawr mae pob ffeil o fathau penodol wedi'u rhestru mewn taflen waith newydd. Dewiswch y golofn gyntaf heb bennawd y golofn, a byddwch yn cael nifer y ffeiliau yn y Bar Statws fel y dangosir isod y screenshot: