Excel- ի աշխատանքային էջում բոլոր ֆայլերը Windows- ի թղթապանակում հետադարձ ցուցակելու 3 արագ մեթոդներ

Շատ օգտվողներ պետք է արագ ցուցակագրեն բոլոր ֆայլերը Windows պանակում և դրա բոլոր ենթապանակները Excel- ի աշխատանքային թերթում: Հետեւաբար, այս հոդվածում մենք ձեզ կներկայացնենք այն իրագործելու 3 արագ եղանակ:

Եթե ​​ցանկանում եք հետադարձաբար ցուցակագրել բոլոր ֆայլերը Windows- ի թղթապանակում Excel- ի աշխատանքային թերթիկում, ապա հաստատ ձեզ դուր չի գա ֆայլերի անունները ձեռքով պատճենելը: Անկասկած, դա չափազանց հոգնեցուցիչ է և ժամանակատար: Հետևաբար, այստեղ մենք ձեզ կսովորեցնենք 3 շատ ավելի խելացի և հարմարավետ մոտեցումներ

Մեթոդ 1. Ֆայլերը ցուցակեք Windows պանակում Firefox- ի կամ Google Chrome- ի միջոցով

1. Նախ և առաջ, Windows Explorer- ում մուտք գործեք հատուկ Windows պանակ և պատճենեք պանակի ուղին:
2. Դրանից հետո գործարկեք Firefox- ը կամ Google Chrome- ը:
3. Հաջորդը, տեղադրեք պատճենված թղթապանակի ուղին ինտերնետ զննարկչի հասցեի տողում:
4. Դրանից հետո սեղմեք «Enter» ստեղնը:
5. Միանգամից, այս Windows թղթապանակի բոլոր ֆայլերը կներկայացվեն զննարկիչում:
6. Դրանից հետո սեղմեք «Ctrl + A» ՝ ընտրելու բոլոր բովանդակությունը և «« Ctrl + C »» ՝ դրանք պատճենելու համար:
7. Ի վերջո, տեղադրեք դրանք Excel- ի աշխատանքային թերթիկում:

Մեթոդ 2. Ֆայլեր ցուցակագրել Windows պանակում «Անունների կառավարչի» միջոցով

1. Սկզբում ստեղծեք Excel- ի նոր աշխատանքային թերթ:
2. Դրանից հետո ընտրեք A1 բջիջը:
3. Հաջորդը, անցեք «Բանաձևեր» ներդիրին և կտտացրեք «Անունների կառավարիչ» կոճակին:
4. Պատուհանի երկխոսության դաշտում կտտացրեք «Նոր» կոճակին:
5. Հետևաբար, հաջորդ երկխոսության դաշտում մուտքագրեք «Ֆայլեր» «Անուն» դաշտում:
6. Եվ «Վերաբերում է.» Դաշտում փոխել «= Sheet1! $ A $ 1» - ը «= FILES (Sheet1! $ A $ 1 $)»:
7. Դրանից հետո կտտացրեք «Լավ» և փակեք «Անունների կառավարիչ» երկխոսության տուփը:
8. Ավելի ուշ, պատճենեք Windows պանակի ուղին Cell A1- ում և ավելացրեք «\* »Արահետի վերջում:
9. Հաջորդը ընտրեք Aell բջիջը և մուտքագրեք «= INDEX (Ֆայլեր, ROW () - 3)» գործառույթը:
10. Միանգամից, այս Windows պանակում մի ֆայլ կցուցադրվի, ինչպես հետևյալ նկարը:
11. Ի վերջո, պարզապես պատճենեք այս գործառույթը մի քանի շարքում ներքև ՝ մյուս ֆայլերը թվարկելու համար մինչև տեսնեք «# REF!»: սխալ Սխալը նշանակում է, որ բոլոր ֆայլերը ցուցակագրված են:

Մեթոդ 3. Excel VBA- ի միջոցով ֆայլերը հետադարձ ցուցակեք Windows թղթապանակում

1. Սկսելու համար ստեղծեք նոր Excel ֆայլ։
2. Հաջորդը, մուտք գործեք Excel VBA խմբագիր ՝ հղում կատարելով «Ինչպես գործարկել VBA կոդը ձեր Excel- ում".
3. Դրանից հետո պատճենեք հետևյալ կոդը «ThisWorkbook» նախագծում:

Sub BatchListAllFiles_FolderSubfolders()
    Dim strWindowsFolder As String
 
    'Select the source Windows folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "E:\"
        .Show
        If .SelectedItems.Count > 0 Then
           strWindowsFolder = .SelectedItems(1) & "\"
        End If
    End With
 
    With ActiveSheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Path"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Size(Bytes)"
         .Cells(1, 3).Font.Bold = True
         .Cells(1, 4) = "Type"
         .Cells(1, 4).Font.Bold = True
         .Cells(1, 5) = "Created"
         .Cells(1, 5).Font.Bold = True
    End With
 
    Call LoopFolders(strWindowsFolder)
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim nLastRow As Integer
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        With ActiveSheet
            nLastRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & nLastRow) = objFile.Name
            .Range("B" & nLastRow) = objFile.Path
            .Range("C" & nLastRow) = objFile.Size
            .Range("D" & nLastRow) = objFile.Type
            .Range("E" & nLastRow) = objFile.DateCreated
            .Columns("A:E").AutoFit
       End With
    Next
 
    'Process all folders and subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

4. Այժմ կտտացրեք առաջին ենթածրագրին և սեղմեք «F5» ստեղնը:
5. Պատուհանի երկխոսության պատուհանում անցեք և ընտրեք Windows պանակ, որը ցանկանում եք ցուցակագրել ֆայլերը և կտտացրեք «Լավ»:
6. Ի վերջո, երբ մակրոն ավարտվի, վերադարձեք Excel- ի աշխատանքային թերթ: Բոլոր թղթապանակները Windows պանակում և դրա ենթապանակները ցուցակագրվել են, ինչպես ցույց է տրված հետևյալ նկարում:

Excel- ը ժամանակ առ ժամանակ վթարի է ենթարկվում

Ինչպես մյուս ծրագրերը, Excel-ը կարող է ժամանակ առ ժամանակ խափանվել, ինչը կարող է ուղղակիորեն ոչնչացնել ներկայումս բացված Excel ֆայլը: Նման դեպքերում օգտատերերի մեծամասնությունը կհուսի, որ Excel-ը կարող է ավտոմատ կերպով վերականգնել ֆայլը վերագործարկման ժամանակ: Այնուամենայնիվ, ավելի հաճախ իրականությունը այնպիսին չէ, ինչպիսին դուք սպասում եք: Այդ դեպքում անհրաժեշտ կլինի դիմել... Excel- ի նորոգում գործիք, ինչպես DataNumen Excel Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com