จะนำเข้าชื่อไฟล์หลายชื่อลงในเซลล์ใน Excel ได้อย่างไร?

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

นำเข้าชื่อไฟล์หลายชื่อลงในเซลล์แผ่นงานด้วยรหัส VBA

นำเข้าชื่อไฟล์หลายชื่อลงในเซลล์แผ่นงานด้วย Kutools for Excel

นำเข้าชื่อไฟล์หลายชื่อลงในเซลล์แผ่นงานด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณนำเข้าชื่อไฟล์นามสกุลไฟล์และชื่อโฟลเดอร์ลงในเซลล์แผ่นงานได้โปรดทำตามขั้นตอนต่อไปนี้:

1. เปิดแผ่นงานใหม่ที่คุณต้องการนำเข้าชื่อไฟล์

2. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: นำเข้าชื่อไฟล์หลายชื่อลงในเซลล์ของแผ่นงาน

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. จากนั้นกด F5 คีย์เพื่อรันโค้ดนี้และในหน้าต่างเรียกดูที่โผล่ออกมาให้เลือกโฟลเดอร์ที่คุณต้องการนำเข้าแบบฟอร์มชื่อไฟล์ดูภาพหน้าจอ:

5. จากนั้นคลิก OK และคุณจะได้รับผลลัพธ์ต่อไปนี้:

หมายเหตุ： หากมีโฟลเดอร์ย่อยภายในโฟลเดอร์เฉพาะของคุณชื่อไฟล์ในโฟลเดอร์ย่อยจะไม่ถูกนำเข้า

นำเข้าชื่อไฟล์หลายชื่อลงในเซลล์แผ่นงานด้วย Kutools for Excel

หากคุณต้องการนำเข้าชื่อไฟล์ทั้งในโฟลเดอร์และโฟลเดอร์ย่อยโปรดอย่ากังวลด้วย Kutools สำหรับ Excel's รายการชื่อไฟล์ ยูทิลิตี้คุณสามารถนำเข้าชื่อไฟล์ทั้งหมดในโฟลเดอร์เฉพาะรวมถึงโฟลเดอร์ย่อยได้อย่างง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. คลิก Kutools พลัส> นำเข้าส่งออก > รายการชื่อไฟล์ดูภาพหน้าจอ:

2. ใน รายการชื่อไฟล์ ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

(1. ) คลิก ปุ่มเพื่อเลือกโฟลเดอร์ที่มีไฟล์ที่คุณต้องการนำเข้า

(2. ) ตรวจสอบ รวมไฟล์ในไดเรกทอรีย่อย เพื่อนำเข้าชื่อไฟล์ของโฟลเดอร์ย่อย

(3. ) ระบุประเภทไฟล์ที่คุณต้องการนำเข้าในส่วน ประเภทไฟล์ มาตรา;

(4. ) เลือกหนึ่งหน่วยขนาดไฟล์ที่คุณต้องการแสดงจากไฟล์ หน่วยขนาดไฟล์ มาตรา;

(5. ) หากคุณต้องการไฮเปอร์ลิงก์ชื่อไฟล์และโฟลเดอร์โปรดตรวจสอบ สร้างไฮเปอร์ลิงก์ ตัวเลือก

3. หลังจากเสร็จสิ้นการตั้งค่าโปรดคลิก OK และชื่อไฟล์ทั้งในโฟลเดอร์และโฟลเดอร์ย่อยจะถูกนำเข้าสู่แผ่นงานใหม่ดังภาพหน้าจอต่อไปนี้:

เคล็ดลับ: หากคุณต้องการนำเข้าชื่อไฟล์ประเภทที่ระบุจากโฟลเดอร์ใดโฟลเดอร์หนึ่งคุณสามารถตรวจสอบได้ ระบุ ตัวเลือกใน รายการชื่อไฟล์ และพิมพ์นามสกุลไฟล์ลงไปจากนั้นจะนำเข้าเฉพาะชื่อไฟล์ประเภทที่ระบุจากทั้งโฟลเดอร์และโฟลเดอร์ย่อย

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

บทความที่เกี่ยวข้อง:

จะแสดงรายการไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยลงในแผ่นงานได้อย่างไร?

จะแสดงชื่อไฟล์ทั้งหมดในโฟลเดอร์และสร้างไฮเปอร์ลิงก์ใน Excel ได้อย่างไร?