Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 VBA - Como contar qtd de arquivos dentro de diretórios no Excel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
jizreel



Mensagens : 2
Data de inscrição : 05/06/2015

MensagemAssunto: VBA - Como contar qtd de arquivos dentro de diretórios no Excel   Sex Jun 05, 2015 8:46 pm

Colegas, preciso de ajuda.
Preciso listar em uma planilha o nome da pasta e a quantidade de arquivos que tem nessa pasta, incluindo os subdiretorios. São várias pastas e subpastas. Como sou iniciante em VBA peço a ajua de todos com o código.

Exemplo:

Quero saber a quantidade de arquivos que estão dentro da pasta c:\teste e seus subdiretórios. Ai o excel te que gerar na coluna A o nome da pasta e na coluna B a quantiade de arquivos.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: VBA - Como contar qtd de arquivos dentro de diretórios no Excel   Sex Jun 12, 2015 6:02 pm

Bom dia!!

Código:
Sub AleVBA_1046()
   
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
   
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set ws = Worksheets.Add
   
    Set objFolder = objFSO.GetFolder("C:\Users\alexandre.goncalves\Downloads\PlanModelos\")
    ws.Cells(1, 1).Value = "Arquivos encontrados " & objFolder.Name & "em:"
   
    For Each objFile In objFolder.Files
        ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    Next
   
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
   
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
jizreel



Mensagens : 2
Data de inscrição : 05/06/2015

MensagemAssunto: Re: VBA - Como contar qtd de arquivos dentro de diretórios no Excel   Sex Jun 12, 2015 9:57 pm

alexandrevba escreveu:
Bom dia!!

Código:
Sub AleVBA_1046()
    
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set ws = Worksheets.Add
    
    Set objFolder = objFSO.GetFolder("C:\Users\alexandre.goncalves\Downloads\PlanModelos")
    ws.Cells(1, 1).Value = "Arquivos encontrados " & objFolder.Name & "em:"
    
    For Each objFile In objFolder.Files
        ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    Next
    
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
    
End Sub

Att


Colega desculpa minha ignorancia mas não consegui rodar esse código. Tem como detalhar mais por favor.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: VBA - Como contar qtd de arquivos dentro de diretórios no Excel   Hoje à(s) 9:56 am

Voltar ao Topo Ir em baixo
 
VBA - Como contar qtd de arquivos dentro de diretórios no Excel
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como colocar texto em negrito dentro de tabelas?
» Como fazer um sub forum dentro de um sub forum?
» [Resolvido] Como criar vários fóruns diferentes dentro de apenas um?
» Como colocar um tópico dentro de uma categoria?
» Arquivos para o tutorial do Ndrive aqui do forum!!!

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: