निर्देशिका में फ़ाइलें सूची एक निश्चित निर्देशिका में एक VBA मैक्रो कोड को फोन करके सभी फाइलें लिस्टिंग के लिए एक सरल कार्यक्रम है.
व्याख्या कार्यक्रम को इनपुट देने के द्वारा निर्धारित है जो फ़ोल्डर / निर्देशिका है कि इस कार्यक्रम का विश्लेषण करेगा के बारे में. VBA प्रोग्राम तो डिर समारोह का उपयोग करने के लिए फ़ाइलें क्या फ़ोल्डर में / निर्देशिका में संग्रहित कर रहे हैं के बारे में जानकारी मिलती है. तो बस कार्यक्रम कार्यपत्रक में डेटा लिखते हैं. यह संभव है एक सरणी में डेटा का उपयोग करें यदि संशोधित करने के लिए इच्छुक है और एक अन्य कार्यक्रम में कोड का उपयोग करें. पूरे एक्सेल VBA प्रोग्राम इस पृष्ठ के नीचे, पर डाउनलोड करने का आनंद के लिए उपलब्ध है!
कोड Public Sub List_Files_In_Directory()
Range("A5:A2000").ClearContents
Dim List_Files_In_Directory(10000, 1)
Dim One_File_List As String
Dim Number_Of_Files_In_Directory As Long
One_File_List = Dir$("C:" + "\*.*")
Do While One_File_List <> ""
List_Files_In_Directory(Number_Of_Files_In_Directory, 0) = One_File_List
One_File_List = Dir$
Number_Of_Files_In_Directory = Number_Of_Files_In_Directory + 1
Loop
Number_Of_Files_In_Directory = 0
While List_Files_In_Directory(Number_Of_Files_In_Directory, 0) <> tom
Range("A5").Offset(Number_Of_Files_In_Directory, 0).Value = List_Files_In_Directory(Number_Of_Files_In_Directory, 0)
Number_Of_Files_In_Directory = Number_Of_Files_In_Directory + 1
Wend
End Sub
डाउनलोड फ़ाइल Excel!List_All_Files_In_Directory.xls |
