Vba का उपयोग करके फ़ाइलें कैसे हटाएं (उदाहरण के साथ)

आप किसी विशिष्ट फ़ोल्डर में किसी विशिष्ट Excel फ़ाइल को हटाने के लिए VBA में किल स्टेटमेंट का उपयोग कर सकते हैं।

व्यवहार में इस कथन का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubDeleteFile ()

    On Error Resume Next
    Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
    On Error GoTo 0

End Sub

यह विशेष मैक्रो निम्नलिखित फ़ोल्डर में स्थित सॉकर_डेटा. xlsx नामक एक्सेल फ़ाइल को हटा देता है:

C:\Users\Bob\Desktop\My_Data

ऑन एरर रिज्यूम नेक्स्ट लाइन वीबीए को बताती है कि यदि कोई त्रुटि होती है और फ़ाइल नहीं मिलती है, तो कोई त्रुटि संदेश प्रदर्शित नहीं होना चाहिए।

फिर हम त्रुटि संदेशों को डिफ़ॉल्ट सेटिंग्स पर रीसेट करने के लिए On Error GoTo 0 का उपयोग करते हैं।

यदि फ़ाइल नहीं मिलने पर आप त्रुटि संदेश प्रदर्शित करना चाहते हैं, तो बस कोड से इन दो पंक्तियों को हटा दें।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA का उपयोग करके एक फ़ाइल हटाएँ

मान लीजिए कि हमारे पास निम्नलिखित फ़ोल्डर है जिसमें तीन एक्सेल फ़ाइलें हैं:

मान लीजिए कि हम सॉकर_डेटा.xlsx नामक फ़ाइल को हटाने के लिए VBA का उपयोग करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubDeleteFile ()

    On Error Resume Next
    Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
    On Error GoTo 0

End Sub

एक बार जब हम इस मैक्रो को चलाते हैं और फ़ोल्डर को दोबारा खोलते हैं, तो हम देखेंगे कि सॉकर_डेटा.xlsx नामक फ़ाइल हटा दी गई है:

अन्य सभी फ़ाइलें फ़ोल्डर में बरकरार रहीं.

यदि आप चाहते हैं कि फ़ाइल मौजूद न होने पर त्रुटि संदेश प्रदर्शित हो, तो आप निम्न मैक्रो का उपयोग कर सकते हैं:

 SubDeleteFile ()

    Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्न त्रुटि संदेश प्राप्त होता है:

हमें यह त्रुटि संदेश इसलिए प्राप्त हो रहा है क्योंकि सॉकर_डेटा.xlsx फ़ाइल पहले ही हटा दी गई है और अब फ़ोल्डर में मौजूद नहीं है।

ध्यान दें : ध्यान रखें कि किल स्टेटमेंट किसी फ़ाइल को स्थायी रूप से हटा देता है और उसे केवल ट्रैश में नहीं भेजता है।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: किसी अन्य कार्यपुस्तिका से डेटा कैसे निकालें
वीबीए: यदि नाम में विशिष्ट पाठ है तो शीट को कैसे हटाएं