3 სწრაფი მეთოდი, რათა რეკურსიულად ჩამოაყალიბოთ ყველა ფაილი Windows საქაღალდეში Excel-ის სამუშაო ფურცელში

ბევრ მომხმარებელს სჭირდება სწრაფად ჩამოთვალოს ყველა ფაილი Windows საქაღალდეში და ყველა მისი ქვესაქაღალდე Excel-ის სამუშაო ფურცელში. ამიტომ, ამ სტატიაში გაგაცნობთ მის რეალიზების 3 სწრაფ გზას.

თუ გსურთ Windows-ის საქაღალდეში არსებული ყველა ფაილის რეკურსიულად ჩამოთვლა Excel-ის სამუშაო ფურცელში, ნამდვილად არ მოგწონთ ფაილის სახელების 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 საქაღალდეში „Name Manager“-ის მეშვეობით

1. თავდაპირველად შექმენით ახალი Excel სამუშაო ფურცელი.
2. შემდეგ აირჩიეთ უჯრედი A1.
3. შემდეგი, გადადით "ფორმულების" ჩანართზე და დააჭირეთ ღილაკს "სახელების მენეჯერი".
4. ფანჯარაში, რომელიც გამოჩნდება, დააჭირეთ ღილაკს "ახალი".
5. შემდეგ, შემდეგ დიალოგურ ფანჯარაში, შეიყვანეთ "ფაილები" "სახელი" ველში.
6. და შეცვალეთ „=Sheet1!$A$1“-ით „=FILES(Sheet1!$A$1)“ ველში „Refers to:“.
7. ამის შემდეგ დააჭირეთ ღილაკს "OK" და დახურეთ "Name Manager" დიალოგური ფანჯარა.
8. მოგვიანებით დააკოპირეთ Windows საქაღალდის გზა Cell A1-ში და დაამატეთ “\*” ბილიკის ბოლოს.
9. შემდეგი, აირჩიეთ უჯრედი A3 და შეიყვანეთ ფუნქცია "=INDEX(Files,ROW()-2)".
10. ერთბაშად გამოჩნდება ფაილი ამ Windows საქაღალდეში, როგორც შემდეგი სურათი.
11. დაბოლოს, უბრალოდ დააკოპირეთ ეს ფუნქცია რამდენიმე რიგში, რათა ჩამოთვალოთ სხვა ფაილები, სანამ არ დაინახავთ "#REF!" შეცდომა. შეცდომა ნიშნავს, რომ ყველა ფაილი ჩამოთვლილია.

მეთოდი 3: რეკურსიულად ჩამოთვალეთ ფაილები Windows საქაღალდეში Excel VBA-ის საშუალებით

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 საქაღალდე, საიდანაც გსურთ ფაილების სია და დააწკაპუნეთ "OK".
6. საბოლოოდ, როდესაც მაკრო დასრულდება, დაუბრუნდით Excel-ის სამუშაო ფურცელს. Windows საქაღალდეში და მის ქვესაქაღალდეში არსებული ყველა ფაილი ჩამოთვლილია, როგორც ნაჩვენებია შემდეგ ეკრანის სურათზე.

Excel დროდადრო იშლება

სხვა პროგრამული უზრუნველყოფის მსგავსად, Excel-მაც შეიძლება დროდადრო გაითიშოს, რამაც შეიძლება პირდაპირ გაანადგუროს ამჟამად გახსნილი Excel ფაილი. ასეთ შემთხვევებში, მომხმარებელთა უმეტესობა იმედოვნებს, რომ Excel ავტომატურად აღადგენს ფაილს გადატვირთვისას. თუმცა, უმეტეს შემთხვევაში, რეალობა ისეთი არ არის, როგორსაც ელოდით. ​​ამ შემთხვევაში, აუცილებელი იქნება მიმართოთ... Excel-ის შეკეთება ინსტრუმენტი, როგორიცაა DataNumen Excel Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად