วิธีตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์แล้วลบใน Excel หรือไม่

ในบทช่วยสอนนี้ คุณจะได้เรียนรู้สคริปต์ VBA เพื่อตรวจสอบว่ามีไฟล์บางไฟล์อยู่ในโฟลเดอร์ที่ระบุหรือไม่ หากมี ให้ลบออกจากโฟลเดอร์ใน Excel

---

ตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์หรือไม่ จากนั้นลบออกใน Excel ด้วยโค้ด VBA

สคริปต์ VBA ต่อไปนี้ช่วยในการตรวจสอบว่ามีไฟล์บางไฟล์อยู่ในโฟลเดอร์หรือไม่ และลบออกหากมี กรุณาทำดังนี้

1. ในสมุดงาน Excel ที่เปิดอยู่ ให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกสคริปต์ VBA ต่อไปนี้ลงในไฟล์ โมดูล (รหัส) หน้าต่าง

รหัส VBA: ตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์ที่ระบุหรือไม่ จากนั้นให้ลบออก

Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
    FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
    
    If Dir(FilePath) <> "" Then
    MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
        Kill FilePath
    Else
    If Dir(FilePath) = "" Then
    MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
    End If
    End If
End Sub

หมายเหตุ: ในโค้ด VBA C:\Users\Win10x64Test\Desktop\บันทึกไฟล์แนบ\aaa.xlsx คือเส้นทางของไฟล์ที่คุณต้องการตรวจสอบว่ามีอยู่หรือไม่ ในตัวอย่างนี้ ฉันต้องการตรวจสอบว่าไฟล์ Excel ชื่อ “AAA” มีอยู่ในโฟลเดอร์ชื่อ “บันทึกไฟล์แนบ” บนเดสก์ท็อป คุณสามารถเปลี่ยนเส้นทางไฟล์และนามสกุลไฟล์ให้ตรงกับความต้องการของคุณ

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

4. หากมีไฟล์อยู่ คุณจะได้รับไฟล์ Kutools สำหรับ Excel กล่องโต้ตอบที่แสดงในภาพหน้าจอด้านล่าง คลิก OK ปุ่มเพื่อลบไฟล์นี้ออกจากโฟลเดอร์

หากไม่มีไฟล์อยู่ในโฟลเดอร์อื่น Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งเตือนคุณ