Cómo utilizar Excel filedialog para obtener la lista de archivos de un directorio

Microsoft Excel no se trata sólo de datos tabulares, cálculos y gestión de la información . Cualquier ávido usuario de Excel puede convertir en una potente herramienta para la gestión de carpetas , archivos de la organización y el seguimiento de las tareas . Puede crear una macro que utiliza un objeto FileDialog VBA para escanear rápidamente un directorio y lista de su contenido en una hoja de cálculo. Tras la ejecución , esta macro le pedirá a los usuarios seleccionar una carpeta , y será posteriormente una lista de los nombres de su contenido en una sola columna. Instrucciones
Crear la macro
1

Inicie Microsoft Excel. Presione " Ctrl + O ", seleccione el libro y luego haga clic en " Abrir". Para crear un nuevo libro en su lugar, presione " CTRL + N."
2

Prensa "Alt + F8 " para abrir el cuadro de diálogo Macros. Tipo " GetFolderContents " en el cuadro Nombre de la macro y haga clic en "Crear . "
3

Escriba el siguiente código en el editor de VBA.

GetFolderContents Sub ()

xDir Dim , xFilename , f, fso As Object

Set fso = CreateObject ( " Scripting.FileSystemObject " )

Application.FileDialog ( msoFileDialogFolderPicker )
< p > . InitialFileName = ThisWorkbook.Path y "\\ "

. title = " Seleccione una carpeta para mostrar los archivos de"

. AllowMultiSelect = False

. Mostrar
Si

. SelectedItems.Count < > 0 Entonces

xDir = . SelectedItems ( 1 ) y "\\"

End If End

Con

If ( MsgBox ( Prompt : = " ¿ desea incluir los nombres de las subcarpetas " , _

Botones: = vbYesNo , Título : = " incluir subcarpetas ") = vbYes ) Entonces
< p > ListFolders GoTo

GoTo ListFiles

demás

GoTo ListFiles

End If

ListFolders :

For Each f En fso.GetFolder ( xDir ) . subcarpetas

ActiveCell.Value = " .. \\ " & f.Name

ActiveCell.Offset ( 1 , 0). Seleccione
< p > Siguiente f

ListFiles :

For Each f En fso.GetFolder ( xDir ) Archivos

ActiveCell.Value = f.Name

. activecell . Offset ( 1 , 0). Seleccione

f Siguiente

Set fso = Nothing End Sub

Press "ALT + Q " para cerrar el editor de VBA y vuelva a su libro.
utilizar el modo Macro
5

Resalte una celda de la hoja. Pulsar "ALT + I" y "C " para crear una columna en blanco . Seleccione la primera celda de la nueva columna . Si desea ver la lista en una nueva hoja de cálculo en cambio, pulse el botón " SHIFT + F11. "
6

Press "ALT + F8 " para abrir el cuadro de diálogo Macros. Seleccione " GetFolderContents " y haga clic en "Ejecutar ".
7

Seleccione la carpeta o el directorio desde el que desea mostrar el contenido . Haga clic en " Aceptar".
8

Haga clic en "Sí" si desea que la macro a la lista también los nombres de las subcarpetas o haga clic en " No" a la lista de archivos solamente. Espere a Excel para terminar poblando la nueva columna con el contenido de la carpeta seleccionada .