Excel İş Vərəqində Windows Qovluğunda Bütün Faylları Rekursiv Siyahıya Vermək üçün 3 Sürətli Metod

Bir çox istifadəçi Windows qovluğundakı bütün faylları və onun bütün alt qovluqlarını Excel iş vərəqində tez siyahıya almalıdır. Buna görə də, bu yazıda sizə bunu həyata keçirməyin 3 sürətli yolunu təqdim edəcəyik.

Excel iş vərəqində Windows qovluğunda olan bütün faylları rekursiv olaraq siyahıya salmaq istəyirsinizsə, şübhəsiz ki, fayl adlarını Excel-ə əl ilə köçürməkdən xoşunuza gəlməyəcək. Şübhəsiz ki, bu, çox yorucu və vaxt aparır. Beləliklə, burada sizə daha ağıllı və daha rahat 3 yanaşma öyrədəcəyik

Metod 1: Firefox və ya Google Chrome vasitəsilə Windows qovluğunda faylları siyahıya salın

1. Əvvəlcə Windows Explorer-də xüsusi Windows qovluğuna daxil olun və qovluq yolunu kopyalayın.
2. Sonra Firefox və ya Google Chrome-u işə salın.
3. Sonra, kopyalanan qovluq yolunu İnternet Brauzerinin ünvan çubuğuna yapışdırın.
4. Bundan sonra "Enter" düyməsini basın.
5. Bir anda, bu Windows qovluğundakı bütün fayllar brauzerdə siyahıya alınacaq.
6. Sonra bütün məzmunu seçmək üçün "Ctrl + A" və onları kopyalamaq üçün ""Ctrl + C" düymələrini basın.
7. Nəhayət, onları Excel iş vərəqinə yapışdırın.

Metod 2: "Ad meneceri" vasitəsilə Windows qovluğunda faylları siyahıya salın

1. Əvvəlcə yeni Excel iş səhifəsi yaradın.
2. Sonra A1 Hüceyrəsini seçin.
3. Sonra, "Formullar" sekmesine keçin və "Ad Meneceri" düyməsini basın.
4. Açılan informasiya qutusunda "Yeni" düyməsini basın.
5. Sonra, növbəti dialoq qutusunda "Ad" sahəsinə "Fayllar" daxil edin.
6. Və “Refers to:” sahəsində “=Sheet1!$A$1”-i “=FILES(Sheet1!$A$1)” olaraq dəyişin.
7. Sonra "OK" düyməsini basın və "Ad Meneceri" informasiya qutusunu bağlayın.
8. Daha sonra, A1 Hüceyrəsinə Windows qovluq yolunu kopyalayın və əlavə edin "\*" yolun sonunda.
9. Sonra A3 xanasını seçin və “=INDEX(Fayllar,ROW()-2)” funksiyasını daxil edin.
10. Dərhal bu Windows qovluğunda bir fayl aşağıdakı şəkildəki kimi siyahıya alınacaq.
11. Nəhayət, “#REF!” işarəsini görənə qədər digər faylları siyahıya almaq üçün bu funksiyanı bir neçə sıra aşağıya köçürün. səhv. Səhv bütün faylların siyahıya alındığını bildirir.

Metod 3: Excel VBA vasitəsilə Windows Qovluğunda faylları rekursiv siyahıya alın

1. Başlamaq üçün yeni bir Excel faylı yaradın.
2. Sonra, “Excel VBA redaktoruna istinadla daxil olun.Excel-də VBA kodunu necə işlətmək olar".
3. Sonra aşağıdakı kodu “ThisWorkbook” layihəsinə köçürün.

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. İndi ilk alt proqrama klikləyin və "F5" düyməsini basın.
5. Açılan informasiya qutusunda faylları siyahıya almaq istədiyiniz Windows qovluğuna gedin və seçin və "OK" düyməsini basın.
6. Nəhayət, makro bitdikdən sonra Excel iş vərəqinə qayıdın. Windows qovluğundakı bütün fayllar və onun alt qovluqları aşağıdakı ekran görüntüsündə göstərildiyi kimi siyahıya alınmışdır.

Excel vaxtaşırı çökür

Digər proqram təminatları kimi, Excel də ara-sıra sıradan çıxa bilər ki, bu da hazırda açılmış Excel faylını birbaşa məhv edə bilər. Belə hallarda, istifadəçilərin əksəriyyəti Excel-in yenidən başladıqda faylı avtomatik bərpa edə biləcəyinə ümid edəcəklər. Lakin, əksər hallarda reallıq gözlədiyiniz kimi olmur. O zaman, bir proqrama müraciət etmək vacib olardı Excel təmiri alət kimi DataNumen Excel Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com