Lista filer i katalogen Ett enkelt program för att visa alla filer i en viss katalog genom att ringa ett VBA-makrokod.
Förklaring Programmet är inrättat genom att ge input om vilken mapp / katalog som programmet skall analysera. VBA-programmet använder sedan Dir funktion för att få information om vilka filer lagras i mappen / katalogen. Då programmet skriver helt enkelt data till kalkylblad. Det är möjligt att använda uppgifterna i en matris om hon ville ändra och använda koden i ett annat program. Hela VBA Excel-programmet finns att ladda ner längst ner på denna sida, njut!
Kod 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 Lång
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
Ladda ner Excel-fil!List_All_Files_In_Directory.xls |
