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

บทช่วยสอนการทำงานอัตโนมัติของ Office วันนี้เน้นการเรียนรู้วิธีตรวจสอบว่ามีไฟล์อยู่ในไดเรกทอรีคอมพิวเตอร์ของคุณ

การตระเตรียม

หากคุณยังใหม่กับการเขียนโค้ด ตรวจสอบให้แน่ใจว่าได้เปิดใช้งานแท็บการพัฒนา Microsoft Office Excel และคุณคุ้นเคยกับ Excel VBA พื้นฐานบางอย่าง

ตรวจสอบว่ามีไฟล์ด้วย Excel VBA . หรือไม่

รหัสต่อไปนี้ใช้ประโยชน์จากช่องใส่เพื่อจับเส้นทางไปยังไฟล์รวมถึงชื่อไฟล์จากผู้ใช้

จากนั้นจะใช้ประโยชน์จาก วิธีการ Dirเพื่อตรวจสอบว่ามีเส้นทางของไฟล์อยู่หรือไม่

สุดท้ายจะแสดงกล่องข้อความถึงผู้ใช้พร้อมผลการตรวจสอบ

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

ตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่

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

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

การใช้รหัส

• เปิด Microsoft Excel และไปที่เวิร์กบุ๊กของคุณ
• ตี Developer แล้วกด Visual Basic
• คัดลอกและวางโค้ดจากด้านบนเป็นรูทีนย่อยในชีตเฉพาะของโมดูล VBA ของคุณ
• เรียกใช้ (F5) รหัส
• บันทึกสมุดงานของคุณ

นามสกุลที่เป็นไปได้

รหัสแผ่นหม้อต้มด้านบน a ถูกขยายสำหรับกรณีการใช้งานต่อไปนี้:

• สร้างโฟลเดอร์ / ไฟล์หากยังไม่มี
• ลบไฟล์ของโฟลเดอร์ที่มีให้ในไดเร็กทอรีไฟล์ระบบปฏิบัติการของคุณ
• ค้นหาไฟล์/โฟลเดอร์โดยใช้สัญลักษณ์แทน