Հետևյալ VBA- ն կարող է օգնել ձեզ հեշտությամբ հաշվել որոշակի պանակում գտնվող հատուկ տեսակի ֆայլեր, օրինակ `թղթապանակում հաշվել բոլոր .xlsx ֆայլերը: Խնդրում ենք անել հետևյալը.

1. Սեղմեք ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2: սեղմեք Տեղադրել > Մոդուլներև ապա տեղադրեք ներքևի VBA կոդը բացման Մոդուլի պատուհանում:

VBA. Հաշվեք որոշակի ֆայլ որոշակի պանակում

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

ՆշումՎերոհիշյալ VBA կոդը կհաշվի .xlsx ֆայլեր որոշակի պանակում: Այլ տեսակի ֆայլերի հաշվարկման համար խնդրում ենք պարզել xPath = x Թղթապանակ & "\ *. xlsx"եւ փոխել .xlsx ձեր ֆայլերի այլ ընդլայնմանը ՝ ելնելով ձեր կարիքներից:

3. Սեղմեք F5 ստեղնը կամ սեղմել Վազում այս VBA կոդը գործարկելու կոճակը:

4. Բացվող rowննարկեք երկխոսության վանդակում ընտրեք որոշակի թղթապանակ, որի մեջ հաշվելու եք ֆայլերի որոշակի տեսակը, և կտտացրեք այն OK կոճակը:

5. Այժմ դուրս կգա երկխոսության տուփ և ցույց կտա, թե քանի կոնկրետ ֆայլեր կան որոշակի պանակում: Պարզապես փակեք երկխոսության տուփը:

Հեշտությամբ միացրեք բազմաթիվ աշխատանքային թերթեր / աշխատանքային գրքեր / CSV ֆայլեր մեկ աշխատանքային թերթի / աշխատանքային գրքի մեջ

Գուցե ձանձրալի է տարբեր աշխատանքային գրքույկներից տասնյակ թերթերը մեկ թերթի մեջ միավորելը: Բայց Excel- ի համար նախատեսված Kutools- ի հետ Միավորել (աշխատանքային թերթեր և աշխատանքային գրքեր) օգտակար, դուք կարող եք դա անել միայն մի քանի կտտոցով:

Եթե ​​դուք բացել եք պանակ, սովորաբար այս թղթապանակի ներքևում կստանաք բոլոր ֆայլերի քանակը: Այս մեթոդը կներկայացնի Kutools- ի Excel- ի համար Բաց պարունակող պանակ օգտակար ՝ ընթացիկ աշխատանքային գրքույկ պարունակող թղթապանակը բացելու համար, այնուհետև այս թղթապանակում ստանալու ֆայլերի քանակը:

1: սեղմեք Kutools Plus > Աշխատանքային տետր > Բաց պարունակող պանակ, Տեսեք,

2. Այժմ բացվում է ընթացիկ աշխատանքային գրքույկ պարունակող պանակը:

Բաց թղթապանակում ընտրեք որևէ ֆայլ, և այս թղթապանակի ներքևում կտեսնեք բոլոր ֆայլերի քանակը, ինչպես ցույց է տրված նկարում:

ՆշումՄանրամասն Բաց պարունակող պանակ օգտակարությունն անվավեր կլինի, եթե նախկինում երբեք չեք պահպանել ընթացիկ աշխատանքային գիրքը:

Երբեմն գուցե ցանկանաք հաշվել մի քանի տեսակի ֆայլեր թղթապանակում և դրա ենթապանակներում: Իրականում Kutools- ը Excel- ի համար տրամադրում է մեկ այլ Ֆայլի անվանացանկ օգտակար է այն հեշտությամբ լուծել:

1: սեղմեք Kutools Plus > Ներմուծման արտահանման > Ֆայլի անվանացանկ File File List երկխոսության տուփը բացելու համար:

2. Բաց ֆայլի անվանացանկի երկխոսության դաշտում կատարեք հետևյալը.

3. Սեղմեք Ok կոճակը File names List երկխոսության դաշտում:

4. Այժմ հատուկ տիպի բոլոր ֆայլերը ցուցակագրվում են նոր աշխատանքային թերթում: Պարզապես ընտրեք առաջին սյունակը առանց սյունակի վերնագրի, և ստացվող ստատուսների շարքում կստանաք ֆայլերի քանակը, ինչպես ցույց է տրված ստորև նշված նկարում.