Λίστα όλων των αρχείων που περιέχονται σε έναν κατάλογο - Παραδείγματα κώδικα VBA

Παραθέστε όλα τα ονόματα αρχείων στον Κατάλογο

Ο ακόλουθος κώδικας είναι μια υπορουτίνα που θα λάβει τα ονόματα όλων των αρχείων που υπάρχουν σε μια διαδρομή καταλόγου:

 Sub List_All_The_Files_Within_Path () Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C: My Documents" Row_No = 36 'Παραθέτει όλα τα αρχεία στον τρέχοντα κατάλογο με Application.FileSearch .NathSearch .Filename = "*.*" .SearchSubFolders = False. Εκτέλεση No_Of_Files = .Files.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Cells (kk25 + 5, 15) .Αξία = Αρχεία (kk25) Επόμενο kk25 Τέλος με Τέλος Υπο 

Θα γράψει τα ονόματα αρχείων στο Sheet1 στη στήλη O - ξεκινώντας από τη σειρά 36
Κατεβάστε το αρχείο Excel εδώ