VBA आपको का उपयोग करके खोलने के लिए एक फ़ाइल चुनने की अनुमति देता है एप्लिकेशन.गेटओपनफाइलनाम तरीका। इस ट्यूटोरियल में, आप सीखेंगे कि फाइल डायलॉग कैसे खोलें और पैरामीटर कैसे सेट करें।
यदि आप किसी फ़ाइल को खोलना और बंद करना सीखना चाहते हैं, तो आप इस लिंक पर क्लिक कर सकते हैं: VBA फ़ाइल खोलें/बंद करें
VBA में एक फ़ाइल संवाद खोलें
यदि आप VBA में कोई फ़ाइल खोलना चाहते हैं, तो सबसे पहले आपको फ़ाइल चुनने के लिए एक फ़ाइल संवाद खोलना होगा। यहाँ कोड है:
123 | स्ट्रिंग के रूप में मंद strFilestrFile = अनुप्रयोग। GetOpenFilename ( |
जैसा कि आप देख सकते हैं, विधि में कई पैरामीटर हैं। फ़ाइल फ़िल्टर आपको हमारे मामले में .xlsx फ़ाइलों के लिए आवश्यक फ़ाइल प्रकारों को फ़िल्टर करने की अनुमति देता है।
में शीर्षक पैरामीटर, आप संवाद बॉक्स का शीर्षक सेट कर सकते हैं। यदि आप एकाधिक फ़ाइलें खोलने की अनुमति देना चाहते हैं, तो आपको सेट करना होगा एकाधिक चयन सच करने के लिए। यदि आप यह पैरामीटर सेट नहीं करते हैं, तो केवल एक फ़ाइल का चयन किया जा सकता है।
छवि 1. एक फ़ाइल संवाद खोलें
जैसा कि आप इमेज 1 में देख सकते हैं, डायलॉग बॉक्स शीर्षक के साथ दिखाई देता है एक एक्सेल फ़ाइल चुनें. केवल एक्सेल फाइलें ही फिल्टर की जाती हैं और हम कई फाइलों का चयन कर सकते हैं।
एक विशिष्ट फ़ोल्डर में एक फ़ाइल संवाद बॉक्स खोलें
यदि आप किसी विशिष्ट फ़ोल्डर में डायलॉग बॉक्स खोलना चाहते हैं, तो आपको विधि का उपयोग करना होगा फ़ाइल संवाद पैरामीटर के साथ msoFileDialogFilePicker. उदाहरण में, हम फोल्डर में एक डायलॉग बॉक्स खोलेंगे सी: \ वीबीए फ़ोल्डर. यहाँ कोड है:
123456789101112131415161718192021 | Office के रूप में मंद fd.FileDialogस्ट्रिंग के रूप में मंद strFileएफडी सेट करें = एप्लिकेशन। फाइलडिअलॉग (msoFileDialogFilePicker)एफडी . के साथ.फ़िल्टर.साफ़.Filters.Add "Excel Files", "*.xlsx?", 1.Title = "एक एक्सेल फाइल चुनें".AllowMultiSelect = False.InitialFileName = "सी:\VBA फ़ोल्डर"अगर .दिखाएँ = सच तोstrFile = .SelectedItems(1)अगर अंतके साथ समाप्त करना |
सबसे पहले आपको वेरिएबल घोषित करने की आवश्यकता है एफडी प्रकार कार्यालय.फ़ाइलसंवाद और फ़ाइल लेने के लिए स्ट्रिंग चर:
12 | कार्यालय के रूप में मंद एफडी। फाइल डायलॉगस्ट्रिंग के रूप में मंद strFile |
इसके बाद आपको सेट करना होगा एफडी प्रति Application.FileDialog(msoFileDialogFilePicker):
1 | एफडी सेट करें = एप्लिकेशन। फाइलडिअलॉग (msoFileDialogFilePicker) |
अब, भीतर एफडी के साथ अंत, हम कई पैरामीटर सेट कर सकते हैं:
1234567 | .फ़िल्टर.साफ़.Filters.Add "Excel Files", "*.xlsx?", 1.Title = "एक एक्सेल फाइल चुनें".AllowMultiSelect = False |
यहां हम फ़ाइल फ़िल्टर साफ़ करते हैं (.फ़िल्टर.साफ़) और इसे .xlsx (.Filters.Add "Excel Files", "*.xlsx?", 1) पर सेट करें।
साथ ही, हम डायलॉग बॉक्स का शीर्षक सेट कर सकते हैं: .Title = "एक एक्सेल फाइल चुनें"।
हम उपयोगकर्ता को केवल एक फ़ाइल का चयन करने के लिए सीमित कर सकते हैं: .अनुमति देंमल्टीसेलेक्ट = गलत
हम चाहते हैं कि फ़ोल्डर में एक संवाद बॉक्स खोलने के लिए, हमें कोड की यह पंक्ति डालनी होगी:
1 | .InitialFileName = "सी:\VBA फ़ोल्डर" |
अंत में हम पहले से सेट किए गए सभी मापदंडों के साथ डायलॉग बॉक्स खोलेंगे:
12345 | अगर .दिखाएँ = सच तोstrFile = .SelectedItems(1)अगर अंत |
जब हम इस कोड को निष्पादित करते हैं, तो फ़ाइल खोलने के लिए संवाद बॉक्स फ़ोल्डर में दिखाई देता है सी: \ वीबीए फ़ोल्डर:
छवि 2. एक विशिष्ट फ़ोल्डर में एक फ़ाइल संवाद खोलें