El siguiente VBA puede ayudarlo a contar fácilmente un tipo específico de archivos en una carpeta determinada, como contar todos los archivos .xlsx en una carpeta. Haz lo siguiente:

1. presione el otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Módulo, y luego pegue el siguiente código VBA en la ventana del Módulo de apertura.

VBA: cuente un archivo específico en una carpeta determinada

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Note: El código VBA anterior contará el . Xlsx archivos en una carpeta determinada. Para contar otro tipo de archivos, infórmate xPath = xFolder & "\ *. xlsx"y cambia el . Xlsx a otra extensión de archivo según sus necesidades.

3. presione el F5 o haga clic en el Ejecutar botón para ejecutar este código VBA.

4. En el cuadro de diálogo Explorar de apertura, seleccione la carpeta determinada en la que contará el tipo específico de archivos y haga clic en OK del botón.

5. Ahora aparecerá un cuadro de diálogo que le mostrará cuántos archivos del tipo específico existen en la carpeta determinada. Simplemente cierre el cuadro de diálogo.

Combine fácilmente varias hojas de trabajo / libros de trabajo / archivos CSV en una hoja de trabajo / libro de trabajo

Puede resultar tedioso combinar docenas de hojas de diferentes libros de trabajo en una sola hoja. Pero con Kutools para Excel Combinar (hojas de trabajo y libros de trabajo) utilidad, puede hacerlo con solo varios clics.

Si ha abierto una carpeta, normalmente obtendrá el número de todos los archivos en la parte inferior de esta carpeta. Este método presentará Kutools para Excel Abrir carpeta contenedora utilidad para abrir la carpeta que contiene el libro de trabajo actual, y luego obtener el número de archivos en esta carpeta.

1. Hacer clic en Kutools Más > Libro de trabajo > Abrir carpeta contenedora. Ver captura de pantalla:

2. Ahora se abre la carpeta que contiene el libro actual.

Deseleccione cualquier archivo en la carpeta de apertura, y verá el número de todos los archivos en la parte inferior de esta carpeta como se muestra a continuación:

Note: Los Abrir carpeta contenedora La utilidad no será válida si nunca antes ha guardado el libro actual.

A veces, es posible que desee contar varios tipos de archivos en una carpeta y sus subcarpetas. En realidad, Kutools para Excel proporciona otro Lista de nombre de archivo utilidad para solucionarlo con facilidad.

1. Hacer clic en Kutools Más > Import / Export > Lista de nombre de archivo para abrir el cuadro de diálogo Lista de nombres de archivo.

2. En el cuadro de diálogo de apertura Lista de nombres de archivo, haga lo siguiente:

3. Haga clic en el Ok en el cuadro de diálogo Lista de nombres de archivo.

4. Ahora todos los archivos de tipos específicos se enumeran en una nueva hoja de trabajo. Simplemente seleccione la primera columna sin el encabezado de la columna y obtendrá la cantidad de archivos en la barra de estado como se muestra a continuación: