قائمة الملفات في دليل برنامج بسيط في عرض كل الملفات في دليل معين عن طريق استدعاء ماكرو 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
تنزيل ملف اكسل!List_All_Files_In_Directory.xls |
