วิธีตรวจสอบว่ามีไฟล์อยู่โดยใช้ vba หรือไม่ (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน Dir ใน VBA เพื่อตรวจสอบว่ามีไฟล์เฉพาะอยู่ในโฟลเดอร์ใดโฟลเดอร์หนึ่งหรือไม่

นี่เป็นวิธีทั่วไปในการใช้คำสั่งนี้ในทางปฏิบัติ:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

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

เมื่อผู้ใช้เข้าสู่เส้นทางของไฟล์ แมโครจะสร้างกล่องข้อความที่ระบุว่ามีไฟล์อยู่หรือไม่

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: ตรวจสอบว่ามีไฟล์อยู่โดยใช้ VBA หรือไม่

สมมติว่าเรามีโฟลเดอร์อยู่ในตำแหน่งต่อไปนี้:

C:\Users\bob\Documents\current_data

โฟลเดอร์นี้มีไฟล์ CSV สามไฟล์:

สมมติว่าเราต้องการใช้ VBA เพื่อตรวจสอบว่ามีไฟล์ชื่อ soccer_data.csv อยู่ในโฟลเดอร์นี้หรือไม่

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

เมื่อเราเรียกใช้แมโครนี้ ช่องป้อนข้อมูลจะปรากฏขึ้นในตำแหน่งที่เราสามารถป้อนเส้นทางของไฟล์ได้:

เราจะเข้าสู่เส้นทางแบบเต็มของไฟล์ soccer_data.csv :

เมื่อเราคลิก ตกลง กล่องข้อความจะปรากฏขึ้นเพื่อแจ้งให้เราทราบว่ามีไฟล์อยู่ในโฟลเดอร์ที่เราระบุหรือไม่:

กล่องข้อความแจ้งเราว่ามีไฟล์อยู่

หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับเต็มสำหรับฟังก์ชัน Dir ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีสร้างโฟลเดอร์โดยใช้ VBA
วิธีลบโฟลเดอร์โดยใช้ VBA
วิธีลบไฟล์โดยใช้ VBA