Satura rādītājs
Uzskaitiet visus direktoriju failu nosaukumus
Šis kods ir apakšprogramma, kas iegūs visu direktoriju ceļā esošo failu nosaukumus:
Sub List_All_The_Files_Within_Path () Dim Row_No Kā vesels skaitlis Dim Nr. .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Šūnas (kk25 + 5, 15) .Value = .FoundFiles (kk25) Tālāk kk25 Beigas ar beigu apakšdaļu
Tas ierakstīs failu nosaukumus 1. lapā kolonnā O - sākot no 36. rindas
Lejupielādējiet Excel failu šeit