किसी फ़ोल्डर के चित्र नाम/फ़ाइल नामों को Excel कक्षों में शीघ्रता से कैसे सूचीबद्ध करें?
इस ट्यूटोरियल में, मैं एक्सेल शीट में दिखाए गए स्क्रीनशॉट के अनुसार सभी चित्र नामों या किसी विशिष्ट फ़ोल्डर के फ़ाइल नामों को तुरंत सूचीबद्ध करने के लिए कुछ युक्तियां प्रदान करूंगा। त्वरित नेविगेशन वीबीए के साथ एक्सेल में किसी फ़ोल्डर के चित्र नामों की सूची बनाएं |
वीबीए के साथ एक्सेल में किसी फ़ोल्डर के चित्र नामों की सूची बनाएं
एक्सेल में, कोई अंतर्निहित फ़ंक्शन नहीं है जो शीट के सेल में आपके द्वारा चुने गए फ़ोल्डर के सभी चित्र नामों को स्वचालित रूप से सूचीबद्ध कर सके, लेकिन यहां मेरे पास एक वीबीए कोड है जो आपको इस काम को जल्दी से हल करने में मदद कर सकता है।
1. Excel में, फिर दबाएँ + खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. पॉपिंग विंडो में, क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल स्क्रिप्ट बनाने के लिए।
3. नीचे दिए गए कोड को कॉपी करें और उन्हें नई मॉड्यूल स्क्रिप्ट विंडो पर पेस्ट करें।
Sub PictureNametoExcel()
'UpdatebyExtendoffice
Dim I As Long
Dim xRg As Range
Dim xAddress As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xRg = xRg(1)
xRg.Value = "Picture Name"
With xRg.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
xRg.EntireColumn.AutoFit
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
I = 1
If xFileDlg.Show = -1 Then
xFileDlgItem = xFileDlg.SelectedItems.Item(1)
xFileName = Dir(xFileDlgItem & "\")
Do While xFileName <> ""
If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
I = I + 1
End If
xFileName = Dir
Loop
End If
Application.ScreenUpdating = True
End Sub
4। दबाएँ F5 कुंजी, फिर चित्र नाम रखने के लिए एक सेल का चयन करने के लिए एक संवाद पॉप आउट होता है।
5। क्लिक करें OK उस फ़ोल्डर का चयन जारी रखने के लिए जिसे आप ब्राउज़ संवाद में चित्र नामों को सूचीबद्ध करना चाहते हैं।
6। क्लिक करें OK, अब चयनित फ़ोल्डर में सभी चित्र नाम एक्सेल में सूचीबद्ध कर दिए गए हैं।
नोट: VBA कोड में, आप कोड स्ट्रिंग में jpg/png/… कर सकते हैं यदि InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 फिर आपके लिए आवश्यक फ़ाइल एक्सटेंशन में, उदाहरण के लिए, यदि आप फ़ाइल के फ़ाइल नामों को दस्तावेज़ प्रारूप में सूचीबद्ध करना चाहते हैं, तो केवल कोड स्ट्रिंग को बदलें यदि InStr(1, xFileName, ".doc") > 0 तो।
यदि आपको आमतौर पर अपने दैनिक कार्य में एक्सेल सेल में किसी फ़ोल्डर के एक या सभी प्रारूपों के फ़ाइल नामों को सूचीबद्ध करने की आवश्यकता होती है, तो कोड जटिल है और इसे संभालना आसान नहीं है, लेकिन, नीचे दिए गए तरीके से, आप इस काम को जल्दी से हल कर सकते हैं।
क्या आप वेतन वृद्धि और परिवार के साथ बिताने के लिए अधिक समय चाहते हैं? माइक्रोसॉफ्ट ऑफिस में अभी काम करने पर ऑफिस टैब आपकी कार्यक्षमता को 50% तक बढ़ा देता है अविश्वसनीय, दो या दो से अधिक दस्तावेज़ों पर काम करना एक पर काम करने की तुलना में आसान और तेज़ है। प्रसिद्ध ब्राउज़रों की तुलना में, ऑफिस टैब में टैब्ड टूल अधिक शक्तिशाली और अधिक कुशल है। आपके लिए प्रतिदिन सैकड़ों माउस-क्लिक और कीबोर्ड टाइपिंग कम करें, अब माउस हाथ को अलविदा कहें। यदि आप आमतौर पर कई दस्तावेज़ों पर काम करते हैं, तो Office Tab आपके लिए एक बेहतरीन समय बचाने वाला उपकरण होगा। 30-दिन नि: शुल्क परीक्षण, किसी क्रेडिट कार्ड की आवश्यकता नहीं। |
Excel में फ़ाइल नाम सूची के साथ किसी फ़ोल्डर के चित्र नाम या विशिष्ट प्रारूप फ़ाइल नाम सूचीबद्ध करें
यहाँ एक उपयोगिता है - फ़ाइल नाम सूची in एक्सेल के लिए कुटूल, जो कर सकते हैं
>> किसी फ़ोल्डर के सभी फ़ाइल स्वरूपों में सभी फ़ाइल नामों को एक नई शीट में सूचीबद्ध करें;
>> एक्सेल में आपके द्वारा निर्दिष्ट एक या कई फ़ाइल स्वरूपों में फ़ाइल नामों को सूचीबद्ध करें;
>> सबफ़ोल्डर्स और छिपी हुई फ़ाइलों और फ़ोल्डरों सहित फ़ाइल नामों को एक्सेल में सूचीबद्ध करें।
अब माउस हैंड और सर्वाइकल स्पोंडिलोसिस को अलविदा कहें
एक्सेल के लिए कुटूल्स के 300 उन्नत उपकरण हल करते हैं 80% तक एक्सेल कार्य कुछ ही सेकंड में आपको हजारों माउस-क्लिक से बाहर निकाल देते हैं।
आसानी से 1500 कामकाजी परिदृश्यों से निपटें, समाधान खोजने के लिए समय बर्बाद करने की कोई ज़रूरत नहीं है, अपने जीवन का आनंद लेने के लिए पर्याप्त समय है। प्रतिदिन 80+ अत्यधिक प्रभावी लोगों के लिए 110000% उत्पादकता में सुधार करें, जिनमें आप भी शामिल हैं। अब दर्दनाक फ़ार्मुलों और वीबीए से पीड़ित न हों, अपने मस्तिष्क को आराम और आनंदमय काम करने का मूड दें। संपूर्ण सुविधाओं के साथ 30 दिन का निःशुल्क परीक्षण, बिना किसी कारण के 30 दिन का पैसा वापस। एक बेहतर शरीर एक बेहतर जीवन का निर्माण करता है। |
Excel के लिए Kutools निःशुल्क इंस्टॉल करने के बाद, कृपया नीचे दिए अनुसार कार्य करें:
1. जिस कार्यपुस्तिका में आप फ़ाइल नाम सूचीबद्ध करना चाहते हैं उसे सक्षम करें, फिर क्लिक करें कुटूल्स प्लस > आयात निर्यात > फ़ाइल नाम सूची.
2। में फ़ाइल नाम सूची डायलॉग, सबसे पहले, क्लिक करें किसी फ़ोल्डर का चयन करने के लिए आप उसके फ़ाइल नामों को सूचीबद्ध करना चाहते हैं, फिर आप उसके चेकबॉक्स को चेक कर सकते हैं उपनिर्देशिकाओं में फ़ाइलें शामिल करें और छुपी हुई फ़ाइलें और फ़ोल्डर्स शामिल करें जैसी तुम्हारी ज़रूरत है।
3. फिर उस फ़ाइल प्रारूप का चयन करें जिसमें आप नाम सूचीबद्ध करना चाहते हैं फ़ाइलें प्रकार अनुभाग।
4. ड्रॉप डाउन सूची से अपनी आवश्यकतानुसार आकार इकाई चुनें फ़ाइल आकार इकाई अनुभाग, यदि आप फ़ाइल नामों के लिए एक लिंक बनाना चाहते हैं, तो जांचें हाइपरलिंक बनाएं विकल्प.
5। क्लिक करें Ok, फ़ाइल नाम और कुछ फ़ाइल जानकारी सूचीबद्ध करने के लिए एक नई शीट बनाई जाएगी।
सुझाव: यदि आप एक्सेल में सभी शीट नामों को सूचीबद्ध करना चाहते हैं, तो आप एक्सेल के लिए कुटूल लागू कर सकते हैं' शीट नामों की सूची बनाएं उपयोगिता, यह सभी लिंक करने योग्य शीट नामों को सूचीबद्ध करने के लिए एक नई शीट बनाएगी।
एक्सेल के लिए कुटूल:+ उपयोगी उपयोगी उपकरण, एक्सेल में जटिल कार्यों को कुछ ही क्लिक में सरल बनाना।
नमूना फ़ाइल डाउनलोड करें
कैसे आप भीड़ से अलग दिखें, आसानी से काम करें और आराम से जीवन का आनंद लें?
एक्सेल के लिए कुटूल हर दिन औसतन आपकी 80% दक्षता में सुधार करेगा, जिससे आपको परिवार के साथ रहने और जीवन में आनंद लेने के लिए काफी समय मिलेगा।
300 उन्नत उपकरण हल करते हैं 80% तक एक्सेल समस्याओं के समाधान खोजने में अब आपको संघर्ष नहीं करना पड़ेगा, काम अधिक आसानी से पूरा हो जाएगा।
1500 एक्सेल परिदृश्यों को आसानी से संभालें, हर दिन अपने लिए कम से कम 1 घंटा बचाएं।
5 मिनट में एक्सेल विशेषज्ञ बनें, लोगों की पहचान और पदोन्नति का अवसर प्राप्त करें।
एक-क्लिक उपयोगिताएँ बैच प्रोसेसिंग को संभालती हैं, जिससे आप हजारों माउस-क्लिक से बच सकते हैं, माउस हाथ को अलविदा कह सकते हैं।
रटकर याद करने वाले फ़ॉर्मूले और जटिल वीबीए से छुटकारा पाएं, अपने मस्तिष्क को आराम दें।
110000+ उच्च दक्षता अधिकारी और 300+ विश्व प्रसिद्ध कंपनियों की पसंद।
केवल $39 लें लेकिन यह अन्य लोगों के $4000 प्रशिक्षण से कहीं अधिक मूल्यवान है
बिना किसी सीमा के 30 दिन का निःशुल्क परीक्षण, बिना किसी कारण के 30 दिन में पूरा पैसा वापस।
अनुशंसित उत्पादकता उपकरण
ऑफिस टैब - माइक्रोसॉफ्ट ऑफिस 2019 - 2003 और ऑफिस 365 में टैब्ड ब्राउजिंग, संपादन, दस्तावेजों का प्रबंधन
Excel 2019-2007 को गति देने के लिए एक पेशेवर ऐड-इन, घंटों के कार्यों को सेकंडों में छोटा करता है
इस ऐड-इन में दर्जनों पेशेवर समूह शामिल हैं, 300+ विकल्पों के साथ एक्सेल में आपके अधिकांश दैनिक कार्य स्वचालित हो जाएंगे, और आपकी उत्पादकता कम से कम 50% बढ़ जाएगी। जैसे कि एक-क्लिक ऑप्टॉन और बैच रूपांतरण के समूह।
अब आपके पास एक्सेल के लिए कुटूल के साथ खुद को तेज करने का मौका है!