एक्सेल में सेल में एकाधिक फ़ाइल नाम कैसे आयात करें?

मान लीजिए कि आपके पास सैकड़ों फ़ाइलों वाला एक फ़ोल्डर है, और अब, आप इन फ़ाइल नामों को वर्कशीट की कोशिकाओं में आयात करना चाहते हैं। एक-एक करके कॉपी और पेस्ट करने में बहुत समय लगेगा, इस लेख में, मैं एक फ़ोल्डर से वर्कशीट में एकाधिक फ़ाइल नामों को आयात करने में आपकी सहायता के लिए कुछ त्वरित युक्तियों के बारे में बात करूंगा।

VBA कोड के साथ वर्कशीट सेल में एकाधिक फ़ाइल नाम आयात करें

एक्सेल के लिए कुटूल के साथ वर्कशीट सेल में एकाधिक फ़ाइल नाम आयात करें

VBA कोड के साथ वर्कशीट सेल में एकाधिक फ़ाइल नाम आयात करें

निम्नलिखित वीबीए कोड आपको फ़ाइल नाम, फ़ाइल एक्सटेंशन और फ़ोल्डर नाम को वर्कशीट कोशिकाओं में आयात करने में मदद कर सकता है, कृपया निम्नलिखित चरणों का पालन करें:

1. एक नई वर्कशीट लॉन्च करें जिसमें आप फ़ाइल नाम आयात करना चाहते हैं।

2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: कार्यपत्रक की कोशिकाओं में एकाधिक फ़ाइल नाम आयात करें

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. फिर दबायें F5 इस कोड को निष्पादित करने के लिए कुंजी, और पॉप आउट ब्राउज विंडो में, वह फ़ोल्डर चुनें जिसमें आप फ़ाइल नाम फॉर्म आयात करना चाहते हैं, स्क्रीनशॉट देखें:

5। और फिर क्लिक करें OK बटन, और आपको निम्नलिखित परिणाम मिलेगा:

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

एक्सेल के लिए कुटूल के साथ वर्कशीट सेल में एकाधिक फ़ाइल नाम आयात करें

यदि आपको फ़ोल्डर और सबफ़ोल्डर दोनों में फ़ाइल नाम आयात करने की आवश्यकता है, तो कृपया चिंता न करें एक्सेल के लिए कुटूलहै फ़ाइल नाम सूची उपयोगिता, आप सबफ़ोल्डर्स सहित विशिष्ट फ़ोल्डर में सभी फ़ाइल नामों को आसानी से आयात कर सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1। क्लिक करें कुटूल्स प्लस> आयात निर्यात > फ़ाइल नाम सूची, स्क्रीनशॉट देखें:

2. में फ़ाइल नाम सूची संवाद बॉक्स में, निम्नलिखित कार्य करें:

(1.) क्लिक करें जिन फ़ाइलों को आप आयात करना चाहते हैं, उनके साथ फ़ोल्डर का चयन करने के लिए बटन;

(2.)चेक करें उपनिर्देशिकाओं में फ़ाइलें शामिल करें उपफ़ोल्डर्स के फ़ाइल नाम आयात करने के लिए;

(3.) उन फ़ाइलों के प्रकार को निर्दिष्ट करें जिन्हें आप आयात करना चाहते हैं फ़ाइलें प्रकार अनुभाग;

(4.) एक फ़ाइल आकार इकाई का चयन करें जिसे आप प्रदर्शित करना चाहते हैं फ़ाइल आकार इकाई अनुभाग;

(5.) यदि आप फ़ाइल नाम और फ़ोल्डरों को हाइपरलिंक करना चाहते हैं, तो कृपया जांचें हाइपरलिंक बनाएं विकल्प.

3. सेटिंग्स ख़त्म करने के बाद कृपया क्लिक करें OK बटन, और फ़ोल्डर और सबफ़ोल्डर दोनों में फ़ाइल नाम एक नई वर्कशीट में आयात किए जाते हैं जैसा कि स्क्रीनशॉट में दिखाया गया है:

टिप्स: यदि आप विशिष्ट फ़ोल्डर से केवल एक निर्दिष्ट प्रकार के फ़ाइल नाम आयात करना चाहते हैं, तो आप जांच कर सकते हैं निर्दिष्ट करें में विकल्प फ़ाइल नाम सूची संवाद, और इसमें फ़ाइल एक्सटेंशन टाइप करें, फिर यह फ़ोल्डर और सबफ़ोल्डर दोनों से केवल निर्दिष्ट प्रकार के फ़ाइल नाम आयात करेगा।

इस फ़ाइल नाम सूची सुविधा के बारे में अधिक जानने के लिए क्लिक करें...

एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

डेमो: एक्सेल के लिए कुटूल के साथ वर्कशीट सेल में एकाधिक फ़ाइल नाम आयात करें

संबंधित आलेख:

फ़ोल्डर और सबफ़ोल्डर की सभी फ़ाइलों को वर्कशीट में कैसे सूचीबद्ध करें?

किसी फ़ोल्डर में सभी फ़ाइल नामों को कैसे सूचीबद्ध करें और Excel में उनके लिए हाइपरलिंक कैसे बनाएं?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖	कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
	लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
	सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
	उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
	स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
	फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
	शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

अधिक पढ़ें... मुफ्त डाउनलोड...

---

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...