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

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

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

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

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

หากต้องการแสดงรายการและสร้างไฮเปอร์ลิงก์พร้อมไฟล์จากโฟลเดอร์รหัส VBA ต่อไปนี้สามารถช่วยคุณได้

1. เปิดใช้งานแผ่นงานใหม่เพื่อใส่ผลลัพธ์

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

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

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

Sub Example1()
'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)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

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

5. หลังจากระบุโฟลเดอร์แล้วให้คลิก OK และไฟล์ทั้งหมดในโฟลเดอร์ที่ระบุไว้ในแผ่นงานที่ใช้งานอยู่พร้อมไฮเปอร์ลิงก์ดูภาพหน้าจอ:

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

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

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

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelโปรดทำตามขั้นตอนต่อไปนี้:

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

2. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร รายการชื่อไฟล์ โปรดดำเนินการดังต่อไปนี้:

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

(2. ) ตรวจสอบ รวมไฟล์ในไดเรกทอรีย่อย หากคุณต้องการแสดงชื่อไฟล์ภายในโฟลเดอร์ย่อยให้เลือก รวมไฟล์และโฟลเดอร์ที่ซ่อนอยู่ หากคุณต้องการแสดงรายการไฟล์ที่ซ่อนอยู่

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

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

(5. ) ตรวจสอบ สร้างไฮเปอร์ลิงก์ ที่ด้านล่างซ้ายของกล่องโต้ตอบ

ดาวน์โหลด Kutools for Excel ทันที!

3. จากนั้นคลิก Ok และไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยได้รับการแสดงรายการในแผ่นงานใหม่พร้อมไฮเปอร์ลิงก์ตามที่คุณต้องการดูภาพหน้าจอ:

คลิกเพื่อทราบรายละเอียดเพิ่มเติมเกี่ยวกับยูทิลิตี้ Filename List ...

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

Demo: แสดงชื่อไฟล์ทั้งหมดในโฟลเดอร์และสร้างไฮเปอร์ลิงค์ด้วย Kutools for Excel

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

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