3 Metoda të shpejta për të renditur në mënyrë rekursive të gjithë skedarët në një dosje Windows në fletën e punës Excel

Shumë përdorues duhet të listojnë shpejt të gjithë skedarët në një dosje Windows dhe të gjithë nëndosjet e tij në një fletë pune Excel. Prandaj, në këtë artikull do t'ju prezantojmë 3 mënyra të shpejta për ta realizuar atë.

Nëse dëshironi të listoni në mënyrë rekursive të gjithë skedarët në një dosje Windows në një fletë pune Excel, me siguri nuk do t'ju pëlqejë kopjimi manual i emrave të skedarëve në Excel. Pa dyshim, është shumë e lodhshme dhe kërkon shumë kohë. Prandaj, këtu do t'ju mësojmë 3 qasje shumë më të zgjuara dhe më të përshtatshme

Metoda 1: Listoni skedarët në një dosje Windows përmes Firefox ose Google Chrome

1. Së pari, në Windows Explorer, hyni në dosjen specifike të Windows dhe kopjoni shtegun e dosjes.
2. Pastaj, hapni Firefox ose Google Chrome.
3. Më pas, ngjitni shtegun e dosjes së kopjuar në shiritin e adresave të Shfletuesit të Internetit.
4. Pas kësaj, shtypni butonin "Enter".
5. Menjëherë, të gjithë skedarët në këtë dosje Windows do të renditen në shfletues.
6. Më pas, shtypni "Ctrl + A" për të zgjedhur të gjitha përmbajtjet dhe ""Ctrl + C" për t'i kopjuar ato.
7. Së fundi, ngjitini ato në një fletë pune në Excel.

Metoda 2: Listoni skedarët në një dosje të Windows përmes "Name Manager"

1. Në fillim, krijoni një fletë të re pune në Excel.
2. Pastaj, zgjidhni Cell A1.
3. Tjetra, shkoni te skedari "Formulat" dhe klikoni butonin "Menaxheri i emrit".
4. Në kutinë e dialogut që shfaqet, klikoni butonin "I ri".
5. Më pas, në kutinë e dialogut tjetër, futni "Files" në fushën "Emri".
6. Dhe ndryshoni “=Sheet1!$A$1” në “=FILES(Sheet1!$A$1)” në fushën “I referohet:”.
7. Më pas, klikoni "OK" dhe mbyllni kutinë e dialogut "Name Manager".
8. Më vonë, kopjoni shtegun e dosjes Windows në Cell A1 dhe shtoni "\*” në fund të shtegut.
9. Më pas, zgjidhni qelizën A3 dhe futni funksionin "=INDEX(Files,ROW()-2)".
10. Menjëherë, një skedar në këtë dosje të Windows do të renditet, si imazhi i mëposhtëm.
11. Më në fund, thjesht kopjoni këtë funksion në disa rreshta për të renditur skedarët e tjerë derisa të shihni "#REF!" gabim. Gabim do të thotë që të gjithë skedarët janë renditur.

Metoda 3: Lista rekursive e skedarëve në një dosje të Windows përmes Excel VBA

1. Për të filluar, krijoni një skedar të ri Excel.
2. Tjetra, hyni në redaktorin Excel VBA duke iu referuar "Si të ekzekutoni kodin VBA në Excel".
3. Më pas, kopjoni kodin e mëposhtëm në projektin "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. Tani, klikoni në nënprogramin e parë dhe shtypni butonin "F5".
5. Në kutinë e dialogut që shfaqet, lundroni dhe zgjidhni një dosje të Windows nga e cila dëshironi të listoni skedarët dhe klikoni "OK".
6. Përfundimisht, kur makro të përfundojë, kthehuni në fletën e punës Excel. Të gjithë skedarët në dosjen e Windows dhe nëndosjet e tij janë renditur, siç tregohet në pamjen e mëposhtme të ekranit.

Excel rrëzohet herë pas here

Ashtu si programet e tjera, Excel mund të bllokohet herë pas here, gjë që mund të shkatërrojë drejtpërdrejt skedarin Excel që është aktualisht i hapur. Në raste të tilla, shumica e përdoruesve do të shpresojnë që Excel mund ta rikuperojë automatikisht skedarin pas rinisjes. Megjithatë, më shpesh, realiteti nuk është ashtu siç prisni. Atëherë, do të ishte thelbësore të përdornit një Riparimi i Excel-it mjet, si DataNumen Excel Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com