Excel में मौजूदा फ़ाइल को स्वचालित रूप से ओवरराइट करने के लिए Save As फ़ंक्शन का उपयोग कैसे करें?
किसी Excel कार्यपुस्तिका को किसी नए फ़ोल्डर में सहेजते समय, आपको नीचे दिए गए स्क्रीनशॉट के अनुसार एक प्रॉम्प्ट बॉक्स मिलेगा, यदि समान नाम वाली कार्यपुस्तिका मौजूद है और फ़ोल्डर पर स्थित है। त्वरित चेतावनी संदेश के बिना मौजूदा फ़ाइल को स्वचालित रूप से ओवरराइट कैसे करें? इस लेख में दी गई विधि आपकी मदद कर सकती है।
VBA कोड के साथ मौजूदा फ़ाइल को स्वचालित रूप से ओवरराइट करने के लिए फ़ंक्शन के रूप में सहेजें
VBA कोड के साथ मौजूदा फ़ाइल को स्वचालित रूप से ओवरराइट करने के लिए फ़ंक्शन के रूप में सहेजें
यदि आप किसी कार्यपुस्तिका को नए नाम से सहेजना चाहते हैं और एक्सेल में मौजूदा फ़ाइल को स्वचालित रूप से अधिलेखित करना चाहते हैं। कृपया निम्नानुसार करें.
1. सबसे पहले कृपया अपनी वर्कशीट में सेव एज फ़ंक्शन को ट्रिगर करने के लिए एक कमांड बटन बनाएं। फिर से लॉगिन करने के लिए डेवलपर > सम्मिलित करें > कमांड बटन (सक्रिय एक्स नियंत्रण). स्क्रीनशॉट देखें:
2. अपनी वर्कशीट पर एक कमांड बटन बनाएं। फिर इसे राइट क्लिक करें और चुनें कोड देखें संदर्भ मेनू से
3। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए VBA कोड को कॉपी करें और इनके बीच पेस्ट करें निजी सब और अंत उप में पंक्तियाँ कोड खिड़की.
वीबीए कोड: मौजूदा फ़ाइल को स्वचालित रूप से ओवरराइट करने के लिए फ़ंक्शन के रूप में सहेजें
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True
4। दबाएं ऑल्ट + Q बाहर निकलने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। और बंद कर दें डिजाइन मोड नीचे डेवलपर टैब.
5. कमांड बटन पर क्लिक करें, फिर a इस रूप में सहेजें संवाद बॉक्स पॉप अप होता है, कृपया इस कार्यपुस्तिका को सहेजने के लिए एक फ़ोल्डर चुनें और फिर क्लिक करें सहेजें बटन.
यदि गंतव्य फ़ोल्डर में समान नाम वाली कार्यपुस्तिका मौजूद है, तो यह बिना किसी संकेत के सीधे वर्तमान कार्यपुस्तिका के साथ स्वचालित रूप से अधिलेखित हो जाएगी।
संबंधित लेख:
- वर्कशीट को पीडीएफ फाइल के रूप में कैसे सहेजें और आउटलुक के माध्यम से अनुलग्नक के रूप में ईमेल करें?
- एक्सेल फ़ाइल नाम को टाइमस्टैम्प के साथ कैसे सहेजें?
- एक्सेल में सीएसवी या टेक्स्ट फ़ाइलों को अलग करने के लिए एकाधिक/सभी शीटों को कैसे सहेजें, निर्यात करें?
- Excel में Save & Save As विकल्प को कैसे अक्षम करें या अनुमति न दें?
- वर्कबुक सेव को कैसे अक्षम करें लेकिन केवल एक्सेल में सेव की अनुमति दें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!