วิธีตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์ใดโฟลเดอร์หนึ่งหรือไม่?
สมมติว่าคุณมีโฟลเดอร์ที่มีไฟล์หลายไฟล์และตอนนี้คุณต้องการระบุว่ามีไฟล์เฉพาะในโฟลเดอร์นี้จาก Excel หรือไม่ บทความนี้ผมจะแนะนำวิธีการอย่างรวดเร็วเพื่อให้คุณตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์เฉพาะโดยละเอียดผ่าน Excel หรือไม่
ตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์เฉพาะด้วยรหัส VBA หรือไม่
ตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์เฉพาะด้วยรหัส VBA หรือไม่
หากต้องการตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์ใดโฟลเดอร์หนึ่งหรือไม่ในแผ่นงาน Excel คุณสามารถใช้รหัส VBA ต่อไปนี้ได้โปรดดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล
รหัส VBA: ตรวจสอบว่ามีไฟล์อยู่ในโฟลเดอร์เฉพาะหรือไม่:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
หมายเหตุ ในโค้ดด้านบนคุณควรเปลี่ยนเส้นทางและชื่อไฟล์ C: \ Users \ DT168 \ Desktop \ Test โฟลเดอร์ \ Book2.xlsx " ตามความต้องการของคุณ
3. หลังจากวางรหัสแล้วกรุณากด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้:
(1. ) หากไฟล์มีอยู่คุณจะได้รับภาพหน้าจอต่อไปนี้:
(2. ) หากไม่มีไฟล์คุณจะได้รับคำเตือนต่อไปนี้:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
