Como contar os ficheiros numa pasta ou diretório específico no Excel?

O seguinte código VBA permite-lhe contar facilmente um tipo específico de ficheiro numa pasta indicada — por exemplo, todos os ficheiros .xlsx. Siga os passos abaixo:

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

2. Clique em Inserir > Módulo e cole o seguinte código VBA na janela do módulo que abrir.

VBA: Contar um ficheiro específico numa 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

Nota: O código VBA acima conta os ficheiros .xlsx numa determinada pasta. Para contar outros tipos de ficheiro, localize a linha xPath = xFolder & «\*.xlsx» e altere a extensão .xlsx para a extensão pretendida, conforme as suas necessidades.

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

4. Na caixa de diálogo Procurar aberta, selecione a pasta específica onde pretende contar os tipos de ficheiro específicos e clique no botão OK.

5. Aparecerá agora uma caixa de diálogo a indicar quantos tipos de ficheiro específicos existem na pasta em questão. Basta fechá-la.

Se tiver uma pasta aberta, normalmente verá o número total de ficheiros na parte inferior dessa pasta. Este método utiliza a funcionalidade Abrir a pasta onde o documento atual está localizado do Kutools para Excel para abrir a pasta que contém o Livro de Trabalho Atual e, em seguida, obter o número de ficheiros nessa pasta.

1. Clique em KUTOOLS PLUS > Livro > Abrir a pasta onde o documento atual está localizado. Veja a imagem:

2. A pasta que contém o Livro de Trabalho Atual está agora a ser aberta.

Desmarque qualquer ficheiro no Abrir Pasta e verá o número total de ficheiros na parte inferior da pasta, conforme ilustrado na imagem seguinte:

Nota: A funcionalidade Abrir a pasta onde o documento atual está localizado será inválida se nunca tiver guardado o Livro de Trabalho Atual anteriormente.

Por vezes, poderá querer contar vários tipos de ficheiros numa pasta e nas respetivas subpastas. Na realidade, o Kutools para Excel disponibiliza outra utilidade Lista de Nomes de Arquivos para resolver esta tarefa com facilidade.

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 aberta, siga estes passos:

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

4. Agora, todos os ficheiros de Especificar tipo estão listados num Nova planilha. Basta selecionar a primeira coluna sem o cabeçalho e obterá o número de ficheiros no Barra de Status, conforme ilustrado na imagem seguinte: