3 phương pháp nhanh để liệt kê đệ quy tất cả các tệp trong thư mục Windows trong trang tính Excel

Giải pháp Excel 3 Tháng Mười

Nhiều người dùng cần nhanh chóng liệt kê tất cả các tệp trong một thư mục Windows và tất cả các thư mục con của nó trong một trang tính Excel. Vì vậy, trong bài viết này, chúng tôi sẽ giới thiệu cho bạn 3 cách nhanh chóng để nhận ra điều đó.

Nếu bạn muốn liệt kê đệ quy tất cả các tệp trong thư mục Windows trong trang tính Excel, chắc chắn bạn sẽ không thích sao chép tên tệp vào Excel theo cách thủ công. Không còn nghi ngờ gì nữa, nó quá tẻ nhạt và tốn thời gian. Do đó, sau đây chúng tôi sẽ hướng dẫn bạn 3 cách tiếp cận thông minh và tiện lợi hơn rất nhiều

Phương pháp 1: Liệt kê các tệp trong thư mục Windows qua Firefox hoặc Google Chrome

Trước hết, trong Windows Explorer, truy cập thư mục Windows cụ thể và sao chép đường dẫn thư mục.
Sau đó, khởi chạy Firefox hoặc Google Chrome.
Tiếp theo, dán đường dẫn thư mục đã sao chép vào thanh địa chỉ của Trình duyệt Internet.
Sau đó, nhấn phím “Enter”.
Đồng thời, tất cả các tệp trong thư mục Windows này sẽ được liệt kê trong trình duyệt.
Sau đó, nhấn “Ctrl + A” để chọn tất cả nội dung và “”Ctrl + C”” để sao chép chúng.
Cuối cùng, dán chúng vào một trang tính Excel.

Phương pháp 2: Liệt kê các tệp trong thư mục Windows thông qua “Trình quản lý tên”

Đầu tiên, hãy tạo một trang tính Excel mới.
Sau đó, chọn Ô A1.
Tiếp theo, chuyển đến tab “Công thức” và nhấp vào nút “Trình quản lý tên”.
Trong hộp thoại bật lên, nhấp vào nút “Mới”.
Sau đó, trong hộp thoại tiếp theo, hãy nhập “Tệp” vào trường “Tên”.
Và thay đổi “=Sheet1!$A$1” thành “=FILES(Sheet1!$A$1)” trong trường “Refers to:”.
Sau đó, nhấp vào “OK” và đóng hộp thoại “Trình quản lý tên”.
Sau đó, sao chép đường dẫn thư mục Windows trong Ô A1 và thêm “\*” ở cuối đường dẫn.
Tiếp theo, chọn Ô A3 và nhập hàm “=INDEX(Files,ROW()-2)”.
Ngay lập tức, một tệp trong thư mục Windows này sẽ được liệt kê, giống như hình ảnh sau đây.
Cuối cùng, chỉ cần sao chép chức năng này xuống một số hàng để liệt kê các tệp khác cho đến khi bạn thấy “#REF!” lỗi. Lỗi có nghĩa là tất cả các tệp đã được liệt kê.

Phương pháp 3: Liệt kê đệ quy các tệp trong thư mục Windows qua Excel VBA

Trước tiên, hãy tạo một tệp Excel mới.
Tiếp theo, truy cập trình soạn thảo VBA của Excel có tham chiếu đến “Cách chạy mã VBA trong Excel của bạn".
Sau đó, sao chép đoạn mã sau vào dự án “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

Bây giờ, nhấp vào chương trình con đầu tiên và nhấn phím “F5”.
Trong hộp thoại bật lên, điều hướng đến và chọn thư mục Windows mà bạn muốn liệt kê các tệp từ đó và nhấp vào “OK”.
Cuối cùng, khi macro kết thúc, hãy quay lại trang tính Excel. Tất cả các tệp trong thư mục Windows và các thư mục con của nó đã được liệt kê, như minh họa trong ảnh chụp màn hình sau.

Excel gặp sự cố theo thời gian

Cũng giống như các phần mềm khác, Excel đôi khi có thể bị lỗi, dẫn đến việc mất dữ liệu đang mở trong tệp Excel. Trong những trường hợp như vậy, đa số người dùng hy vọng Excel có thể tự động khôi phục tệp khi khởi động lại. Tuy nhiên, thực tế thường không như bạn mong đợi. Khi đó, việc sử dụng một phần mềm hỗ trợ sẽ trở nên cần thiết. sửa excel công cụ, như DataNumen Excel Repair.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm