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

Importante: 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 Corrida 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 tedioso combinar dezenas de planilhas de pastas de trabalho diferentes em uma única planilha. Mas com Kutools para Excel's Combine (planilhas e pastas de trabalho) utilitário, você pode fazer isso com apenas alguns cliques! Avaliação gratuita de recursos completos por 30 dias!

Se você abriu uma pasta, normalmente obterá o número de todos os arquivos na parte inferior dessa pasta. Este método irá 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.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Teste grátis agora!

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:

Importante: O Abrir pasta de conteúdo utilitário será inválido se você nunca salvou a pasta de trabalho atual antes.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Get It Now

Às vezes, você pode desejar contar vários tipos de arquivos em uma pasta e suas subpastas. Na verdade, o Kutools para Excel oferece outro Lista de nomes de arquivo utilitário para resolvê-lo com facilidade.

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Teste grátis agora!

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:

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Get It Now