निम्नलिखित VBA आपको किसी निश्चित फ़ोल्डर में विशिष्ट प्रकार की फ़ाइलों को आसानी से गिनने में मदद कर सकता है, जैसे किसी फ़ोल्डर में सभी .xlsx फ़ाइलों की गिनती करना। कृपया इस प्रकार करें:

1। दबाएं ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ एक साथ।

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे दिए गए VBA कोड को शुरुआती मॉड्यूल विंडो में पेस्ट करें।

वीबीए: एक निश्चित फ़ोल्डर में एक विशिष्ट फ़ाइल की गणना करें

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

नोट: उपरोक्त वीबीए कोड की गणना की जाएगी . Xlsx एक निश्चित फ़ोल्डर में फ़ाइलें। अन्य प्रकार की फाइलों की गिनती के लिए कृपया पता लगाएं xPath = xFolder और "\*.xlsx", और बदलें . Xlsx आपकी आवश्यकताओं के आधार पर अन्य फ़ाइल एक्सटेंशन के लिए।

3। दबाएं F5 कुंजी या क्लिक करें रन इस VBA कोड को चलाने के लिए बटन।

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

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

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

विभिन्न कार्यपुस्तिकाओं से दर्जनों शीटों को एक शीट में संयोजित करना कठिन हो सकता है। लेकिन Excel के लिए Kutools के साथ संयोजित करें (कार्यपत्रक और कार्यपुस्तिकाएँ) उपयोगिता, आप इसे कुछ ही क्लिक से पूरा कर सकते हैं!

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

1। क्लिक करें कुटूल्स प्लस > कार्यपुस्तिका > फ़ोल्डर युक्त खोलें. स्क्रीनशॉट देखें:

2. अब करंट वर्कबुक वाला फोल्डर खुल रहा है।

खुलने वाले फ़ोल्डर में किसी भी फ़ाइल को अचयनित करें, और आपको इस फ़ोल्डर के नीचे सभी फ़ाइलों की संख्या नीचे स्क्रीनशॉट में दिखाए अनुसार दिखाई देगी:

नोट: फ़ोल्डर युक्त खोलें यदि आपने वर्तमान कार्यपुस्तिका को पहले कभी सहेजा नहीं है तो उपयोगिता अमान्य हो जाएगी।

कभी-कभी, आप किसी फ़ोल्डर और उसके सबफ़ोल्डर्स में कई प्रकार की फ़ाइलों की गिनती करना चाह सकते हैं। दरअसल Excel के लिए Kutools एक और सुविधा प्रदान करता है फ़ाइल नाम सूची इसे आसानी से हल करने की उपयोगिता।

1। क्लिक करें कुटूल्स प्लस > आयात निर्यात > फ़ाइल नाम सूची फ़ाइल नाम सूची संवाद बॉक्स खोलने के लिए.

2. आरंभिक फ़ाइल नाम सूची संवाद बॉक्स में, कृपया निम्नानुसार कार्य करें:

3. क्लिक करें Ok फ़ाइल नाम सूची संवाद बॉक्स में बटन।

4. अब विशिष्ट प्रकार की सभी फ़ाइलें एक नई वर्कशीट में सूचीबद्ध हैं। कॉलम हेडर के बिना बस पहला कॉलम चुनें, और आपको स्टेटस बार में फ़ाइलों की संख्या नीचे स्क्रीनशॉट में दिखाए अनुसार मिलेगी: