रेंज को CSV फ़ाइल में सहेजें
समाधान #670 एक सीमा को एक सीमांकित पाठ फ़ाइल में निर्यात करने के तरीके पर।
वर्कशीट को टेक्स्ट फ़ाइल या सीएसवी सीमांकित फ़ाइल के रूप में सहेजने के लिए एक्सेल के डिफ़ॉल्ट तरीके का उपयोग करने के लिए यह एक आसान विकल्प है जब "इस रूप में सहेजें" चुनकर:
1. आप एक टेम्प्लेट का उपयोग करते हैं और केवल हेडर और अन्य विविध सामग्री को छोड़कर डेटा निर्यात करना चाहते हैं
2. इसी तरह, आप केवल डेटासेट का हिस्सा निर्यात करना चाह सकते हैं
3. आप फ़ाइल को एक कस्टम सीमांकक के साथ सहेजना चाहते हैं जो आपके आवेदन के लिए अद्वितीय हो सकता है।
यदि आपको 1,2, या 3 करने की आवश्यकता है, तो निम्न की तरह एक फ़ंक्शन मदद कर सकता है। यह निर्यात करने के लिए एक सीमा को स्वीकार करता है, फ़ाइल को सहेजने के लिए स्थान, और वह सीमांकक जिसे आप अपने डेटा से अलग करना चाहते हैं, फिर आपके डेटा को निर्दिष्ट के रूप में सहेजता है।
फ़ंक्शन को कॉल करने का तरीका यहां दिया गया है निर्यात रेंज:
| 1234567891011 | उप कॉल निर्यात ()'ExportRange (रेंज, जहां, सीमांकक)कॉल एक्सपोर्टरेंज (शीट 1. रेंज ("ए 1: सी 20"), _"सी:mark.txt", ",")अंत उप |
पहले आप फ़ंक्शन को बताएं कि आप किस श्रेणी को निर्यात करना चाहते हैं, फिर इसे कहां निर्यात करना है, उपयोग करने के लिए सीमांकक की तुलना में। आपको फ़ंक्शन की भी आवश्यकता होगी निर्यात रेंज, यह रहा:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | फंक्शन एक्सपोर्टरेंज (व्हाटरेंज एज़ रेंज, _जहां स्ट्रिंग के रूप में, स्ट्रिंग के रूप में सीमांकक) स्ट्रिंग के रूप मेंडिम होल्डरो लंबे समय तक 'नई पंक्ति चर के लिए परीक्षण'होल्डरो = WhatRange.Rowडिम सी अस रेंज 'लूप थ्रू रेंज वेरिएबलWhatRange में प्रत्येक सी के लिएअगर होल्डरो c.Row तो'लाइनब्रेक जोड़ें और अतिरिक्त डिलीमीटर हटाएं'एक्सपोर्टरेंज = लेफ्ट (एक्सपोर्ट रेंज, लेन (एक्सपोर्ट रेंज) - 1) _और vbCrLf और c.पाठ और सीमांककहोल्डरो = सी.रोअन्यथाExportRange = ExportRange & c.Text & Delimiterअगर अंतअगला ग'अतिरिक्त सीमांकक ट्रिम करें'एक्सपोर्टरेंज = लेफ्ट (एक्सपोर्ट रेंज, लेन (एक्सपोर्ट रेंज) -1)'अगर फाइल पहले से मौजूद है तो उसे मार दें'यदि लेन (दिर (कहाँ)) > 0 तोमारो कहाँअगर अंत# 1 के रूप में संलग्न करने के लिए कहां खोलें 'नई फ़ाइल लिखें'प्रिंट #1, ExportRangeबंद #1अंत समारोह |
