एक्सेल VBA FileCopy फ़ंक्शन
फाइल कॉपी एक इनबिल्ट vba फंक्शन है जिसका उपयोग फाइल को एक स्थान से दूसरे स्थान पर कॉपी करने के लिए किया जाता है। इस फ़ंक्शन का उपयोग करने के लिए, हमें वर्तमान फ़ाइल पथ और गंतव्य फ़ाइल पथ का उल्लेख करना होगा।
ठीक है, चलिए FileCopy फ़ंक्शन के सिंटैक्स को देखते हैं।
- स्रोत: यह और कुछ नहीं है, जहां से हमें फ़ाइल की प्रतिलिपि बनाने की आवश्यकता है। हमें पूरी तरह से योग्य फ़ोल्डर पथ का उल्लेख करने की आवश्यकता है।
- डेस्टिनेशन: यह डेस्टिनेशन फोल्डर है जहाँ हमें कॉपी की हुई फाइल को पेस्ट करना होता है।
उदाहरण
नीचे VBA कोड का उपयोग करके फ़ाइलों को कॉपी करने के तरीके के उदाहरण दिए गए हैं।
उदाहरण 1
एक सरल उदाहरण से शुरू करते हैं। मेरे पास फ़ोल्डर में "बिक्री अप्रैल 2019" नामक एक फ़ाइल है। नीचे उसी की छवि है, अर्थात, " स्रोत।"
उपरोक्त स्थान से, मैं इस फाइल को कॉपी करना चाहता हूं और इसे एक अलग फ़ोल्डर में पेस्ट करना चाहता हूं। नीचे उसी की छवि है, अर्थात्, " गंतव्य स्रोत।"
ठीक है, चलो इसके लिए कोड लिखते हैं।
उप प्रक्रिया के अंदर FileCopy फ़ंक्शन खोलें ।
कोड:
उप FileCopy_Example1 ()
FileCopy
अंत उप
अब पहले तर्क के लिए, हमें उस फ़ाइल पथ का उल्लेख करना होगा जहां हमारी मुद्रा है।
कोड:
उप FileCopy_Example1 ()
FileCopy “D: My Files VBA April फाइलें
अंत उप
फ़ोल्डर पथ का उल्लेख करने के बाद, हमें फ़ाइल एक्सटेंशन के साथ फ़ाइल का उल्लेख करना होगा। इसलिए बैकस्लैश () लगाकर फ़ाइल नाम का उल्लेख करें।
कोड:
उप FileCopy_Example1 () FileCopy "D: My Files VBA April फ़ाइलें Sales April 2019.xlsx", एंड सब
अब दूसरे तर्क में, उल्लेख करें कि हमें कॉपी की गई फ़ाइल को कहां पेस्ट करना है।
कोड:
उप FileCopy_Example1 () FileCopy "D: My Files VBA April फ़ाइलें Sales April 2019.xlsx", "D: My Files VBA Destination Folder Sales अप्रैल 2019 .xlsx" अंतिम उप
एक बात जो हमें अंत में फ़ोल्डर पथ का उल्लेख करने की आवश्यकता है, हमें फ़ाइल नाम के साथ-साथ गंतव्य तर्क में भी उल्लेख करना होगा।
अब F5 कुंजी या मैन्युअल रूप से कोड का उपयोग करें। फिर, यह फ़ाइल को नीचे के स्थान से गंतव्य स्थान तक कॉपी कर देगा।
"D: My Files VBA April फ़ाइलें Sales अप्रैल 2019.xlsx"
"D: My फ़ाइलें VBA Destination Folder Sales अप्रैल 2019.xlsx"
उदाहरण # 2 - स्रोत पथ और गंतव्य पथ स्टोर करने के लिए चर का उपयोग करें।
पिछले उदाहरण में, हमने स्रोत पथ और गंतव्य पथ को सीधे सूत्र में आपूर्ति की है। लेकिन यह जारी रखने के लिए सबसे अच्छा अभ्यास नहीं है, तो चलो उन्हें चर में स्टोर करें।
उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
Sub FileCopy_Example2 () Dim SourcePath स्ट्रिंग स्ट्रिंग डिम डेस्टिनेशनपाथ String SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx" डेस्टिनेशनपाथ = D: My Files VBA Destination Folder Sales अप्रैल 2019। xlsx "फाइलकॉपी सोर्सपाथ, डेस्टिनेशनपाथ एंड सब
मुझे कोड के बारे में विस्तार से बताएं।
सबसे पहले, मैंने दो चर घोषित किए हैं।
स्ट्रिंग के रूप में डिम सोर्सपाथ स्ट्रिंग के रूप में डिम डेस्टिनेशनपाथ
फिर पहले चर के लिए, मैंने उस फ़ोल्डर पथ को असाइन किया है जहां से उसे फ़ाइल और फ़ाइल नाम के साथ-साथ उसके फ़ाइल एक्सटेंशन को कॉपी करना होगा।
SourcePath = "D: My Files VBA April फ़ाइलें Sales अप्रैल 2019.xlsx"
दूसरे चर के लिए, इसी तरह, मैंने फ़ाइल नाम और एक्सेल एक्सटेंशन के साथ गंतव्य फ़ोल्डर पथ असाइन किया है।
डेस्टिनेशनपाथ = "D: My Files VBA Destination Folder Sales अप्रैल 2019.xlsx"
तब सूत्र FileCopy के लिए, मैंने लंबे फ़ोल्डर पथ पथ के बजाय इन चर की आपूर्ति की है।
FileCopy SourcePath, डेस्टिनेशनपाथ
इस तरह, हम चर का उपयोग पथों को संग्रहीत करने और उन्हें कुशलता से उपयोग करने के लिए कर सकते हैं।
उदाहरण # 3 - फ़ाइल कॉपी फ़ंक्शन के साथ त्रुटि
कभी-कभी फ़ाइल कॉपी फ़ंक्शन "अनुमति अस्वीकृत" की एक त्रुटि का सामना करता है।
कारण यह है कि हमें यह त्रुटि मिलती है क्योंकि जब प्रतिलिपि फ़ाइल खोली जाती है और यदि आप उपरोक्त त्रुटि को कॉपी करने का प्रयास करते हैं, तो हमेशा फ़ाइल को बंद करें और कोड निष्पादित करें।
