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