✅ वीबीए प्रतिलिपि फ़ाइल / कार्यपुस्तिका

विषय - सूची

एक फ़ाइल / कार्यपुस्तिका की प्रतिलिपि बनाएँ
एक फ़ाइल की प्रतिलिपि बनाएँ और उसका नाम बदलें

VBA आपको का उपयोग करके एक फ़ाइल की प्रतिलिपि बनाने की अनुमति देता है फाइलसिस्टमऑब्जेक्ट. इस ट्यूटोरियल में, आप सीखेंगे कि किसी विशिष्ट फ़ाइल की प्रतिलिपि कैसे बनाई जाए और उसका नाम कैसे बदला जाए।

यदि आप किसी फ़ाइल का नाम बदलना सीखना चाहते हैं, तो आप इस लिंक पर क्लिक कर सकते हैं: VBA फ़ाइल का नाम बदलें

एक फ़ाइल / कार्यपुस्तिका की प्रतिलिपि बनाएँ

हम दिखाएंगे कि मौजूदा फाइल को कैसे कॉपी करें नमूना फ़ाइल 1.xlsx फोल्डर में वीबीए फ़ोल्डर. इस उदाहरण में, हम फ़ाइल का नाम नहीं बदलेंगे, बस उसे कॉपी और अधिलेखित कर देंगे। फ़ोल्डर में वर्तमान में केवल यह एक फ़ाइल है:

छवि 1. फ़ोल्डर C:\VBA फ़ोल्डर में फ़ाइल

यहाँ कोड है:

12345

वस्तु के रूप में FSO का मंद होनाओएफएसओ सेट करें = CreateObject ("Scripting.FileSystemObject")oFSO.CopyFile("C:\VBA Folder\Sample file 1.xlsx", "C:\VBA Folder\", True) पर कॉल करें

आपको सबसे पहले कक्षा का ऑब्जेक्ट बनाना होगा स्क्रिप्टिंग.फाइलसिस्टमऑब्जेक्ट:

1	ओएफएसओ सेट करें = CreateObject ("Scripting.FileSystemObject")

तब हम विधि का उपयोग कर सकते हैं प्रतिलिपि फ़ाइल:

1	oFSO.CopyFile("C:\VBA Folder\Sample file 1.xlsx", "C:\VBA Folder\", True) पर कॉल करें

विधि का पहला पैरामीटर स्रोत पथ है और दूसरा गंतव्य पथ है। तीसरा पैरामीटर है ओवरराइट. जैसा कि हमारे पास एक ही स्रोत और गंतव्य पथ हैं, हमें सेट करने की आवश्यकता है ओवरराइट सही या गलत के लिए। इस उदाहरण में, हम True डालते हैं, जिसका अर्थ है कि मूल फ़ाइल अधिलेखित हो गई है।

आइए अब देखें कि क्या होता है यदि हमारे पास समान गंतव्य हैं, लेकिन ओवरराइट को गलत पर सेट करें। आपको बस कोड की इस लाइन को बदलने की जरूरत है:

1	oFSO.CopyFile("C:\VBA Folder\Sample file 1.xlsx", "C:\VBA Folder\", True) पर कॉल करें

परिणामस्वरूप, आपको एक त्रुटि मिलेगी जैसा कि आप चित्र 2 में देख सकते हैं:

छवि 2. फ़ाइल की प्रतिलिपि बनाते समय त्रुटि

एक फ़ाइल की प्रतिलिपि बनाएँ और उसका नाम बदलें

किसी फ़ाइल की प्रतिलिपि बनाते समय एक अन्य संभावित विकल्प उसका नाम बदलना है। यह एक फ़ाइल की प्रतिलिपि बनाने के समान है, लेकिन अब आपको बस एक अलग नाम के साथ गंतव्य पथ सेट करने की आवश्यकता है। यहाँ कोड है:

12345

वस्तु के रूप में FSO का मंद होनाओएफएसओ सेट करें = CreateObject ("Scripting.FileSystemObject")oFSO.CopyFile("C:\VBA Folder\Sample file 1.xlsx", "C:\VBA Folder\Sample file Copy.xlsx") पर कॉल करें।

जैसा कि आप कोड की अंतिम पंक्ति से देख सकते हैं, हम फ़ाइल की प्रतिलिपि बनाना चाहते हैं नमूना फ़ाइल 1.xlsx उसी फ़ोल्डर में और इसे नाम दें नमूना फ़ाइल Copy.xlsx: