Liste filer i mappen Et simpelt program til visning af alle filer i en bestemt mappe ved at kalde en VBA makro kode.
Forklaring Programmet er sat op ved at give input om, hvilken mappe / bibliotek, at programmet skal analysere. VBA program bruger derefter Dir-funktionen for at få oplysninger om, hvilke filer der er gemt i mappen / bibliotek. Så programmet simpelthen skriver data til regnearket. Det er muligt at bruge data i et array, hvis ønsker at ændre og bruge koden i en andet program. Hele VBA Excel program kan downloades nederst på denne side, god fornøjelse!
Kode 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
Download excel filen!List_All_Files_In_Directory.xls |
