नीचे हम एक कार्यक्रम को देखेंगे एक्सेल वीबीए वह टेक्स्ट फ़ाइल से डेटा पढ़ता है . इस फ़ाइल में कुछ भौगोलिक निर्देशांक हैं जिन्हें हम एक्सेल में आयात करना चाहते हैं।
परिस्थिति:
1. सबसे पहले, टेक्स्ट फ़ाइल डाउनलोड करें और इसे 'C: est' में जोड़ें
एक रखें कमांड बटन अपनी कार्यपत्रक पर और निम्नलिखित कोड पंक्तियाँ जोड़ें:
2. हम चार चर घोषित करते हैं। टाइप स्ट्रिंग का myFile, स्ट्रिंग प्रकार का टेक्स्ट, स्ट्रिंग प्रकार की टेक्स्टलाइन, इंटीजर प्रकार की posLat, और posLong प्रकार Integer.
योग फ़ंक्शन का उपयोग करके एक सूत्र बनाएँकोई नहींमेरी फाइलजैसा डोरी, मूलपाठजैसा डोरी, टेक्स्टलाइनजैसा डोरी, स्थितिजैसा पूर्णांक, posLongजैसा पूर्णांक
3. हमें चर myFile को पूर्ण पथ और फ़ाइल नाम के साथ प्रारंभ करने की आवश्यकता है।
myFile = 'C: estgeographical-coordinates.txt'या
मानक ओपन डायलॉग बॉक्स प्रदर्शित करने के लिए एप्लिकेशन ऑब्जेक्ट की GetOpenFilename विधि का उपयोग करें और फ़ाइल का चयन करें (वास्तव में फ़ाइल को खोले बिना)।
myFile = Application.GetOpenFilename ()नोट: कोष्ठक के बीच खाली भाग का अर्थ है कि हम इनपुट के रूप में एक्सेल वीबीए को कुछ भी नहीं देते हैं। विजुअल बेसिक एडिटर में अपने कर्सर को GetOpenFilename पर रखें और तर्कों पर मदद के लिए F1 पर क्लिक करें।
4. निम्नलिखित कोड लाइन जोड़ें:
खोलनामेरी फाइलके लिये इनपुट जैसा#1नोट: यह कथन फ़ाइल को पढ़ने की अनुमति देता है। हम अपने शेष कोड के दौरान फ़ाइल को # 1 के रूप में संदर्भित कर सकते हैं।
5. निम्नलिखित कोड पंक्तियाँ जोड़ें:
करना जब तकईओएफ(1)रेखा इनपुट# 1, टेक्स्टलाइन
टेक्स्ट = टेक्स्ट और टेक्स्टलाइन
कुंडली
नोट: फ़ाइल (ईओएफ) के अंत तक, एक्सेल वीबीए फ़ाइल से एक पंक्ति पढ़ता है और इसे टेक्स्टलाइन को असाइन करता है। हम सभी सिंगल लाइनों को जोड़ने (जुड़ने) के लिए & ऑपरेटर का उपयोग करते हैं और इसे वेरिएबल टेक्स्ट में स्टोर करते हैं।
6. फ़ाइल बंद करें।
बंद करे#17. इसके बाद, हम वेरिएबल टेक्स्ट में अक्षांश और देशांतर शब्दों की स्थिति खोजते हैं। हम उपयोग करते हैं इंस्ट्र फ़ंक्शन .
posLat = InStr (पाठ, 'अक्षांश')posLong = InStr (पाठ, 'देशांतर')
8. हम इन पदों का उपयोग करते हैं और मध्य समारोह चर पाठ से निर्देशांक निकालने के लिए और सेल A1 और सेल A2 के निर्देशांक लिखने के लिए।
रेंज ('A1')। मान = मध्य (पाठ, posLat + 10, 5)रेंज ('ए 2')। मान = मध्य (पाठ, पॉज़लॉन्ग + 11, 5)
9. कार्यक्रम का परीक्षण करें।
नतीजा:
अगले अध्याय पर जाएँ: ActiveX नियंत्रण