यह वीबीए ट्यूटोरियल कवर करता है कि वीबीए में सेव एंड सेव एज़ कमांड का उपयोग करके फ़ाइल को कैसे सहेजना है।
कार्यपुस्तिका सहेजें - VBA
VBA सेव कमांड सेव आइकन पर क्लिक करने या सेव शॉर्टकट (CTRL + S) का उपयोग करने के समान एक एक्सेल फाइल को सेव करता है।
एक निर्दिष्ट कार्यपुस्तिका सहेजें
किसी कार्यपुस्तिका को सहेजने के लिए, कार्यपुस्तिका ऑब्जेक्ट का संदर्भ लें और सहेजें आदेश का उपयोग करें।
| 1 | कार्यपुस्तिकाएं ("savefile.xlsm")। सहेजें |
सक्रिय कार्यपुस्तिका सहेजें
नोट: यह वर्तमान सक्रिय कार्यपुस्तिका से VBA कोड में है, जो इस वर्कबुक से भिन्न है जिसमें रनिंग कोड है।
| 1 | सक्रिय कार्यपुस्तिका। सहेजें |
कार्यपुस्तिका सहेजें जहाँ कोड संग्रहीत है
| 1 | यह कार्यपुस्तिका.सहेजें |
सभी ओपन वर्कबुक सेव करें
यह सभी खुली कार्यपुस्तिकाओं के माध्यम से लूप करेगा, प्रत्येक को सहेजेगा।
| 12345 | कार्यपुस्तिका के रूप में मंद wbअनुप्रयोग में प्रत्येक wb के लिए। कार्यपुस्तिकाएँडब्ल्यूबी.सेवअगला डब्ल्यूबी |
उन सभी खुली कार्यपुस्तिकाओं को सहेजें जो केवल पढ़ने के लिए नहीं खोली गई थीं
नोट: किसी कार्यपुस्तिका को केवल पढ़ने के लिए मोड में खोलना फ़ाइल को सहेजे जाने से रोकता है।
फ़ाइल को सहेजने के लिए आपको इस रूप में सहेजें का उपयोग करना होगा और फ़ाइल को किसी भिन्न नाम से सहेजना होगा।
| 1234567 | कार्यपुस्तिका के रूप में मंद wbअनुप्रयोग में प्रत्येक wb के लिए। कार्यपुस्तिकाएँयदि नहीं wb केवल पढ़ने के लिए तोडब्ल्यूबी.सेवअगर अंतअगला डब्ल्यूबी |
एक चर द्वारा परिभाषित कार्यपुस्तिका सहेजें
यह उस कार्यपुस्तिका को सहेज लेगा जिसे किसी कार्यपुस्तिका ऑब्जेक्ट चर को असाइन किया गया था।
| 1234 | कार्यपुस्तिका के रूप में मंद wbसेट wb = कार्यपुस्तिकाएं ("savefile.xlsm")wb.save |
स्ट्रिंग चर द्वारा परिभाषित कार्यपुस्तिका सहेजें
यह एक कार्यपुस्तिका को सहेज लेगा जिसका नाम एक स्ट्रिंग चर में सहेजा गया था।
| 1234 | स्ट्रिंग के रूप में मंद wbstringwbstring = "savefile.xlsm"कार्यपुस्तिकाएँ (wbstring).save |
किसी कार्यपुस्तिका को खोलने के क्रम द्वारा परिभाषित सहेजें।
नोट: खोली गई पहली कार्यपुस्तिका में 1, दूसरी 2, आदि होंगी।
| 1 | कार्यपुस्तिका(1).सहेजें |
सेल मान के आधार पर कार्यपुस्तिका सहेजें
यह एक कार्यपुस्तिका को सहेज लेगा जिसका नाम सेल मान में पाया जाता है।
| 1234 | स्ट्रिंग के रूप में मंद wbstringwbstring = activeworkbook.sheets("sheet1").range("wb_save").valueकार्यपुस्तिकाएं (wbstring).save |
इस रूप में सहेजें - वीबीए
VBA इस रूप में सहेजें आदेश एक एक्सेल फ़ाइल को एक नई फ़ाइल के रूप में सहेजता है, इस रूप में सहेजें आइकन पर क्लिक करने या शॉर्टकट के रूप में सहेजें (Alt > F > A) का उपयोग करने के समान।
ऊपर, हमने यह निर्दिष्ट करने के सभी तरीकों की पहचान की कि किस कार्यपुस्तिका को सहेजना है। इस रूप में सहेजें का उपयोग करते समय आप कार्यपुस्तिकाओं की पहचान करने के लिए उन्हीं विधियों का उपयोग कर सकते हैं।
इस रूप में सहेजें सहेजें के समान व्यवहार करता है, सिवाय इसके कि आपको नई फ़ाइल का नाम भी निर्दिष्ट करने की आवश्यकता है।
वास्तव में, इस रूप में सहेजें में परिभाषित करने के लिए कई संभावित चर हैं:
SaveAs सिंटेक्स:
| 123 | कार्यपुस्तिका वस्तु .SaveAs(FileName, FileFormat, Password, WriteResPassword, _केवल पढ़ने के लिए अनुशंसित, CreateBackup, AccessMode, ConflictResolution, _AddToMru, TextCodepage, TextVisualLayout, स्थानीय) |
सभी SaveAs तर्कों का पूरा विवरण नीचे दिया गया है। अभी के लिए हम सबसे सामान्य उदाहरणों पर ध्यान केंद्रित करेंगे।
नोट: इन तर्कों को कोष्ठक के साथ स्ट्रिंग के रूप में या परिभाषित चर के रूप में दर्ज किया जा सकता है।
सिंटैक्स उदाहरण के रूप में सहेजें:
कार्यपुस्तिका इस रूप में सहेजें - समान निर्देशिका
| 1 | ActiveWorkbook.SaveAs फ़ाइल नाम: = "नया" |
या
| 1 | ActiveWorkbook.SaveAs "नया" |
या
| 1234 | स्ट्रिंग के रूप में मंद wbstringwbstring = "नया"ActiveWorkbook.SaveAs फ़ाइल नाम: = wbstring |
कार्यपुस्तिका इस रूप में सहेजें - नई निर्देशिका
| 1 | ActiveWorkbook.SaveAs फ़ाइल नाम: = "सी: \ नया" |
या
| 1234 | स्ट्रिंग के रूप में मंद wbstringwbstring = "सी: \ नया"ActiveWorkbook.SaveAs फ़ाइल नाम:= wbstring= |
कार्यपुस्तिका इस रूप में सहेजें - नई निर्देशिका, फ़ाइल एक्सटेंशन निर्दिष्ट करें
| 1 | ActiveWorkbook.SaveAs फ़ाइल नाम: = "सी: \ new.xlsx" |
या
| 1234 | स्ट्रिंग के रूप में मंद wbstringwbstring = "सी:\new.xlsx"ActiveWorkbook.SaveAs फ़ाइल नाम: = wbstring |
कार्यपुस्तिका इस रूप में सहेजें - नई निर्देशिका, फ़ाइल एक्सटेंशन निर्दिष्ट करें - Alt विधि
आप फ़ाइल स्वरूप को अपने तर्क में भी निर्दिष्ट कर सकते हैं।
| 1234 | .xlsx = 51 '(मैक के लिए 52).xlsm = 52 '(मैक के लिए 53).xlsb = 50 '(मैक के लिए 51).xls = 56 '(मैक के लिए 57) |
| 1 | ActiveWorkbook.SaveAs Filename:= "C:\new", FileFormat:= 51 |
कार्यपुस्तिका इस रूप में सहेजें - फ़ाइल खोलने के लिए पासवर्ड जोड़ें
| 1 | ActiveWorkbook.SaveAs फ़ाइल नाम: = "सी: \ new.xlsx", पासवर्ड: = "पासवर्ड" |
कार्यपुस्तिका इस रूप में सहेजें - विशेषाधिकार लिखने के लिए पासवर्ड जोड़ें
यदि सही पासवर्ड की आपूर्ति नहीं की जाती है तो कार्यपुस्तिका केवल-पढ़ने के लिए खुलती है
| 1 | ActiveWorkbook.SaveAs फ़ाइल नाम: = "सी: \ new.xlsx", WriteRes: = "पासवर्ड" |
कार्यपुस्तिका इस रूप में सहेजें - केवल पढ़ने के लिए अनुशंसित
संदेश बॉक्स प्रदर्शित करने के लिए TRUE, यह अनुशंसा करते हुए कि फ़ाइल केवल-पढ़ने के लिए खोली गई है।
| 1 | ActiveWorkbook.SaveAs फ़ाइल नाम: = "सी: \ new.xlsx", केवल पढ़ने के लिए अनुशंसित: = सत्य |
अन्य उदाहरण के रूप में सहेजें
डायलॉग बॉक्स के रूप में सेव बनाएं
यह इस रूप में सहेजें संवाद बॉक्स उत्पन्न करता है, जिससे उपयोगकर्ता फ़ाइल को सहेजने के लिए प्रेरित होता है।
ध्यान रखें कि यह सरल कोड सभी मामलों में उपयुक्त नहीं हो सकता है।
| 1 | Application.GetSaveAsFilename |
दिए गए डिफ़ॉल्ट फ़ाइल नाम के साथ डायलॉग बॉक्स के रूप में सहेजें बनाएं
| 1 | Application.GetSaveAsFilename InitialFilename:="test.xlsx" |
दिए गए डिफ़ॉल्ट फ़ाइल नाम के साथ डायलॉग बॉक्स के रूप में सहेजें बनाएं
| 1 | Application.GetSaveAsFilename InitialFilename:="test.xlsx" |
नई कार्यपुस्तिका बनाएं और सहेजें
यह एक नई कार्यपुस्तिका बनाएगा और इसे तुरंत सहेज लेगा।
| 123456 | कार्यपुस्तिका के रूप में मंद wbwb = कार्यपुस्तिकाएँ सेट करें। जोड़ेंएप्लिकेशन। डिस्प्ले अलर्ट = गलतwb.SaveAs फ़ाइल नाम:=”c:\Test1.xlsx”एप्लिकेशन.डिस्प्लेअलर्ट्स = ट्रू |
अलर्ट सहेजें अक्षम करें
जब आप VBA में बचत के साथ काम करते हैं, तो आपको विभिन्न सेव चेतावनियाँ या संकेत मिल सकते हैं। चेतावनियों को अक्षम करने के लिए, कोड की यह पंक्ति जोड़ें:
| 1 | एप्लिकेशन.डिस्प्लेअलर्ट्स=गलत |
और चेतावनियों को पुन: सक्षम करने के लिए:
| 1 | एप्लिकेशन.डिस्प्लेअलर्ट्स=सच |
