Microsoft के सभी कार्यालय अनुप्रयोग स्वचालन का समर्थन करते हैं। वे COM सर्वर के रूप में चल सकते हैं और दस्तावेज़-एम्बेडेड या बाहरी स्क्रिप्ट से उपयोग किए जा सकते हैं। तो, आप एक वीबीए स्क्रिप्ट से एक्सेल दस्तावेज़ में डेटा लिख सकते हैं।
ज़रूरी
- - स्थापित माइक्रोसॉफ्ट एक्सेल एप्लिकेशन;
- - विजुअल बेसिक एडिटर / टेक्स्ट एडिटर।
निर्देश
चरण 1
वीबीए कोड को होस्ट करने के लिए एक कंटेनर बनाएं। यदि स्क्रिप्ट को किसी दस्तावेज़ में एम्बेड किया जाना है, तो उपयुक्त फ़ाइल को Microsoft Excel में अपलोड करें। Alt + F11 दबाकर विजुअल बेसिक एडिटर खोलें। यदि आवश्यक हो, तो एक नया मॉड्यूल बनाएं (सम्मिलित करें मेनू में मॉड्यूल आइटम)। मॉड्यूल या प्रपत्रों में से एक खोलें। अपने फॉर्म नियंत्रण के लिए एक हैंडलर बनाएं, या केवल मॉड्यूल में एक प्रक्रिया जोड़ें। उदाहरण के लिए:
उप परीक्षण ()
अंत उप
यदि आप एक स्टैंड-अलोन स्क्रिप्ट विकसित कर रहे हैं (अर्थात, यह विंडोज स्क्रिप्ट होस्ट के तहत चलेगी), तो बस टेक्स्ट एडिटर में vbs एक्सटेंशन के साथ एक फाइल बनाएं।
चरण 2
दस्तावेज़ में एम्बेड की गई स्क्रिप्ट में, प्रक्रिया की शुरुआत में परिवर्तनशील घोषणाएँ जोड़ें:
एक्सेल.वर्कबुक के रूप में डिम ओवर्कबुक
एक्सेल के रूप में मंद ओशीट। वर्कशीट
पहला एक एक्सेल वर्कबुक ऑब्जेक्ट के संदर्भ को संग्रहीत करने के लिए है, और दूसरा एक शीट के लिए है।
चरण 3
ऑब्जेक्ट संदर्भों के साथ चर प्रारंभ करें। वीबीएस स्क्रिप्ट में, एक्सेल एप्लिकेशन ऑब्जेक्ट बनाएं (यह एक्सेल को COM सर्वर के रूप में लॉन्च करेगा):
oApplication = CreateObject ("Excel. Application") सेट करें।
दस्तावेज़ में एम्बेड की गई स्क्रिप्ट में, oApplication चर के बजाय वैश्विक एप्लिकेशन ऑब्जेक्ट का उपयोग किया जाएगा, जो वर्तमान एप्लिकेशन ऑब्जेक्ट को संदर्भित करता है। किसी मौजूदा का चयन करें या एक नई Excel कार्यपुस्तिका खोलें। उदाहरण के लिए:
सेट ओवर्कबुक = एप्लिकेशन। वर्कबुक (1)
oWorkbook = Application. Workbooks ("Book1") सेट करें
सेट oWorkbook = oApplication. Workbooks. Open ("D: / vic / प्रासंगिक / tmp / test.xls")
पुस्तक की वांछित शीट का लिंक प्राप्त करें:
oSheet = oApplication. Sheets ("शीट 1") सेट करें
चरण 4
एक्सेल को वीबीए स्क्रिप्ट से डेटा लिखें। सेल संग्रह का उपयोग करें, जो पिछले चरण में संदर्भित कार्यपुस्तिका शीट ऑब्जेक्ट की एक संपत्ति है, जो ओशीट चर में है। एक सेल में एक स्ट्रिंग लिखने का एक उदाहरण इस तरह दिख सकता है:
oSheet. Cells (1, 1) = "स्ट्रिंग सेल A1 को लिखी जाएगी"
चरण 5
Vbs स्क्रिप्ट में, डेटा को बचाने और एक्सेल एप्लिकेशन को बंद करने के लिए कोड जोड़ें:
ओ कार्यपुस्तिका.सहेजें
oआवेदन।छोड़ो
चरण 6
स्क्रिप्ट को सहेजें और निष्पादित करें। विजुअल बेसिक एडिटर में, Ctrl + S दबाएं और फिर कर्सर को प्रक्रिया के मुख्य भाग में रखें और F5 दबाएं। Vbs स्क्रिप्ट को डिस्क पर सहेजें और फिर इसे एक नियमित फ़ाइल के रूप में चलाएँ।
