vba list file .pdf only
Posted: Mon Sep 02, 2019 6:08 pm
สวัสดีค่ะต้องการให้ช่วยแก้ไขสูตรสิ่งที่ต้องการ
เมื่อเราไปเลือกที่ 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
เมื่อเราไปเลือกที่ 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
แนบไฟล์ตัวอย่างมาด้วยครับ
จะได้สะดวกต่อการอ่านเพราะมีลักษณะแตกต่างจากข้อความทั่วไปครับ