O seguinte VBA pode ajudá-lo a contar facilmente um tipo específico de arquivos em uma determinada pasta, como contar todos os arquivos .xlsx em uma pasta. Faça o seguinte:

1. aperte o outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na janela de abertura do Módulo.

VBA: conte um arquivo específico em uma determinada pasta

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: O código VBA acima contará o . Xlsx arquivos em uma determinada pasta. Para contar outros tipos de arquivos, por favor, descubra xPath = xFolder & "\ *. xlsx", e mude o . Xlsx para outra extensão de arquivo com base em suas necessidades.

3. aperte o F5 ou clique no Execute botão para executar este código VBA.

4. Na caixa de diálogo de abertura Procurar, selecione a pasta certa na qual você contará os tipos específicos de arquivos e clique no botão OK botão.

5. Agora uma caixa de diálogo aparecerá e mostrará quantos tipos específicos de arquivos existem em determinada pasta. Basta fechar a caixa de diálogo.

Combine facilmente várias planilhas / pastas de trabalho / arquivos CSV em uma planilha / pasta de trabalho

Pode ser entediante combinar dezenas de planilhas de diferentes pastas de trabalho em uma única planilha. Mas com o Kutools para Excel Combine (planilhas e pastas de trabalho) utilitário, você pode fazer isso com apenas alguns cliques!

Se você abriu uma pasta, normalmente obterá o número de todos os arquivos na parte inferior desta pasta. Este método apresentará o Kutools para Excel Abrir pasta de conteúdo utilitário 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 Kutools Plus > livro > Abrir pasta de conteúdo. Veja a imagem:

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

Desmarque qualquer arquivo na pasta de abertura e você verá o número de todos os arquivos na parte inferior desta pasta, conforme a imagem mostrada abaixo:

Note: O Abrir pasta de conteúdo 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 em suas subpastas. Na verdade, o Kutools for Excel oferece outro Lista de nomes de arquivo utilitário para resolvê-lo com facilidade.

1. Clique Kutools Plus > Importação / Exportação > Lista de nomes de arquivo para abrir a caixa de diálogo Lista de nomes de arquivos.

2. Na caixa de diálogo de abertura da Lista de nomes de arquivo, faça o seguinte:

3. Clique na Ok botão na caixa de diálogo Lista de nomes de arquivo.

4. Agora, todos os arquivos de 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 a imagem mostrada abaixo: