VBA का उपयोग करके डेटा को Excel स्प्रेडशीट में सहेजें।
एक्सेस में एक्सेल स्प्रेडशीट बनाने से आपका समय बच सकता है जब आपको एक्सेल स्प्रेडशीट में डेटा निर्यात करने की आवश्यकता होती है। अनुप्रयोगों के लिए विजुअल बेसिक (वीबीए) माइक्रोसॉफ्ट ऑफिस अनुप्रयोगों में प्रक्रियाओं को स्वचालित करने के लिए एक शक्तिशाली उपकरण हो सकता है। वीबीए के साथ आप एक्सेस से एक्सेल स्प्रेडशीट बनाने के लिए माइक्रोसॉफ्ट एक्सेल एप्लिकेशन ऑब्जेक्ट का उपयोग कर सकते हैं। एक्सेल एप्लिकेशन ऑब्जेक्ट बाकी ऑब्जेक्ट मॉडल का प्रवेश बिंदु है। डेटा को सीधे एक्सेल स्प्रेडशीट में सहेज कर एक्सेल में तेजी से डेटा निर्यात करें।
चरण 1
Microsoft Office Access लॉन्च करें, "रिक्त डेटाबेस" पर क्लिक करें और रिक्त डेटाबेस बनाने के लिए "बनाएँ" बटन पर क्लिक करें। "डेटाबेस टूल्स" टैब पर क्लिक करें और माइक्रोसॉफ्ट विजुअल बेसिक विंडो खोलने के लिए "विजुअल बेसिक" पर क्लिक करें। "सम्मिलित करें" मेनू पर क्लिक करें और एक नया कोड मॉड्यूल सम्मिलित करने के लिए "मॉड्यूल" पर क्लिक करें।
दिन का वीडियो
चरण 2
"टूल" मेनू पर क्लिक करें और "संदर्भ" पर क्लिक करें। नीचे स्क्रॉल करें और "Microsoft Excel" के बगल में स्थित बॉक्स को चेक करें
चरण 3
एक नई उप प्रक्रिया बनाने के लिए निम्न VBA कोड टाइप करके प्रारंभ करें:
निजी उप क्रिएटस्प्रेडशीट ()
चरण 4
एक्सेल स्प्रेडशीट बनाने के लिए उपयोग की जाने वाली तीन नई परिवर्तनीय वस्तुओं को बनाने के लिए निम्न कोड टाइप करके जारी रखें:
मंद newExcelApp एक्सेल के रूप में। आवेदन। मंद newWbk एक्सेल के रूप में। कार्यपुस्तिका। एक्सेल के रूप में मंद newWkSheet। कार्यपत्रक
चरण 5
एक्सेल लॉन्च करने और इसे प्रदर्शित करने के लिए निम्नलिखित कोड जोड़ें:
NewExcelApp = Excel सेट करें। आवेदन
नया एक्सेल ऐप। दृश्यमान = सत्य
चरण 6
नई कार्यपुस्तिका और कार्यपत्रक जोड़ने के लिए निम्नलिखित टाइप करें:
NewWbk = newExcelApp सेट करें। कार्यपुस्तिकाएं। जोड़ें
NewWkSheet सेट करें = newWbk. कार्यपत्रक (1)
चरण 7
अपनी नई स्प्रैडशीट में निम्न लिखकर डेटा जोड़ें:
नई डब्ल्यूकेशीट। कक्ष (1, 1)। मान = "नई कार्यपत्रक..."
चरण 8
निम्नलिखित कोड टाइप करके बनाई गई नई कार्यपुस्तिका को सहेजें:
नई डब्ल्यूकेशीट। SaveAs ("सी:\myworksheet.xlsx")चरण 9
पिछले चरण पर पथ संपादित करें और अपनी पसंद का पथ और फ़ाइल नाम टाइप करें।
चरण 10
उप प्रक्रिया को समाप्त करने के लिए निम्नलिखित टाइप करें:
अंत उप
चरण 11
अपनी प्रक्रिया को चलाने और एक नई एक्सेल स्प्रेडशीट बनाने के लिए "F5" दबाएं।
