Excel में डेटा की सूची से एकाधिक फ़ोल्डर और सबफ़ोल्डर बनाएं
मान लीजिए कि आपके पास वर्कशीट रेंज के भीतर कर्मचारियों के नामों की एक सूची है और प्रत्येक के लिए उनकी जानकारी संग्रहीत करने के लिए अलग-अलग फ़ोल्डर बनाने का लक्ष्य है। प्रत्येक फ़ोल्डर को मैन्युअल रूप से बनाने में समय लग सकता है। हालाँकि, इस प्रक्रिया को तेज़ करने के लिए प्रभावी तरीके मौजूद हैं। इस गाइड में, मैं निर्दिष्ट सेल मानों के आधार पर शीघ्रता से फ़ोल्डर बनाने के लिए कई दृष्टिकोण साझा करूंगा।
सेल मानों के आधार पर फ़ोल्डर बनाएँ
- एमडी कमांड और नोटपैड का उपयोग करके
- एक शक्तिशाली सुविधा का उपयोग करके - एक्सेल के लिए कुटूल
- VBA कोड का उपयोग करके
VBA कोड के साथ सेल मानों के आधार पर फ़ोल्डर और सबफ़ोल्डर बनाएं
सेल मानों के आधार पर फ़ोल्डर बनाएँ
इस अनुभाग में, हम सेल मानों की सूची के आधार पर तेजी से और आसानी से फ़ोल्डर बनाने के लिए व्यापक चरण-दर-चरण निर्देशों की पेशकश करते हुए विभिन्न तरीकों का विस्तार से पता लगाएंगे।
एमडी कमांड और नोटपैड का उपयोग करके सूची से फ़ोल्डर बनाएं
एमडी कमांड और नोटपैड का उपयोग करके एक्सेल से एक सूची को फ़ोल्डर्स में बदलना एक स्मार्ट ट्रिक है जो चीजों को व्यवस्थित रखने के लिए एक्सेल की आदत के साथ आसान बैच स्क्रिप्टिंग को जोड़ती है। यह विधि बिना हाथ से किए बहुत सारे फ़ोल्डर्स तुरंत बनाने के लिए बहुत बढ़िया है। इस कार्य को पूरा करने के लिए चरण-दर-चरण मार्गदर्शिका यहां दी गई है:
चरण 1: सूत्र बनाने के लिए एमडी कमांड का उपयोग करें
निम्नलिखित सूत्र को अपने पहले सेल मान (उदाहरण के लिए बी1) के बगल में एक रिक्त सेल में कॉपी करें या दर्ज करें, और फिर, अपने सभी सूची आइटमों पर सूत्र लागू करने के लिए भरण हैंडल को नीचे खींचें।
="MD "&A1
चरण 2: सूत्रों को नोटपैड फ़ाइल में कॉपी और पेस्ट करें
- दबाएँ Ctrl + सी एमडी कमांड फॉर्मूला के साथ कोशिकाओं की प्रतिलिपि बनाने के लिए।
- प्रारंभिक नोटपैड और प्रेस Ctrl + V का कमांड को एक नई फ़ाइल में पेस्ट करने के लिए।
चरण 3: नोटपैड फ़ाइल को .bat फ़ाइल के रूप में सहेजें
क्लिक करें के रूप में सहेजें से पट्टिका नोटपैड में टैब, में के रूप में सहेजें संवाद बॉक्स, एक निर्देशिका चुनें जहां आप एकाधिक फ़ोल्डर्स बनाना चाहते हैं, और फिर इस फ़ाइल के लिए एक नाम दें . चमगादड़ विस्तार। अंत में क्लिक करें सहेजें बटन। स्क्रीनशॉट देखें:
चरण 4: एकाधिक फ़ोल्डर बनाने के लिए .bat फ़ाइल पर डबल क्लिक करें
- नोटपैड फ़ाइल को बंद करें, उस फ़ोल्डर पर जाएँ जहाँ आपने पहले .bat फ़ाइल को सहेजा था।
- अब, जादू देखें: फ़ाइल पर डबल-क्लिक करें, और आप एक साथ कई फ़ोल्डर्स बनते देखेंगे। नीचे डेमो देखें:
शक्तिशाली टूल - एक्सेल के लिए कुटूल का उपयोग करके सूची से फ़ोल्डर बनाएं
ताकतवर के साथ एक्सेल के लिए कुटूलहै सेल सामग्री से फ़ोल्डर बनाएँ सुविधा, अब आप एक्सेल सूची से आसानी से और जल्दी से फ़ोल्डर बना सकते हैं। लेकिन यह केवल बुनियादी फ़ोल्डरों तक ही सीमित नहीं है; कुटूल आपको एक बार में बहु-स्तरीय सबफ़ोल्डर्स के साथ जटिल संरचनाएँ बनाने की भी अनुमति देता है। बस कुछ सरल कदम एक्सेल से डेटा को एक संगठित फ़ोल्डर सिस्टम में बदल सकते हैं, जिससे आपकी उत्पादकता में काफी वृद्धि हो सकती है।
स्थापित करने के बाद एक्सेल के लिए कुटूल, फिर से लॉगिन करने के लिए कुटूल्स प्लस > आयात निर्यात > सेल सामग्री से फ़ोल्डर बनाएँ को खोलने के लिए सेल सामग्री से फ़ोल्डर बनाएँ संवाद बकस:
- उन सेल मानों का चयन करें जिनके आधार पर आप फ़ोल्डर बनाना चाहते हैं;
- फिर, क्लिक करें उस गंतव्य फ़ोल्डर को निर्दिष्ट करने के लिए बटन जिसे आप फ़ोल्डरों को सहेजना चाहते हैं;
- अंत में क्लिक करें, OK बटन.
रिजल्ट:
कुटूल आपकी शीट से सूची संसाधित करेगा और निर्दिष्ट गंतव्य में प्रत्येक प्रविष्टि के लिए एक फ़ोल्डर बनाएगा। परिणाम देखने के लिए गंतव्य फ़ोल्डर पर जाएँ। स्क्रीनशॉट देखें:
- यह उपयोगी सुविधा भी मदद कर सकती है उनके सबफ़ोल्डर्स के साथ फ़ोल्डर्स बनाएँ जैसी तुम्हारी ज़रूरत है। ऐसा करने के लिए, आपको प्रत्येक स्तर को अलग करने के लिए बैकस्लैश चिह्न (\) का उपयोग करके, सेल में वांछित फ़ोल्डर और सबफ़ोल्डर नाम दर्ज करना चाहिए। प्रत्येक सेल की सामग्री फ़ोल्डर्स और सबफ़ोल्डर्स की वांछित संरचना स्थापित करने के लिए एक मार्गदर्शक के रूप में कार्य करेगी।
फिर, लागू करें सेल सामग्री से फ़ोल्डर बनाएँ सुविधा, सभी फ़ोल्डर्स उनके सबफ़ोल्डर्स के साथ सफलतापूर्वक बनाए जाएंगे। स्क्रीनशॉट देखें: - कृपया इस सुविधा को लागू करने के लिए एक्सेल के लिए कुटूल डाउनलोड और इंस्टॉल करें पहले।
VBA कोड का उपयोग करके सूची से फ़ोल्डर बनाएं
एक्सेल में वीबीए कोड का उपयोग किसी सूची से फ़ोल्डर बनाने के कठिन कार्य को त्वरित, स्वचालित प्रक्रिया में बदल सकता है। यह अनुभाग आपको दिखाएगा कि फ़ोल्डर बनाने के लिए VBA कोड कैसे लागू करें।
चरण 1: वीबीए मॉड्यूल संपादक खोलें और कोड कॉपी करें
- नीचे पकड़ो ALT + F11 एक्सेल में कुंजियाँ, और यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
- क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल मानों की सूची के आधार पर फ़ोल्डर बनाएंSub CreateFoldersFromSelection() 'Updateby Extendoffice Dim FolderPath As String Dim Cell As Range Dim SelectedRange As Range Dim FolderName As String On Error Resume Next Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8) If SelectedRange Is Nothing Then Exit Sub On Error GoTo 0 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Select the destination Folder" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub FolderPath = .SelectedItems(1) & "\" End With For Each Cell In SelectedRange FolderName = FolderPath & Cell.Value If Cell.Value <> "" And Not FolderExists(FolderName) Then MkDir FolderName End If Next Cell End Sub Function FolderExists(ByVal Path As String) As Boolean On Error Resume Next FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory On Error GoTo 0 End Function
चरण 2: कोड निष्पादित करें
- इस कोड को पेस्ट करने के बाद कृपया दबाएं F5 इस कोड को चलाने की कुंजी. प्रॉम्प्ट बॉक्स में, उन सेल मानों का चयन करें जिनसे आप फ़ोल्डर बनाना चाहते हैं। और फिर, क्लिक करें OK.
- फिर, निम्नलिखित में गंतव्य फ़ोल्डर का चयन करें विंडो, बनाए गए फ़ोल्डरों को आउटपुट करने के लिए गंतव्य पथ निर्दिष्ट करें। और फिर, क्लिक करें OK बटन, स्क्रीनशॉट देखें:
रिजल्ट:
वीबीए कोड निष्पादित करने के बाद, परिणाम देखने के लिए गंतव्य निर्देशिका पर जाएं। वहां, आपको नए बनाए गए फ़ोल्डर मिलेंगे, जिनमें से प्रत्येक आपकी एक्सेल सूची के एक आइटम से संबंधित होगा। स्क्रीनशॉट देखें:
- यदि कक्षों में डुप्लिकेट प्रविष्टियाँ हैं, तो कोड चलाने से उन डुप्लिकेट के लिए केवल एक फ़ोल्डर बनाया जाएगा।
- यदि आप स्वयं को बार-बार इस कोड का उपयोग करते हुए पाते हैं, तो अपनी कार्यपुस्तिका को सहेजने पर विचार करें एक्सेल मैक्रो-सक्षम कार्यपुस्तिका प्रारूप। यह क्रिया कार्यपुस्तिका के भीतर कोड को संरक्षित करती है, जिससे आप भविष्य में कोड को दोबारा दर्ज करने या दोबारा आयात करने की आवश्यकता के बिना इसे सीधे निष्पादित कर सकते हैं।
VBA कोड के साथ सेल मानों के आधार पर फ़ोल्डर और सबफ़ोल्डर बनाएं
कभी-कभी, आप खुद को ऐसी स्थिति में पा सकते हैं जहां आपको एक्सेल कोशिकाओं के डेटा के आधार पर न केवल फ़ोल्डर्स, बल्कि उनके संबंधित सबफ़ोल्डर भी उत्पन्न करने की आवश्यकता होती है। इस कार्य को प्राप्त करने के लिए, मैं यहां एक VBA कोड पेश करूंगा।
चरण 1: डेटा तैयार करें
सबसे पहले, आपको दिखाए गए स्क्रीनशॉट के अनुसार डेटा दर्ज करना चाहिए, पहले कॉलम में मुख्य फ़ोल्डर नाम और दूसरे कॉलम में सबफ़ोल्डर के नाम रखें।
चरण 2: वीबीए मॉड्यूल संपादक खोलें और कोड कॉपी करें
- नीचे पकड़ो ALT + F11 एक्सेल में कुंजियाँ, और यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
- क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल मान आधारित फ़ोल्डर और सबफ़ोल्डर बनाएंSub CreateFoldersAndSubfoldersWithUserInput() 'Updateby Extendoffice Dim Rng As Range Dim Cell As Range Dim basePath As String Dim fldrPicker As FileDialog Dim FolderPath As String, subfolderPath As String On Error Resume Next Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8) If Rng Is Nothing Then Exit Sub On Error GoTo 0 Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With fldrPicker .Title = "Select the Base Folder Path" .AllowMultiSelect = False If .Show <> -1 Then Exit Sub basePath = .SelectedItems(1) End With If Right(basePath, 1) <> "\" Then basePath = basePath & "\" For Each Cell In Rng.Columns(1).Cells If Not Cell.Value = "" Then FolderPath = basePath & Cell.Value If Not FolderExists(FolderPath) Then MkDir FolderPath If Not Cell.Offset(0, 1).Value = "" Then subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value If Not FolderExists(subfolderPath) Then MkDir subfolderPath End If End If Next Cell End Sub Function FolderExists(FolderPath As String) As Boolean On Error Resume Next FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory On Error GoTo 0 End Function
चरण 3: कोड निष्पादित करें
- इस कोड को पेस्ट करने के बाद कृपया दबाएं F5 इस कोड को चलाने की कुंजी. प्रॉम्प्ट बॉक्स में, उन सेल मानों का चयन करें जिनसे आप फ़ोल्डर बनाना चाहते हैं। और फिर, क्लिक करें OK.
- निम्नलिखित पॉप-आउट विंडो में, बनाए गए फ़ोल्डरों को आउटपुट करने के लिए गंतव्य पथ निर्दिष्ट करें। और फिर, क्लिक करें OK बटन, स्क्रीनशॉट देखें:
रिजल्ट:
वीबीए कोड निष्पादित करने के बाद, परिणाम देखने के लिए गंतव्य निर्देशिका पर जाएं। आप पाएंगे कि फ़ोल्डर और उनके संबंधित सबफ़ोल्डर, जैसा कि सेल मानों द्वारा तय किया गया है, सफलतापूर्वक निम्न स्क्रीनशॉट में दिखाए गए अनुसार बनाए गए हैं:
- यह कोड केवल मुख्य फ़ोल्डर और उनके प्रथम-स्तरीय सबफ़ोल्डर बनाने के लिए उपलब्ध है।
- यदि आप स्वयं को बार-बार इस कोड का उपयोग करते हुए पाते हैं, तो अपनी कार्यपुस्तिका को सहेजने पर विचार करें एक्सेल मैक्रो-सक्षम कार्यपुस्तिका प्रारूप। यह क्रिया कार्यपुस्तिका के भीतर कोड को संरक्षित करती है, जिससे आप भविष्य में कोड को दोबारा दर्ज करने या दोबारा आयात करने की आवश्यकता के बिना इसे सीधे निष्पादित कर सकते हैं।
संबंधित आलेख:
- किसी फ़ोल्डर और उप-फ़ोल्डर से सभी फ़ाइल नामों को एक वर्कशीट में सूचीबद्ध करें
- यदि आप किसी कार्यपत्रक में किसी निर्देशिका के भीतर फ़ाइल नामों की एक सूची तैयार करना चाहते हैं, तो आप कार्यपत्रक में किसी निर्देशिका से फ़ाइलों की सूची शीघ्रता से प्राप्त करने के लिए निम्नलिखित तरीकों से प्रक्रिया कर सकते हैं।
- एक्सेल में सभी फ़ोल्डर्स और सबफ़ोल्डर्स की सूची बनाएं
- क्या आप कभी इस समस्या से पीड़ित हुए हैं जो एक निर्दिष्ट निर्देशिका से सभी फ़ोल्डरों और सबफ़ोल्डरों को एक वर्कशीट में सूचीबद्ध करता है? एक्सेल में, किसी विशिष्ट निर्देशिका में सभी फ़ोल्डरों के नाम एक साथ प्राप्त करने का कोई त्वरित और आसान तरीका नहीं है। इस कार्य से निपटने के लिए यह लेख आपकी मदद कर सकता है।
- सूची के आधार पर फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में कॉपी या स्थानांतरित करें
- यदि आपके पास वर्कशीट में एक कॉलम में फ़ाइल नामों की एक सूची है, और फ़ाइलें आपके कंप्यूटर में एक फ़ोल्डर में स्थित हैं। लेकिन, अब, आपको इन फ़ाइलों को स्थानांतरित या कॉपी करने की आवश्यकता है जिनके नाम वर्कशीट में उनके मूल फ़ोल्डर से दूसरे स्क्रीनशॉट में दिखाए गए अनुसार सूचीबद्ध हैं। आप एक्सेल में इस कार्य को जितनी जल्दी हो सके कैसे पूरा कर सकते हैं?
- किसी फ़ोल्डर की अनेक फ़ाइलों का नाम बदलें
- हो सकता है कि हममें से अधिकांश लोग इस समस्या से पीड़ित हों कि हमें एक फ़ोल्डर में कई फ़ाइलों का नाम बदलने की आवश्यकता होती है, फ़ाइल नामों को एक-एक करके नाम बदलने से हम पागल हो जाएंगे यदि उस फ़ोल्डर में सैकड़ों या हजारों फ़ाइलें हैं। क्या इस कार्य से निपटने के लिए हमारे पास कोई अच्छे कार्य हैं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!