ไปยังเนื้อหาหลัก

จะนำเข้าชื่อไฟล์หลายชื่อลงในเซลล์ใน 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 คีย์เพื่อรันโค้ดนี้และในหน้าต่างเรียกดูที่โผล่ออกมาให้เลือกโฟลเดอร์ที่คุณต้องการนำเข้าแบบฟอร์มชื่อไฟล์ดูภาพหน้าจอ:

ชื่อไฟล์นำเข้า doc 1

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

ชื่อไฟล์นำเข้า doc 2

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


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

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

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. 

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

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

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

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

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

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

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

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

ชื่อไฟล์นำเข้า doc 4

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

ชื่อไฟล์นำเข้า doc 6

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

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณสมบัติรายการชื่อไฟล์นี้ ...

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


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

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

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

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

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (14)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
very helpful. Tnx much
Rated 5 out of 5
This comment was minimized by the moderator on the site
Another easy method is there. Just copy the directory path where you have saved the documents, and paste that link in browser (chrome/mozilla). You will get the name list and just copy paste into excel. Cheers!
This comment was minimized by the moderator on the site
i want to add table,only folder name,and data modified as well?
This comment was minimized by the moderator on the site
Hello,
Do you want to list all folder names from a specific main folder? Please give your problem more detailed.
This comment was minimized by the moderator on the site
i want to mention only folder name.what is vba code for that.
This comment was minimized by the moderator on the site
is there a way to put the folder path already in the code?
This comment was minimized by the moderator on the site
For the VBA code, how would you pull in the date modified as well?
This comment was minimized by the moderator on the site
Hello,
Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

Sub GetFileList()
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"
ActiveSheet.Cells(1, 4) = "Date last modified"
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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Next
End Sub
This comment was minimized by the moderator on the site
Thanks. It was awesome
This comment was minimized by the moderator on the site
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
This comment was minimized by the moderator on the site
Apakah bisa merename file dengan excel?
terimakasih sangat membantu perkerjaan saya,
This comment was minimized by the moderator on the site
Very helpful, thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations