सेल फोन या मोबाइल डिवाइस से देखे जाने के लिए आप एक्सेल डेटा कैसे निर्यात करते हैं?
एक्सेल स्प्रेडशीट से एक कॉलम को Wml (वायरलेस मार्कअप लैंग्वेज) फ़ाइल में निर्यात करने के लिए मैक्रो का उपयोग करने का एक मूल उदाहरण निम्नलिखित है, जिसे आपके सर्वर पर अपलोड किया जा सकता है और सेल फोन से एक्सेस किया जा सकता है।
प्रयोग: मेरे पास एक्सेल में शीट 1 के कॉलम ए में सीडी से ट्रैक सूची के साथ एक सूची है: परफेक्ट सर्कल - मेर डी नोम्स। पहले मैं एक्सेल से डेटा को Wml प्रारूप में निर्यात करना चाहता हूं, दूसरा, अपने सर्वर पर अपलोड करना चाहता हूं, और अंत में अपने सेल फोन के ब्राउज़र से ट्रैकलिस्ट देखना चाहता हूं। एक ग्राफिकल प्रतिनिधित्व:
इसे पूरा करने के लिए मैंने एक वीबीए मैक्रो और डब्लूएमएल का इस्तेमाल किया। Wml की बुनियादी समझ के लिए मैं आपको w3schools के एक अन्य ट्यूटोरियल के बारे में बताता हूँ।
आप मेरे एक्सेल टू वैप प्रयोग का अंतिम परिणाम निम्न पते पर देख सकते हैं:
| 1 | www.automateexcel.com/pl/wap1.wml |
और अपने मोबाइल डिवाइस के ब्राउज़र में ऐसा कर सकते हैं, पते को एक वैप एमुलेटर में कॉपी और पेस्ट कर सकते हैं, या यह बहुत धुंधली तस्वीर (नए डिजिटल कैमरे के लिए समय!) देखकर।
इसे स्वयं आज़माएं
1. निम्नलिखित कोड को एक्सेल में एक मॉड्यूल में कॉपी करें (सहायता?)
2. पत्रक1 के कॉलम A में कुछ पाठ रखें और सहेजें आपकी कार्यपुस्तिका
3. मैक्रो चलाएँ
4. Wml फ़ाइल उसी फ़ोल्डर में बनाई जाएगी जिस फ़ोल्डर में आपके द्वारा खोली गई कार्यपुस्तिका है।
5. Wml फाइल को अपने सर्वर पर अपलोड करें और सेल फोन में देखें।
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | उप वैप ()स्ट्रिंग के रूप में Dim WapTitleस्ट्रिंग के रूप में मंद वैपनाममंद DocType स्ट्रिंग के रूप मेंपूर्णांक के रूप में मंद काउंटरडॉक्टर टाइप = ""'फ़ाइल लिखने का स्थान'WapName = ThisWorkbook.Path & "/wap1.wml"'अगर फाइल पहले से मौजूद है तो उसे मार दें'यदि लेन(Dir(WapName)) > 0 तोवैपनाम को मारेंअगर अंत'वैप शीर्षक प्राप्त करें'वैपटाइटल = इनपुटबॉक्स ("शीर्षक", "माईइनपुटटाइटल", _"अपनी वैप साइट का शीर्षक दर्ज करें")'बाहर निकलें अगर कोई वैप शीर्षक नहीं हैअगर WapTitle = "अपनी वैप साइट का शीर्षक दर्ज करें" _या वैपटाइटल = "" फिरMsgBox "सॉरी यू नीड ए टाइटल - क्विटिंग नाउ"उप से बाहर निकलेंअगर अंत'कार्यपुस्तिका खोलें और wml शीर्षलेख जानकारी लिखें'#1 . के रूप में संलग्न करने के लिए ThisWorkbook.Path & "wap1.wml" खोलेंप्रिंट #1, "<?xml संस्करण=""1.0""?>"# 1 प्रिंट करें, डॉक्टर टाइपप्रिंट # 1, ""प्रिंट # 1, ""# 1 प्रिंट करें, _""" और वैपटाइटल और """>"प्रिंट # 1, ""# 1 प्रिंट करें, "
"'शीट 1 के माध्यम से लूप, सामग्री लिखेंकाउंटर के लिए = 1 से ActiveSheet.UsedRange.Rows.Countयदि खाली नहीं है (शीट १। सेल (काउंटर, १)) तोप्रिंट #1, शीट1.सेल (काउंटर, 1) और " |
क्रेडिट: "टेक्स्ट फ़ाइल में लिखें" कोड जे-वॉक के लॉग उपयोगकर्ताओं का व्युत्पन्न है।
निष्कर्ष: Wml के मेरे संक्षिप्त परिचय के बाद डेटा से कई पेज बनाना और डेटा के कई सेट के लिए लिंक का एक मेनू बनाना भी संभव प्रतीत होता है। मैं एक्सेल डेटा से निर्यात किए गए बड़े डेटासेट को खोजने के तरीके के साथ उपयोगकर्ता को प्रस्तुत करने के लिए एक एप्लिकेशन पर शोध करना चाहता हूं।
एक्सेल को डब्लूएमएल में निर्यात करने के विषय पर कोई राय या विचार, विशेष रूप से संभावित उपयोग, या अन्य विचार?
