目录中的文件列表上市的一个特定目录中调用一个VBA宏代码中的所有文件的简单程序。
解释该方案是成立给予输入哪个文件夹/目录，该方案应分析。在VBA程序然后使用Dir函数来获取有关哪些文件存储在文件夹/目录信息。然后该程序就可以将数据写入到工作表。它可以使用数组中的数据，如果想修改和使用在其他程序中的代码。 整个VBA Excel程序可用于在本页面底部，下载欣赏！
码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
下载Excel文件！List_All_Files_In_Directory.xls |
