Vba का उपयोग करके किसी फ़ाइल का नाम कैसे बदलें (उदाहरण के साथ)

आप Excel फ़ाइल का नाम बदलने के लिए VBA में नाम कथन का उपयोग कर सकते हैं।

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

 SubRenameFile ()

Name "C:\Users\bob\Documents\current_data\my_old_file.xlsx" As _
    "C:\Users\bob\Documents\current_data\my_new_file.xlsx"

End Sub

यह विशेष मैक्रो my_old_file.xlsx नामक फ़ाइल का नाम बदलकर my_new_file.xlsx कर देगा।

नोट : आप दोनों फ़ाइल पथों को एक ही पंक्ति में लिख सकते हैं, लेकिन हमने इसे पढ़ने में आसान बनाने के लिए अगली पंक्ति पर कोड जारी रखने के लिए अंडरस्कोर ( _ ) का उपयोग किया है।

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

उदाहरण: VBA का उपयोग करके किसी फ़ाइल का नाम बदलें

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

C:\Users\bob\Documents\current_data

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

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

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

 SubRenameFile ()

Name "C:\Users\bob\Documents\current_data\soccer_data.xlsx" As _
    "C:\Users\bob\Documents\current_data\soccer_data_new.xlsx"

End Sub

एक बार यह मैक्रो निष्पादित हो जाने पर, हमारे द्वारा निर्दिष्ट फ़ाइल का नाम बदल दिया जाएगा।

हम फ़ोल्डर स्थान पर नेविगेट कर सकते हैं और सत्यापित कर सकते हैं कि सॉकर_डेटा.xlsx का नाम बदलकर सॉकर_डेटा_न्यू_.xlsx कर दिया गया है:

हम देख सकते हैं कि फ़ाइल का वास्तव में नाम बदल दिया गया था और फ़ोल्डर की अन्य सभी फ़ाइलें अपरिवर्तित रहीं।

नोट : आप वीबीए में नाम विवरण के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

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

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

VBA का उपयोग करके फ़ोल्डर्स कैसे बनाएं
VBA का उपयोग करके फ़ोल्डर्स को कैसे हटाएं
VBA का उपयोग करके फ़ाइलें कैसे हटाएं
VBA का उपयोग करके कैसे जांचें कि फ़ाइल मौजूद है या नहीं