3 วิธีด่วนในการแสดงรายการไฟล์ทั้งหมดซ้ำ ๆ ในโฟลเดอร์ Windows ในแผ่นงาน Excel

โซลูชันของ Excel 3 ตุลาคม 2025

ผู้ใช้จำนวนมากจำเป็นต้องแสดงรายการไฟล์ทั้งหมดในโฟลเดอร์ Windows และโฟลเดอร์ย่อยทั้งหมดในแผ่นงาน Excel อย่างรวดเร็ว ดังนั้นในบทความนี้เราจะแนะนำ 3 วิธีที่รวดเร็วในการตระหนักถึงมัน

หากคุณต้องการแสดงรายการไฟล์ทั้งหมดซ้ำ ๆ ในโฟลเดอร์ Windows ในแผ่นงาน Excel คุณจะไม่ชอบคัดลอกชื่อไฟล์ไปยัง Excel ด้วยตนเอง ไม่ต้องสงสัยเลยว่ามันน่าเบื่อและใช้เวลานานเกินไป ดังนั้นที่นี่เราจะสอนคุณ 3 วิธีที่ชาญฉลาดและสะดวกสบายยิ่งขึ้น

วิธีที่ 1: แสดงรายการไฟล์ในโฟลเดอร์ Windows ผ่าน Firefox หรือ Google Chrome

ก่อนอื่นใน Windows Explorer ให้เข้าถึงโฟลเดอร์ Windows เฉพาะและคัดลอกเส้นทางโฟลเดอร์
จากนั้นเปิด Firefox หรือ Google Chrome
จากนั้นวางเส้นทางโฟลเดอร์ที่คัดลอกไว้ในแถบที่อยู่ของอินเทอร์เน็ตเบราว์เซอร์
หลังจากนั้นกดปุ่ม“ Enter”
ในครั้งเดียวไฟล์ทั้งหมดในโฟลเดอร์ Windows นี้จะแสดงรายการในเบราว์เซอร์
จากนั้นกด“ Ctrl + A” เพื่อเลือกเนื้อหาทั้งหมดและ“” Ctrl + C”” เพื่อคัดลอก
สุดท้ายวางลงในแผ่นงาน Excel

วิธีที่ 2: แสดงรายการไฟล์ในโฟลเดอร์ Windows ผ่าน“ ตัวจัดการชื่อ”

ในตอนแรกให้สร้างแผ่นงาน Excel ใหม่
จากนั้นเลือกเซลล์ A1
จากนั้นไปที่แท็บ "สูตร" แล้วคลิกปุ่ม "ตัวจัดการชื่อ"
ในกล่องโต้ตอบป๊อปอัปคลิกปุ่ม "ใหม่"
จากนั้นในกล่องโต้ตอบถัดไปให้ป้อน "ไฟล์" ในช่อง "ชื่อ"
และเปลี่ยน“ = Sheet1! $ A $ 1” เป็น“ = FILES (Sheet1! $ A $ 1)” ในฟิลด์“ Refers to:”
หลังจากนั้นคลิก“ ตกลง” และปิดกล่องโต้ตอบ“ ตัวจัดการชื่อ”
ต่อมาคัดลอกเส้นทางโฟลเดอร์ Windows ในเซลล์ A1 แล้วเพิ่ม“\*” ในตอนท้ายของเส้นทาง
จากนั้นเลือก Cell A3 และป้อนฟังก์ชัน“ = INDEX (Files, ROW () - 2)”
ในครั้งเดียวไฟล์ในโฟลเดอร์ Windows นี้จะแสดงรายการดังภาพต่อไปนี้
สุดท้ายเพียงคัดลอกฟังก์ชันนี้ลงหลาย ๆ แถวเพื่อแสดงรายการไฟล์อื่น ๆ จนกว่าคุณจะเห็น“ #REF!” ข้อผิดพลาด ข้อผิดพลาดหมายความว่ามีการแสดงรายการไฟล์ทั้งหมดแล้ว

วิธีที่ 3: แสดงรายการไฟล์ซ้ำในโฟลเดอร์ Windows ผ่าน Excel VBA

ขั้นแรก ให้สร้างไฟล์ Excel ใหม่
จากนั้นเข้าถึงตัวแก้ไข Excel VBA โดยอ้างอิงถึง“วิธีเรียกใช้รหัส VBA ใน Excel ของคุณ"
จากนั้นคัดลอกโค้ดต่อไปนี้ลงในโปรเจ็กต์“ 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

ตอนนี้คลิกเข้าไปในรูทีนย่อยแรกแล้วกดปุ่ม“ F5”
ในกล่องโต้ตอบป๊อปอัปไปที่และเลือกโฟลเดอร์ Windows ที่คุณต้องการแสดงรายการไฟล์จากนั้นคลิก“ ตกลง”
ในที่สุดเมื่อแมโครเสร็จสิ้นให้กลับไปที่แผ่นงาน Excel ไฟล์ทั้งหมดในโฟลเดอร์ Windows และโฟลเดอร์ย่อยได้รับการแสดงรายการดังที่แสดงในภาพหน้าจอต่อไปนี้

Excel ขัดข้องเป็นครั้งคราว

เช่นเดียวกับซอฟต์แวร์อื่นๆ Excel ก็อาจเกิดข้อผิดพลาดได้เป็นครั้งคราว ซึ่งอาจทำให้ไฟล์ Excel ที่เปิดอยู่เสียหายได้ ในกรณีเช่นนี้ ผู้ใช้ส่วนใหญ่หวังว่า Excel จะสามารถกู้คืนไฟล์ได้โดยอัตโนมัติเมื่อเริ่มต้นใหม่ อย่างไรก็ตาม บ่อยครั้งที่ความเป็นจริงไม่เป็นเช่นนั้น ในกรณีเช่นนี้ การใช้วิธีแก้ไขปัญหาจึงเป็นสิ่งจำเป็น ซ่อมแซม Excel เครื่องมือเช่น DataNumen Excel Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.