Note: The other languages of the website are Google-translated. Back to English
English English

จะนำเข้าชื่อไฟล์หลายชื่อลงในเซลล์ใน 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 สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (14)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hey,
ฉันมีแผ่นงาน ecxel ที่มีชื่อผลิตภัณฑ์ และยังมีโฟลเดอร์ที่มีไฟล์ pdf บางไฟล์ที่มีชื่อเหมือนกับในข้อมูลเซลล์ เช่น ถ้าค่าของเซลล์ A2 คือ apple1 ชื่อไฟล์ Pdf คือ apple1.pdf ฉันอยากรู้ว่าชื่ออะไร ไฟล์หาย หาใน excel ได้ไหม..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคุณมิก
ขั้นแรก คุณสามารถใช้โค้ดด้านบนเพื่อแทรกชื่อไฟล์ลงในเวิร์กชีต แสดงรายการชื่อไฟล์สองคอลัมน์ลงในเวิร์กชีตเดียว จากนั้นคุณสามารถใช้คุณลักษณะ Select Same & Different cells ของ Kutools เพื่อระบุและเน้นชื่อไฟล์ที่ขาดหายไป ดูภาพหน้าจอ :

โปรดลอง ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไฟล์ชื่อ Apakah bisa กับ excel?
terimakasih sangat membantu perkerjaan สยา,
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
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?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ. มันสุดยอดมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับรหัส VBA คุณจะดึงวันที่แก้ไขด้วยว่าอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
เพิ่มคอลัมน์วันที่แก้ไขสำหรับชื่อไฟล์ที่นำเข้า โปรดใช้รหัส VBA ต่อไปนี้ โปรดลองใช้ หวังว่ามันจะช่วยคุณได้!

ย่อย GetFileList()
Dim xFSO เป็นวัตถุ
Dim xFolder เป็นวัตถุ
Dim xFile เป็นวัตถุ
Dim xFiDialog เป็น FileDialog
Dim xPath เป็นสตริง
Dim ฉันเป็นจำนวนเต็ม
ตั้งค่า xFiDialog = Application.FileDialog (msoFileDialogFolderPicker)
ถ้า xFiDialog.Show = -1 แล้ว
xPath = xFiDialog.SelectedItems(1)
End If
ตั้งค่า xFiDialog = Nothing
ถ้า xPath = "" ให้ออกจาก Sub
ตั้งค่า xFSO = CreateObject("Scripting.FileSystemObject")
ตั้งค่า xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells (1, 1) = "ชื่อโฟลเดอร์"
ActiveSheet.Cells (1, 2) = "ชื่อไฟล์"
ActiveSheet.Cells (1, 3) = "นามสกุลไฟล์"
ActiveSheet.Cells(1, 4) = "วันที่แก้ไขล่าสุด"
i = 1
สำหรับแต่ละ xFile ใน xFolder.Files
ผม = ผม + 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)
ต่อไป
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใส่เส้นทางโฟลเดอร์ในรหัสหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการพูดถึงเฉพาะชื่อโฟลเดอร์ รหัส vba สำหรับสิ่งนั้นคืออะไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการเพิ่มตาราง เฉพาะชื่อโฟลเดอร์ และข้อมูลที่แก้ไขด้วยหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
คุณต้องการแสดงรายการชื่อโฟลเดอร์ทั้งหมดจากโฟลเดอร์หลักเฉพาะหรือไม่? กรุณาให้รายละเอียดปัญหาของคุณมากขึ้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีที่ง่ายอีกวิธีหนึ่ง เพียงคัดลอกเส้นทางไดเรกทอรีที่คุณบันทึกเอกสาร และวางลิงก์นั้นในเบราว์เซอร์ (chrome/mozilla) คุณจะได้รับรายชื่อและเพียงแค่คัดลอกและวางลงใน excel ไชโย!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก Tnx มาก
ได้รับคะแนน 5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