Bem-vindo ao Microsoft Q&A!
Especificamente, é importante comunicar que a codificação não é totalmente suportada pela Microsoft, mas deixe-me tentar ajudá-lo um pouco mais.
Sub ContarArquivosNaPasta()
Dim pasta As String
Dim arquivo As String
Dim contador As Long
' Defina o caminho da pasta
pasta = "C:\Caminho\Para\Sua\Pasta" ' Altere para o caminho da sua pasta
' Inicialize o contador
contador = 0
' Obtenha o primeiro arquivo na pasta
arquivo = Dir(pasta & "\*.*")
' Continue a contar enquanto houver arquivos na pasta
Do While arquivo <> ""
contador = contador + 1
arquivo = Dir
Loop
' Exiba o número de arquivos encontrados
MsgBox "Número de arquivos na pasta: " & contador
End Sub
Como usar o código:
- Abra o Excel e pressione
Alt + F11
para abrir o Editor do VBA. - Insira um novo módulo: Vá em
Inserir > Módulo
. - Cole o código acima no módulo.
- Altere o caminho da pasta na linha
pasta = "C:\Caminho\Para\Sua\Pasta"
para o caminho da pasta que você deseja contar os arquivos. - Execute o código pressionando
F5
ou indo emExecutar > Executar Sub/UserForm
.
Introdução ao VBA no Office - Artigo recomendado
Espero que essas dicas ajudem a resolver o problema! Se precisar de mais assistência, estou à disposição.
Saudações
Jonathan.
-----------
Se a resposta for a solução correta, clique em "Aceitar resposta" e vote educadamente nela. Se você tiver perguntas adicionais sobre essa resposta, clique em "Comentar". Nota: Siga as etapas em nossa documentação para habilitar notificações por e-mail se você gostaria de receber notificações por e-mail relacionadas a este tópico.