Ինչպե՞ս ցուցակի բոլոր ֆայլերը թղթապանակում և ենթապանակներում ներառել աշխատանքային թերթ:

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

Թվարկեք բոլոր ֆայլի անունները թղթապանակում և ենթապանակում `VBA կոդով

Թվարկեք բոլոր ֆայլերի անունները թղթապանակում և ենթապանակում արագ և հեշտությամբ Kutools- ի համար Excel- ի համար

Թվարկեք բոլոր ֆայլի անունները թղթապանակում և ենթապանակում `VBA կոդով

Սովորաբար, Excel- ը կառուցելու առանձնահատկություն չունի այս խնդրի լուծման համար, բայց այս խնդիրը լրացնելու համար կարող եք կիրառել հետևյալ VBA կոդը:

1, Ակտիվացրեք նոր աշխատանքային թերթը, որում նշված կլինեն ֆայլի անունները:

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

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

VBA կոդ. Թվարկեք ֆայլի բոլոր անունները թղթապանակում և ենթապանակում

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4, Կոդը Մոդուլի մեջ մտցնելուց հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ա Մակրո երկխոսության պատուհանը հայտնվում է, ընտրեք Հիմնական ցուցակ մակրո անունը, ապա կտտացրեք Վազում կոճակը, տես նկարի նկարը.

5. Եվ է Թերթել պատուհան, խնդրում ենք ընտրել այն թղթապանակը, որը ցանկանում եք թվարկել բոլոր ֆայլի անունները, ներառյալ ենթապանակները, տես նկարի նկարը.

6, Թղթապանակը նշելուց հետո կտտացրեք OK կոճակը, և թղթապանակի և դրա ենթապանակների բոլոր ֆայլի անունները նշված են A2 բջիջից ընթացիկ աշխատանքային թերթում, տե՛ս սքրինշոթերը.

Թվարկեք բոլոր ֆայլերի անունները թղթապանակում և ենթապանակում արագ և հեշտությամբ Kutools- ի համար Excel- ի համար

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

Այն բանից հետո ներբեռնում և տեղադրում Excel- ի համար նախատեսված գործիքներԽնդրում ենք անել հետևյալ քայլերով.

1: Սեղմեք ձեռնարկություն > Ներմուծման արտահանման > Ֆայլի անվանացանկ, տես նկարի նկարը.

2, Մեջ Ֆայլի անվանացանկ երկխոսության տուփ, կատարեք հետևյալ գործողությունները.

A: Սեղմել կոճակը ընտրելու համար այն թղթապանակը, որը ցանկանում եք թվարկել ֆայլի անունները;

BՆշեք այն ֆայլի տեսակը, որը ցանկանում եք ցուցակագրել այստեղից Ֆայլերի տեսակը Բաժին;

C: Ընտրեք ֆայլի չափի մեկ միավոր, որը ցանկանում եք ցուցադրել Ֆայլի չափի միավոր բաժնում:

ՆշումԵնթապանակից ֆայլերի անունները նշելու համար ստուգեք Ներառեք ֆայլերը ենթագրացուցակներում, կարող եք նաև ստուգել Ներառեք թաքնված ֆայլերը և պանակները ինչպես պետք է: Եթե ​​ստուգեք Ստեղծեք հիպերհղումներ տարբերակը, այն կստեղծի հղումներ հղումներ յուրաքանչյուր ֆայլի անունների և պանակների համար:

3. Այնուհետեւ կտտացրեք OK կոճակը, ընտրված պանակում և դրա ենթապանակներում պարունակվող բոլոր ֆայլերը ցուցադրվել են հետևյալ հատկանիշներով նոր աշխատանքային թերթում: Տեսեք,

Կտտացրեք ՝ այս ֆայլի անվանացանկի օգտակար ծառայության մասին ավելի մանրամասն տեղեկություններ ստանալու համար:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար: