Excel-ийн ажлын хуудсанд Windows фолдерт байгаа бүх файлыг рекурсив байдлаар жагсаах 3 хурдан арга

Олон хэрэглэгчид Windows хавтас доторх бүх файлууд болон түүний бүх дэд хавтасуудыг Excel-ийн ажлын хуудсанд хурдан жагсаах шаардлагатай байдаг. Тиймээс бид энэхүү нийтлэлдээ үүнийг хэрэгжүүлэх хурдан 3 аргыг танилцуулах болно.

Хэрэв та Windows хавтас доторх бүх файлуудыг Excel-ийн ажлын хуудсанд рекурсив байдлаар жагсаахыг хүсвэл файлын нэрийг Excel-д гараар хуулах дургүй байх болно. Энэ нь хэтэрхий уйтгартай, цаг хугацаа шаарддаг нь эргэлзээгүй. Тиймээс бид танд илүү ухаалаг, илүү тохиромжтой 3 аргыг заах болно

Арга 1: Firefox эсвэл Google Chrome-ээр дамжуулан Windows хавтсанд файлуудыг жагсаах

1. Нэгдүгээрт, Windows Explorer дээр Windows-ийн тодорхой фолдерт нэвтэрч фолдерын замыг хуулж ав.
2. Дараа нь Firefox эсвэл Google Chrome ажиллуулна уу.
3. Дараа нь хуулж авсан фолдерынхаа замыг Интернет хөтөчийн хаягийн мөрөнд буулгана уу.
4. Үүний дараа “Enter” товчийг дарна уу.
5. Энэ Windows хавтас доторх бүх файлыг нэг дор хөтөч дээр жагсаах болно.
6. Дараа нь “Ctrl + A” товчийг дарж бүх агуулгыг сонгоод “” Ctrl + C ”товчийг дарна уу.
7. Эцэст нь тэдгээрийг Excel-ийн ажлын хуудсанд буулгана уу.

Арга 2: "Нэрийн менежер" -ээр дамжуулан Windows хавтас доторх файлуудыг жагсаах.

1. Эхлээд Excel-ийн шинэ ажлын хуудсыг үүсгээрэй.
2. Дараа нь A1 нүдийг сонгоно уу.
3. Дараа нь "Томъёо" таб руу ороод "Нэрийн менежер" товчийг дарна уу.
4. Гарч ирэх цонхны цонхонд “Шинэ” товчийг дарна уу.
5. Дараа нь дараагийн харилцах цонхонд “Нэр” талбарт “Файлууд” оруулна уу.
6. Мөн "Ишлэл:" талбар дахь "= Sheet1! $ A $ 1" -г "= FILES (Sheet1! $ A $ 1)" болгож өөрчил.
7. Үүний дараа "OK" дээр дараад "Name Manager" харилцах цонхыг хаах хэрэгтэй.
8. Дараа нь Windows хавтасны замыг A1 нүдэнд хуулж аваад “\* Гэж замын төгсгөлд бичнэ.
9. Дараа нь А3 нүдийг сонгоод "= INDEX (Files, ROW () - 2)" функцийг оруулна уу.
10. Дараахь зураг шиг энэ Windows хавтас доторх файлыг нэг дор жагсаах болно.
11. Эцэст нь энэ функцийг хэд хэдэн мөрөнд хуулж, бусад файлуудыг "#REF!" алдаа. Алдаа нь бүх файлуудыг жагсаасан гэсэн үг юм.

Арга 3: Excel хавтсаар дамжуулан Windows хавтас доторх файлуудыг рекурсив байдлаар жагсаах

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. mdf-ийг сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com