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
4
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 .
