Como contar arquivos em uma pasta/diretório específico no Excel?

O seguinte código VBA pode ajudá-lo a contar facilmente um tipo específico de arquivos em uma pasta específica, como contar todos os arquivos .xlsx em uma pasta. Por favor, faça o seguinte:

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código VBA na janela Módulo que foi aberta.

VBA: Contar um arquivo específico em uma pasta específica

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

Observação: O código VBA acima contará os arquivos .xlsx em uma pasta específica. Para contar outros tipos de arquivos, encontre xPath = xFolder & "\*.xlsx" e altere o .xlsx para outra extensão de arquivo conforme necessário.

3. Pressione a tecla F5 ou clique no botão Executar para executar este código VBA.

4. Na caixa de diálogo Procurar que aparecerá, selecione a pasta específica onde você deseja contar o tipo específico de arquivos e clique no botão OK.

5. Agora, uma caixa de diálogo aparecerá e mostrará quantos arquivos do tipo específico existem na pasta específica. Basta fechar a caixa de diálogo.

Se você tiver aberto uma pasta, normalmente verá o número total de arquivos na parte inferior dessa pasta. Este método apresenta o utilitário Abrir Pasta Contendo da Kutools para Excel para abrir a pasta que contém a pasta de trabalho atual e, em seguida, obter o número de arquivos nesta pasta.

1. Clique em Kutools Plus > Pasta de Trabalho > Abrir Pasta Contendo. Veja a captura de tela:

2. Agora a pasta que contém a pasta de trabalho atual está aberta.

Desmarque qualquer arquivo na pasta aberta e você verá o número total de arquivos na parte inferior desta pasta, conforme mostrado na captura de tela abaixo:

Observação: O Abrir Pasta Contendo utilitário será inválido se você nunca salvou a pasta de trabalho atual antes.

Às vezes, você pode querer contar vários tipos de arquivos em uma pasta e suas subpastas. Na verdade, o Kutools para Excel oferece outro utilitário Lista de Nomes de Arquivos para resolver isso facilmente.

1. Clique em Kutools Plus > Importar/Exportar > Lista de Nomes de Arquivos para abrir a caixa de diálogo Lista de Nomes de Arquivos.

2. Na caixa de diálogo Lista de Nomes de Arquivos que foi aberta, faça o seguinte:

3. Clique no botão Ok na caixa de diálogo Lista de Nomes de Arquivos.

4. Agora todos os arquivos dos tipos específicos estão listados em uma nova planilha. Basta selecionar a primeira coluna sem o cabeçalho da coluna e você obterá o número de arquivos na Barra de Status, conforme mostrado na captura de tela abaixo: