Muchos usuarios necesitan enumerar rápidamente todos los archivos en una carpeta de Windows y todas sus subcarpetas en una hoja de cálculo de Excel. Por lo tanto, en este artículo, le presentaremos 3 formas rápidas de realizarlo.
Si desea enumerar de forma recursiva todos los archivos en una carpeta de Windows en una hoja de cálculo de Excel, seguramente no le gustará copiar los nombres de los archivos a Excel manualmente. Sin duda, es demasiado tedioso y requiere mucho tiempo. Por lo tanto, aquí le enseñaremos 3 enfoques mucho más inteligentes y convenientes.
Método 1: enumerar archivos en una carpeta de Windows a través de Firefox o Google Chrome
- En primer lugar, en el Explorador de Windows, acceda a la carpeta específica de Windows y copie la ruta de la carpeta.
- Luego, inicie Firefox o Google Chrome.
- A continuación, pegue la ruta de la carpeta copiada en la barra de direcciones del navegador de Internet.
- Después de eso, presione la tecla "Enter".
- De una vez, todos los archivos de esta carpeta de Windows se enumerarán en el navegador.
- Luego, presione “Ctrl + A” para seleccionar todos los contenidos y “” Ctrl + C ”” para copiarlos.
- Por último, pégalos en una hoja de cálculo de Excel.
Método 2: enumerar archivos en una carpeta de Windows a través del "Administrador de nombres"
- Al principio, cree una nueva hoja de cálculo de Excel.
- Luego, seleccione la celda A1.
- A continuación, vaya a la pestaña "Fórmulas" y haga clic en el botón "Administrador de nombres".
- En el cuadro de diálogo emergente, haga clic en el botón "Nuevo".
- Posteriormente, en el siguiente cuadro de diálogo, ingrese “Archivos” en el campo “Nombre”.
- Y cambie “= Hoja1! $ A $ 1” a “= ARCHIVOS (Hoja1! $ A $ 1)” en el campo “Se refiere a:”.
- Luego, haga clic en "Aceptar" y cierre el cuadro de diálogo "Administrador de nombres".
- Más tarde, copie la ruta de la carpeta de Windows en la celda A1 y agregue "\* ”Al final del camino.
- A continuación, seleccione la celda A3 e ingrese la función “= ÍNDICE (Archivos, FILA () - 2)”.
- Inmediatamente, aparecerá un archivo en esta carpeta de Windows, como la siguiente imagen.
- Finalmente, simplemente copie esta función en varias filas para enumerar los otros archivos hasta que vea el mensaje "#REF!" error. El error significa que se han enumerado todos los archivos.
Método 3: enumerar archivos de forma recursiva en una carpeta de Windows a través de Excel VBA
- Porque comotart, cree un nuevo archivo de Excel.
- A continuación, acceda al editor de Excel VBA con referencia a "Cómo ejecutar código VBA en su Excel".
- Luego, copie el siguiente código en el proyecto "ThisWorkbook".
Sub BatchListAllFiles_FolderSubfolders () Dim strWindowsFolder As String 'Seleccione la carpeta de origen de Windows con Application.FileDialog (msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Seleccione una carpeta para enumerar los archivos de" .Initial: \ ".Mostrar si .SelectedItems.Count> 0 Then strWindowsFolder = .SelectedItems (1) &" \ "End If End With With ActiveSheet .Cells (1, 1) =" Nombre ".Cells (1, 1) .Font. Negrita = True .Cells (1, 2) = "Ruta" .Cells (1, 2) .Font.Bold = True .Cells (1, 3) = "Tamaño (Bytes)" .Cells (1, 3) .Font .Bold = True .Cells (1, 4) = "Tipo" .Cells (1, 4) .Font.Bold = True .Cells (1, 5) = "Creado" .Cells (1, 5) .Font.Bold = True End With Call LoopFolders (strWindowsFolder) End Sub Sub LoopFolders (strFolderPath como cadena) Dim objFileSystem como objeto Dim objFolder como objeto Dim objFile como objeto Dim nLastRow como conjunto de enteros objFileSystem = CreateObject ("Scripting.FileSystem" Set objFileSystem. GetFolder (strFolderPath) para cada objFi le In objFolder.Files With ActiveSheet nLastRow = .Range ("A" & .Rows.Count) .End (xlUp) .Row + 1 .Range ("A" & nLastRow) = objFile.Name .Range ("B" & nLastRow) = objFile.Path .Range ("C" & nLastRow) = objFile.Size .Range ("D" & nLastRow) = objFile.Type .Range ("E" & nLastRow) = objFile.DateCreated .Columns ("A : E "). AutoFit End With Next 'Procesar todas las carpetas y subcarpetas de forma recursiva Si objFolder.SubFolders.Count> 0 Then For Each objSubFolder In objFolder.SubFolders' Omitir el sistema y las carpetas ocultas If ((objSubFolder.Attributes And 2) = 0 ) Y ((objSubFolder.Attributes And 4) = 0) Luego LoopFolders (objSubFolder.Path) End If Next End If End Sub
- Ahora, haga clic en la primera subrutina y presione la tecla "F5".
- En el cuadro de diálogo emergente, navegue y seleccione una carpeta de Windows de la que desee enumerar los archivos y haga clic en "Aceptar".
- Finalmente, cuando termine la macro, regrese a la hoja de cálculo de Excel. Todos los archivos de la carpeta de Windows y sus subcarpetas se enumeran, como se muestra en la siguiente captura de pantalla.
Excel se bloquea de vez en cuando
Como otro software, Excel puede fallar de vez en cuando, lo que puede destruir directamente el archivo de Excel abierto actualmente. En tales casos, la mayoría de los usuarios esperarán que Excel pueda recuperar automáticamente el archivo en restart. Sin embargo, la mayoría de las veces, la realidad no es como esperabas. Entonces, sería fundamental recurrir a una Reparación de Excel herramienta, como DataNumen Excel Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com