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

Ինչպե՞ս թվարկել բոլոր թղթապանակները և ենթապանակները Excel- ում:

Երբևէ տառապե՞լ եք այս խնդրով, որը նշված գրացուցակից բոլոր պանակներն ու ենթապանակները թվարկում է աշխատանքային թերթի մեջ: Excel- ում չկա միանգամից որոշակի գրացուցակում բոլոր պանակների անունը ստանալու արագ և հարմար եղանակ: Խնդիրը լուծելու համար այս հոդվածը կարող է օգնել ձեզ:

Նշեք բոլոր թղթապանակները և ենթապանակները VBA կոդով

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Նշեք բոլոր թղթապանակները և ենթապանակները VBA կոդով

Եթե ​​ցանկանում եք նշված թղթապանակից ստանալ բոլոր պանակների անունները, հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը ՝ Մոդուլի պատուհան.

VBA կոդ. Նշեք բոլոր պանակները և ենթապանակների անունները

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, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ա Ընտրեք պանակը պատուհանը դուրս կգա, ապա դուք պետք է ընտրեք այն գրացուցակը, որը ցանկանում եք ցուցակագրել պանակի և ենթապանակների անունները, տես նկարի նկարը.

doc-list-folder-names-1

4: Սեղմեք OK, և դուք կստանաք թղթապանակի և ենթապանակների ուղին, գրացուցակը, անունը, ստեղծված ամսաթիվը և վերջին փոփոխված ամսաթիվը նոր աշխատանքային գրքում, տե՛ս նկարը.

doc-list-folder-names-1


Առնչվող հոդված:

