vba list file .pdf only

[ichinisan]

สวัสดีค่ะต้องการให้ช่วยแก้ไขสูตรสิ่งที่ต้องการ
เมื่อเราไปเลือกที่ file Directoryที่ ต้องการ แล้ว ให้list เอาเฉพาะ. pdf มายังเซลล์ ที่เมาส์วางอยู่ คือถ้าเมาส์วางอยู่ตำแหน่งเซลล์ไหนก็ให้เริ่มต้นจากเซลล์นะเรียงกันลงมาคะ โดยที่ไม่ต้องไปสร้างsheetใหม่คะ ขอบคุณคะ
Option Explicit

Dim fso As Object, fsoFolder As Object, fsoSubFolder As Object, fsoFile As Object

Public Sub ListPDFs()
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1")

ws.UsedRange.ClearContents

Set fso = CreateObject("Scripting.FileSystemObject")

Application.ScreenUpdating = False

ShowPDFs ThisWorkbook.Path & "\..", ws

ws.UsedRange.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

[snasui]

แนบไฟล์ตัวอย่างมาด้วยครับ

อ่านวิธีโพสต์ Code ในกระทู้ได้จากกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้สะดวกต่อการอ่านเพราะมีลักษณะแตกต่างจากข้อความทั่วไปครับ