Como contar quantos temos os arquivos dentro da pasta - FileSystem

Luiz Felipe Miorini 0 Pontos de reputação
2024-07-07T23:13:37.2666667+00:00

Preciso saber o número de arquivos - quaisquer extensão, .txt, .xlsm, .pdf, etc, etc -  existentes em uma determinada pasta (de trabalho...), através de macro VBA.

Encontrei dezenas de soluções na Internet e nenhuma resolveu o problema, algumas são muito complicadas (rebuscadas...) e as outras demais  não funcionam. 

Eu penso que não é difícil,  para um conhecedor de Excel, conhecer a solução. Meus conhecimentos, em Excel, não são suficientes para tanto. Antecipadamente agradeço o auxílio. Grato.

Microsoft Q&A
Microsoft Q&A
Use esta marca para compartilhar sugestões, solicitações de recursos e bugs com a equipe de perguntas e respostas da Microsoft. A equipe de perguntas e respostas da Microsoft avaliará seus comentários regularmente e fornecerá atualizações eventuais.
253 perguntas
0 comentários Sem comentários
{count} votos

4 respostas

Classificar por: Mais útil
  1. Jonathan Pereira Castillo 8,265 Pontos de reputação Fornecedor da Microsoft
    2024-07-31T16:41:44.7633333+00:00

    Oi Luiz Felipe Miorini!

    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:

    1. Abra o Excel e pressione Alt + F11 para abrir o Editor do VBA.
    2. Insira um novo módulo: Vá em Inserir > Módulo.
    3. Cole o código acima no módulo.
    4. Altere o caminho da pasta na linha pasta = "C:\Caminho\Para\Sua\Pasta" para o caminho da pasta que você deseja contar os arquivos.
    5. Execute o código pressionando F5 ou indo em Executar > 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.

    0 comentários Sem comentários

  2. Jonathan Pereira Castillo 8,265 Pontos de reputação Fornecedor da Microsoft
    2024-08-14T17:56:12.5766667+00:00

    Oi Luiz Felipe Miorini!

    O objetivo desta mensagem é verificar as informações fornecidas. Se tiver mais atualizações sobre este assunto, por favor, não hesite em responder neste mesmo tópico.

    Cuidadosamente                 

    Jonathan

    -----------

    Se você acha que as informações fornecidas acima resolveram sua dúvida, agradeceríamos se você pudesse marcá-la como "Aceite a resposta se achar útil". Isso nos ajuda a manter a qualidade e a relevância das soluções em nosso fórum.

    0 comentários Sem comentários

  3. Jonathan Pereira Castillo 8,265 Pontos de reputação Fornecedor da Microsoft
    2024-08-16T19:44:26.8466667+00:00

    Bom dia Luiz Felipe Miorini!

    Conforme as informações anteriormente fornecidas, o objetivo desta mensagem é realizar uma verificação das mesmas. Caso possua novas atualizações referentes a este assunto, por favor, sinta-se à vontade para responder neste mesmo tópico.

    Atenciosamente,

    Jonathan

    -----------

    Se você acha que as informações fornecidas acima resolveram sua dúvida, agradeceríamos se você pudesse marcá-la como "Aceite a resposta se achar útil". Isso nos ajuda a manter a qualidade e a relevância das soluções em nosso fórum.

    0 comentários Sem comentários

  4. Jonathan Pereira Castillo 8,265 Pontos de reputação Fornecedor da Microsoft
    2024-08-21T22:17:46.68+00:00

    Olá Luiz Felipe Miorini!

    Como não obtivemos retorno de sua parte, procederemos com o encerramento deste tópico de discussão. No entanto, gostaríamos de lembrá-lo que está sempre à vontade para iniciar um novo tópico em nosso fórum sempre que necessitar de assistência adicional ou desejar retomar a conversa. Caso considere que as informações já fornecidas esclareceram suas dúvidas, ficaríamos gratos se pudesse marcar a resposta como ‘Aceita’, caso a tenha encontrado útil. Isso contribui significativamente para a manutenção da qualidade e pertinência das soluções oferecidas em nosso fórum. Agradecemos sua participação e esperamos continuar a oferecer-lhe suporte valioso no futuro

    Jonathan

    -----------

    Se você acha que as informações fornecidas acima resolveram sua dúvida, agradeceríamos se você pudesse marcá-la como "Aceite a resposta se achar útil". Isso nos ajuda a manter a qualidade e a relevância das soluções em nosso fórum.

    0 comentários Sem comentários

Sua resposta

As respostas podem ser marcadas como Respostas Aceitas pelo autor da pergunta, o que ajuda os usuários a saber a resposta que resolveu o problema do autor.