Ինչպե՞ս ցուցակները ֆայլեր ցուցակում ցուցակում ներառել Excel- ում աշխատաթերթ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (18)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ: Ես օգտագործում էի cmd հուշում` իմ թղթապանակների հետ txt ունենալու համար, այնուհետև պատճենեք այն excel-ում, բայց հիմա դուք ամեն ինչ հեշտացնում եք ինձ համար :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ անել, եթե ես պետք է ստեղծեմ հղումը նաև թղթապանակի համար, թե ինչ պետք է փոփոխեմ կոդավորման մեջ և չենք կարող ստեղծել կոճակ և կապել նույն կոդավորումը դրան, այնպես որ դա օգտակար կլինի այն օգտվողների համար, ովքեր չգիտեն, թե ինչպես գործարկել մակրոները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես արեցի հենց այն, ինչ խնդրեցիր: Ես տեղադրեցի իմ ընկերության պատկերանշանը whorksheet-ի վրա, այնուհետև աջ սեղմեցի դրա վրա և նշանակեցի մակրո (որը վերը նշված կոդը է):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը իսկապես փրկեց օրը: Շնորհակալություն այն կիսելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես պարզապես հետևեցի ձեր ցուցումներին, բայց ես սխալներ եմ ստանում, երբ հարվածում եմ F5-ին, որպեսզի վազեմ: Ստորև բերված սխալը կարևորում է «Dim xWs As Worksheet»: Կա՞ արդյոք թարմացված կոդ, որը կարող եմ օգտագործել: Կազմելու սխալ. օգտագործողի կողմից սահմանված տեսակը սահմանված չէ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Բարև, ես պարզապես հետևեցի ձեր ցուցումներին, բայց ես սխալներ եմ ստանում, երբ հարվածում եմ F5-ին, որպեսզի վազեմ: Ստորև բերված սխալը կարևորում է «Dim xWs As Worksheet»: Կա՞ արդյոք թարմացված կոդ, որը կարող եմ օգտագործել: Կազմելու սխալ. օգտագործողի կողմից սահմանված տեսակը սահմանված չէԿարալինի կողմից[/quote] Դուք օգտագործում եք Kutools հավելումը կամ MS Excel VBA խմբագրիչը: Քանի որ ես չեմ օգտագործում հավելումը, ես չեմ կարող կրկնօրինակել ձեր սխալը: MS VBA Editor-ի օգտագործումն աշխատում է առանց որևէ սխալի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես գործարկում եմ այս կոդը, այն աշխատում է, բայց այն ցույց է տալիս միայն իմ ընտրած թղթապանակի կողքին գտնվող առաջին թղթապանակը: Օրինակ, երբ ես գործարկում եմ կոդը, ես ընտրում եմ «C:\Users\Johnson\Music» (Նշում. ես ունեմ 70 թղթապանակ իմ Երաժշտական ​​թղթապանակում): Երբ ծածկագիրը գործարկվում է, այն ցույց է տալիս միայն առաջին թղթապանակը և այնուհետև թվարկում դրա ներսում գտնվող բոլոր թղթապանակները: թղթապանակ. Ես կցանկանայի, որ այն թվարկի Երաժշտություն պանակի ներսում գտնվող բոլոր թղթապանակները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես մյուսների հետ եմ, դա աշխատում է մինչև մի կետ:

Ինձ համար այդ կետն այն է, որ ստեղծում է նոր s/s, մանրամասնում է իմ ցուցադրած թղթապանակը (A1 բջիջներում), 2-րդ շարքում գտնվող դեղին ընդգծված տողը՝ վերնագրերով, որոնց հաջորդում է ոչ մի այլ բան:

Թղթապանակը, որը ես նայում եմ, դատարկ է, բացառությամբ ենթապանակների (այսինքն՝ տվյալների ֆայլեր չկան), իսկ ենթապանակներն ընդհանրապես չեն ցուցադրվում:

Կարո՞ղ է որևէ մեկը օգնել ինձ թվարկել ենթապանակները և դրանց ֆայլերը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոփոխել եմ այն ​​չափը ավելացնելու համար.



Ենթաթղթապանակների անուններ ()
«Թարմացնել 20141027
Դիմում. ScreenUpdating = Սուտ է
Dim xPath որպես տող
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
Application.FileDialog-ով (msoFileDialogFolderPicker)
.Title = «Ընտրեք թղթապանակը»
.Ցուցադրում
Վերջ
Ս.թ. սխալի Ռեզյումե Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Դիմում.Աշխատանքային տետրեր.Ավելացնել
Սահմանել xWs = Application.ActiveSheet
xWs.Cells(1, 1).Արժեք = xPath
xWs.Cells (2, 1). Չափափոխել (1, 6). Արժեք = Array («Ուղ», «Dir», «Name», «Date Created», «Date Last Modified», «Size»)
Սահմանել fso = CreateObject ("Scripting.FileSystemObject")
Սահմանել folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Չափափոխել(1).Ներքին.Գույն =6
xWs.Cells(2, 1).Չափափոխել(1).EntireColumn.AutoFit
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Sub getSubFolder (ByRef prntfld Որպես օբյեկտ)
Պղտոր ենթաթղթապանակը որպես օբյեկտ
Dim subfld Որպես օբյեկտ
Dim xRow As Long
Յուրաքանչյուր ենթաթղթապանակի համար prntfld.SubFolders-ում
xRow = Range("A1").End(xlDown).Տող + 1
Բջիջներ(xRow, 1).Չափափոխել (1, 6).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder: DateLastModified, SubFolder.Size)
Հաջորդ ենթաթղթապանակը
Յուրաքանչյուր subfld-ի համար prntfld.SubFolders-ում
getSubFolder subfld
Հաջորդ subfld
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ դուք ներառում եք SubFolder.Size ֆունկցիան, սկրիպտն այլևս չի թվարկում բոլոր ենթաթղթապանակները, միայն առաջին մակարդակը:
Ինչպե՞ս կարող եմ ներառել չափը և ցուցակագրել բոլոր ենթաթղթապանակները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ. Խնդրում եմ, խնդրում եմ, օգնեք ինձ մի ծածկագրի հարցում, որը ես դժվարությամբ եմ գտնում:

Ստորև ներկայացված են կոդի պահանջները.



1. VBA-ն պետք է անցնի բոլոր թղթապանակների և ենթաթղթապանակների միջով
և ստուգեք յուրաքանչյուր տեսակի ֆայլ: Օգտագործողը պետք է տա ​​միայն ուղին
վերին թղթապանակը: Այնուհետև ծածկագիրը պետք է ստուգի բոլոր թղթապանակները և ենթապանակները
վերևի թղթապանակում:



2. Ֆայլերը ստուգելուց հետո կոդը պետք է զիփի բոլոր ֆայլերը
որոնք հասանելի չեն եղել ավելի քան 3 ամիս: Մուտք գործելու ժամկետն է
մի բան, որը ես պետք է կարողանամ փոխել ապագայում, եթե պահանջվի: Դա պետք է
Թույլ տվեք փոխել այն 1 ամսով կամ 5 ամսով, եթե պահանջվի:



3. Ֆայլերը սեղմելուց հետո կոդը պետք է ջնջի
բնօրինակ ֆայլեր, որոնք սեղմված են:



4. Zipped ֆայլը պետք է պահպանվի նույն ճանապարհով, ինչ որ
բնօրինակ ֆայլ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեծ գործիք! Երկար հետազոտություններից հետո գտա այս ճշգրիտ խաղալիքը :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարզապես այն, ինչ ինձ անհրաժեշտ էր, և կատարյալ հստակ հրահանգներ, թե ինչպես դա աշխատի: Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ: Շատ օգտակար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա աշխատեց և ինչպես... Անչափ շնորհակալ եմ: Ընդամենը մեկ հավելում. Քայլ 3-ում ես ստիպված էի սեղմել Step Into-ի վրա, այնուհետև միայն F5 ստեղնն աշխատեց թղթապանակն ընտրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ այս օգտակար կոդի համար: դա հնարավո՞ր է պահպանել արդյունքը նույն աշխատանքային գրքում ոչ թե նորը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա հենց այն է, ինչ մեզ անհրաժեշտ էր մեր հաճախորդների համար թղթապանակները ձայնագրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի աշխատանք... Դա ինձ համար շատ օգտակար է, շատ շնորհակալություն
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից