कैसे जांचें कि कोई फ़ाइल किसी विशिष्ट फ़ोल्डर में मौजूद है या नहीं?
मान लीजिए, आपके पास एक फ़ोल्डर है जिसमें एकाधिक फ़ाइलें हैं, और अब, आप एक्सेल से यह पहचानना चाहते हैं कि इस फ़ोल्डर में कोई विशिष्ट फ़ाइल मौजूद है या नहीं। इस लेख में, मैं एक्सेल के माध्यम से विवरण में यह जांचने के लिए आपके लिए एक त्वरित विधि प्रस्तुत करूंगा कि कोई फ़ाइल किसी विशिष्ट फ़ोल्डर में मौजूद है या नहीं।
जांचें कि क्या कोई फ़ाइल VBA कोड वाले किसी विशिष्ट फ़ोल्डर में मौजूद है
जांचें कि क्या कोई फ़ाइल VBA कोड वाले किसी विशिष्ट फ़ोल्डर में मौजूद है
यह जाँचने के लिए कि कोई फ़ाइल किसी विशिष्ट फ़ोल्डर में मौजूद है या एक्सेल वर्कशीट में नहीं है, आप निम्नलिखित VBA कोड लागू कर सकते हैं, कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।
वीबीए कोड: जांचें कि कोई फ़ाइल किसी विशिष्ट फ़ोल्डर में मौजूद है या नहीं:
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.) यदि फ़ाइल मौजूद नहीं है, तो आपको निम्नलिखित चेतावनी मिलेगी:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!