Excel ish varag'idagi Windows papkasidagi barcha fayllarni rekursiv ro'yxatga olishning 3 ta tezkor usuli

Ko'pgina foydalanuvchilar Windows papkasidagi barcha fayllarni va uning barcha pastki papkalarini Excel ish varag'ida tezda ro'yxatga olishlari kerak. Shuning uchun, ushbu maqolada biz sizga buni amalga oshirishning 3 tezkor usulini taqdim etamiz.

Agar siz Excel ish varag'idagi Windows papkasidagi barcha fayllarni rekursiv ro'yxatga olishni istasangiz, fayl nomlarini Excelga qo'lda nusxalashni yoqtirmasligingiz aniq. Shubhasiz, bu juda zerikarli va vaqt talab qiladi. Shunday qilib, bu erda biz sizga 3 ta ancha aqlli va qulayroq yondashuvni o'rgatamiz

1-usul: Firefox yoki Google Chrome orqali Windows papkasida fayllarni ro'yxatlash

1. Birinchidan, Windows Explorer-da ma'lum Windows papkasiga kiring va papka yo'lini nusxalang.
2. Keyin Firefox yoki Google Chrome-ni ishga tushiring.
3. Keyin, ko'chirilgan papka yo'lini Internet-brauzerning manzil satriga joylashtiring.
4. Shundan so'ng, "Enter" tugmasini bosing.
5. Bir vaqtning o'zida ushbu Windows papkasidagi barcha fayllar brauzerda ro'yxatga olinadi.
6. Keyin barcha tarkibni tanlash uchun "Ctrl + A" tugmalarini bosing va ularni nusxalash uchun "" Ctrl + C " tugmalarini bosing.
7. Nihoyat, ularni Excel ish varag'iga joylashtiring.

2-usul: "Ism menejeri" orqali Windows papkasidagi fayllarni ro'yxatlash

1. Avvaliga yangi Excel ish varag'ini yarating.
2. Keyin A1 katakchasini tanlang.
3. Keyin "Formulalar" yorlig'iga o'ting va "Ism menejeri" tugmasini bosing.
4. Ochilgan dialog oynasida "Yangi" tugmasini bosing.
5. Keyinchalik, keyingi dialog oynasida "Ism" maydoniga "Fayllar" ni kiriting.
6. Va “Refers to:” maydonida “=Sheet1!$A$1”ni “=FILES(Sheet1!$A$1)” ga o‘zgartiring.
7. Shundan so'ng, "OK" tugmasini bosing va "Ism menejeri" dialog oynasini yoping.
8. Keyinchalik, A1 uyasiga Windows papkasining yo'lini ko'chiring va "qo'shing"\*" yo'lning oxirida.
9. Keyin A3 katakchasini tanlang va “=INDEX(Fayllar, QAT()-2)” funksiyasini kiriting.
10. Bir vaqtning o'zida ushbu Windows papkasidagi fayl quyidagi rasm kabi ro'yxatga olinadi.
11. Nihoyat, “#REF!” ni ko'rmaguningizcha, boshqa fayllarni ro'yxatga olish uchun ushbu funksiyani bir necha qatorga nusxalash kifoya. xato. Xato barcha fayllar ro'yxatga olinganligini bildiradi.

3-usul: Excel VBA orqali Windows papkasidagi fayllarni rekursiv ro'yxatlash

1. Boshlash uchun yangi Excel faylini yarating.
2. Keyin, “Excel VBA muharririga” havola orqali kiring.Excel-da VBA kodini qanday ishlatish kerak".
3. Keyin, quyidagi kodni "ThisWorkbook" loyihasiga nusxalang.

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. Endi birinchi pastki dasturni bosing va "F5" tugmasini bosing.
5. Qalqib chiquvchi dialog oynasida fayllar ro'yxatini kiritmoqchi bo'lgan Windows jildiga o'ting va tanlang va "OK" tugmasini bosing.
6. Oxir-oqibat, makros tugagach, Excel ish varag'iga qayting. Quyidagi skrinshotda ko'rsatilganidek, Windows papkasidagi barcha fayllar va uning pastki papkalari ro'yxatga olingan.

Excel vaqti-vaqti bilan ishlamay qoladi

Boshqa dasturlar singari, Excel vaqti-vaqti bilan ishdan chiqishi mumkin, bu esa ochilgan Excel faylini to'g'ridan-to'g'ri yo'q qilishi mumkin. Bunday hollarda, foydalanuvchilar aksariyati Excel qayta ishga tushirilganda faylni avtomatik ravishda tiklay olishiga umid qilishadi. Biroq, ko'pincha haqiqat siz kutgandek bo'lmaydi. Keyin, murojaat qilish juda muhim bo'ladi excel-ta'mirlash asbob, kabi DataNumen Excel Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com