3 brze metode za rekurzivnu listu svih datoteka u Windows folderu u Excel radnom listu

Mnogi korisnici moraju brzo da navedu sve datoteke u Windows folderu i sve njegove podmape u Excel radnom listu. Stoga ćemo vam u ovom članku predstaviti 3 brza načina da to ostvarite.

Ako želite rekurzivno izlistati sve datoteke u Windows folderu u Excel radnom listu, sigurno vam se neće svidjeti ručno kopiranje naziva datoteka u Excel. Bez sumnje, to je previše zamorno i dugotrajno. Dakle, ovdje ćemo vas naučiti 3 mnogo pametnija i praktičnija pristupa

Metoda 1: Navedite datoteke u Windows folderu putem Firefoxa ili Google Chrome-a

1. Prvo, u Windows Exploreru, pristupite određenoj Windows fascikli i kopirajte putanju fascikle.
2. Zatim pokrenite Firefox ili Google Chrome.
3. Zatim zalijepite kopiranu putanju mape u adresnu traku Internet pretraživača.
4. Nakon toga pritisnite taster “Enter”.
5. Odjednom će sve datoteke u ovom Windows folderu biti navedene u pretraživaču.
6. Zatim pritisnite “Ctrl + A” da odaberete sav sadržaj i “”Ctrl + C”” da ih kopirate.
7. Na kraju, zalijepite ih na Excel radni list.

Metoda 2: Lista datoteka u Windows folderu preko “Upravitelja imena”

1. Prvo kreirajte novi Excel radni list.
2. Zatim odaberite Ćeliju A1.
3. Zatim idite na karticu "Formule" i kliknite na dugme "Upravitelj imena".
4. U iskačućem dijaloškom okviru kliknite na dugme „Novo“.
5. Nakon toga, u sljedećem dijaloškom okviru, unesite “Files” u polje “Name”.
6. I promijenite “=Sheet1!$A$1” u “=FILES(Sheet1!$A$1)” u polju “Odnosi se na:”.
7. Nakon toga kliknite na “OK” i zatvorite dijaloški okvir “Upravitelj imena”.
8. Kasnije kopirajte putanju Windows foldera u ćeliju A1 i dodajte “\*” na kraju staze.
9. Zatim odaberite ćeliju A3 i unesite funkciju “=INDEX(Files,ROW()-2)”.
10. Odjednom će se prikazati datoteka u ovoj Windows mapi, kao na sljedećoj slici.
11. Konačno, samo kopirajte ovu funkciju nekoliko redova dolje kako biste izlistali ostale datoteke dok ne vidite “#REF!” greška. Greška znači da su svi fajlovi navedeni.

Metod 3: Rekurzivno navedite datoteke u Windows folderu preko Excel VBA

1. Za početak, kreirajte novu Excel datoteku.
2. Zatim pristupite Excel VBA uređivaču s referencom na “Kako pokrenuti VBA kod u vašem Excelu".
3. Zatim kopirajte sljedeći kod u projekt “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. Sada kliknite na prvu potprogramu i pritisnite tipku “F5”.
5. U iskačućem dijaloškom okviru idite do i odaberite Windows fasciklu iz koje želite da prikažete datoteke i kliknite na “OK”.
6. Na kraju, kada se makro završi, vratite se na Excel radni list. Sve datoteke u Windows folderu i njegovim podmapama su navedene, kao što je prikazano na sljedećem snimku ekrana.

Excel se s vremena na vrijeme ruši

Kao i drugi softver, Excel se ponekad može srušiti, što može direktno uništiti trenutno otvorenu Excel datoteku. U takvim slučajevima, većina korisnika će se nadati da Excel može automatski oporaviti datoteku prilikom ponovnog pokretanja. Međutim, stvarnost češće nije onakva kakvu očekujete. Tada bi bilo neophodno pribjeći Excel popravka alat, kao DataNumen Excel Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com