एक्सेल VBA FreeFile
FreeFile VBA में एक फ़ंक्शन है जो केवल VBA फ़ंक्शन के रूप में उपलब्ध है, कार्यपत्रक फ़ंक्शन के रूप में नहीं। VBA FreeFile फ़ंक्शन फ़ाइल में अद्वितीय पूर्णांक संख्या देता है, जिसे खोला जाता है और अगले उपलब्ध फ़ाइल नंबर को संरक्षित करता है।
हम आमतौर पर अपने कंप्यूटर से फाइलें या तो कुछ लिखने के लिए या केवल पढ़ने के लिए खोलते हैं, उन फाइलों का उल्लेख करते हुए, हमें एक अद्वितीय पूर्णांक संख्या के साथ उल्लेख करना चाहिए। VBA FreeFile फ़ंक्शन हमें VBA का उपयोग करके फ़ाइलों को पढ़ने, लिखने और खोलने के लिए फ़ाइल खोलने के लिए असाइन करने के लिए उस अनन्य पूर्णांक संख्या को निर्धारित करने की अनुमति देता है।
अब OPEN स्टेटमेंट के सिंटैक्स पर एक नज़र डालें।
OPEN (फ़ाइल पथ पता) के लिए (मोड खोलने के लिए) (फ़ाइल नंबर)
फ़ाइल पथ पता: हमें अपने कंप्यूटर पर फ़ाइल पते का उल्लेख करना होगा जिसे हम खोलने की कोशिश कर रहे हैं।
मोड को खोलें: फ़ाइल को खोलते समय, हमें यह जानना होगा कि हम किस तरह का मॉडल लागू करने जा रहे हैं। हम यहां तीन तरीकों का उपयोग कर सकते हैं, "इनपुट मोड," "आउटपुट मोड," और "एपेंड मोड।"
केवल फ़ाइल पढ़ने के लिए इनपुट मोड।
मौजूदा डेटा को मिटाने और नए डेटा को डालने के लिए आउटपुट मोड।
मौजूदा डेटा को बनाए रखते हुए नए डेटा को जोड़ने के लिए मोड को जोड़ें।
फ़ाइल संख्या: इस तर्क के साथ, हम उस फ़ाइल का उल्लेख कर सकते हैं जिसे हम खोल रहे हैं-जहाँ "फ़्रीफ़ाइल" फ़ंक्शन एक महत्वपूर्ण भूमिका निभाता है और अद्वितीय पूर्णांक संख्या देता है।
Excel VBA में फ़्रीफ़ाइल फ़ंक्शन का उपयोग कैसे करें?
अब, नीचे दिए गए कोड को देखें।
कोड:
सब FreeFile_Example1 () डिम पाथ स्ट्रिंग के रूप में डिम फ़ाइलनंबर इंटर्जर पाथ = "D: Article 2019 File 1.txt" FileNumber = FreeFile Open Path for आउटपुट के रूप में FileNumber Path = "D": Article 2019 File 2.txt "FileNumber = FileNumber End Sub के रूप में आउटपुट के लिए FreeFile ओपन पाथ
अब मैं आपको समझने के लिए उपरोक्त कोड को डीकोड कर दूंगा।
सबसे पहले, मैंने दो चर घोषित किए हैं।
स्ट्रिंग के रूप में डिम पथ, इंटीजर के रूप में डिम फाइलनंबर
फिर मैंने इसके नाम के साथ फाइल पथ सौंपा है।
पथ = "D: Article 2019 File 1.txt"
फिर एक और चर के लिए, मैंने फ़्रीइज़र फ़ंक्शन को असाइन किया है।
FileNumber = FreeFile
फिर मैंने ऊपर दिए गए पथ में उल्लिखित फ़ाइल में पाठ फ़ाइल को खोलने के लिए ओपन स्टेटमेंट का उपयोग किया है।
FileNumber के रूप में आउटपुट के लिए ओपन पाथ
ठीक है, अब मैं F8 कुंजी दबाकर लाइन कोड द्वारा लाइन चलाऊंगा और चर "FileNumber" का मूल्य देखूंगा।
यह फ़ाइल नंबर को 1 के रूप में दिखा रहा है। इसलिए, मुफ्त फ़ाइल फ़ंक्शन स्वचालित रूप से इस नंबर को शुरुआती फ़ाइल में रखता है। इसे चलाते समय, कोई अन्य फाइल नहीं खोली जाती है।
अब मैं VBA कोड की अगली पंक्ति को क्रियान्वित करता रहूंगा और देखूंगा कि यदि मैं अगली पंक्ति में जाऊं तो फाइल नंबर क्या है।
अब यह कहता है 2. इसलिए FreeFile फ़ंक्शन अद्वितीय पूर्णांक संख्या 2 को दूसरी प्रारंभिक फ़ाइल में रखता है।
अगर हम एक्सेल फाइल को बंद करते हैं तो फ्रीफाइल फंक्शन हमेशा 1 रिटर्न देता है।
एक चीज जो हमें देखने की जरूरत है वह है VBA "फ्रीफाइल" फ़ंक्शन हमेशा एक रिटर्न देता है यदि हम दूसरी एक्सेल फाइल खोलने से पहले खोली गई फ़ाइल को बंद करते हैं।
उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
सब FreeFile_Example2 () डिम पाथ स्ट्रिंग ऐज के रूप में डिम फाइलनंबर इंटर्जर पाथ = "D: Articles 2019 फ़ाइल 1.txt" FileNumber = FreeFile आउटपुट के लिए ओपन पथ आउटपुट के रूप में FileNumber बंद FileNumber Path = "D: Articles 2019 " फ़ाइल 2 .txt "FileNumber = FileNumber के रूप में आउटपुट के लिए FreeFile ओपन पाथ FileNumber बंद उप
अब मैं एक बार फिर F8 कुंजी दबाकर कोड लाइन को लाइन से निष्पादित करूंगा।
यह 1 हमेशा की तरह कहता है।
अब मैं अगले स्तर तक प्रगति करूंगा।
यहां तक कि इसके दूसरे प्रयास में भी 1 कहते हैं।
इसका कारण यह है कि हमने क्लोज़ फ़ाइल स्टेटमेंट का उपयोग किया है, फ़्रीफाइल नई खुली हुई फ़ाइल को नए सिरे से पहचानता है और पूर्णांक संख्या को 1 के रूप में लौटाता है।
