Mostrar archivos En Directorio Un programa sencillo para mostrar todos los archivos en un directorio determinado llamando a un macro VBA Código.
Explicación El programa es creado por dar entrada acerca de en qué carpeta o directorio que el programa analizará. El programa de VBA a continuación, utiliza la función Dir para obtener la información acerca de qué archivos se almacenan en la carpeta / directorio. A continuación, el programa simplemente escribe los datos en la hoja de cálculo. Es posible utilizar los datos en una matriz si quieren modificar y usar el código en un programa de otro. Todo el programa de VBA Excel está disponible para su descarga en la parte inferior de esta página, diviértete!
Código 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
Descargar archivo de Excel!List_All_Files_In_Directory.xls |
