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 | 
 

 Contagem de arquivos

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



Mensagens : 7
Data de inscrição : 23/02/2014

MensagemAssunto: Contagem de arquivos   Ter Mar 24, 2015 5:54 pm

Tem como fazer uma macro para o excel fazer a contagem de quantos arquivos existem no mesmo diretório dele ?
Teria que preencher o resultado em uma célula do excel, por exemplo a A1
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: Contagem de arquivos   Qua Mar 25, 2015 2:39 am

Boa noite!!

Tente
Código:
Sub AleVBA_1002()
    'Seu diretorio
    'Eu estou usando Linux
    [A1].value = FileCountA("/home/oracle/Downloads/")
    'Para Windows tente
    '[A1].value = FileCountA("C:\temp\")
End Sub

Código:
Function FileCountA(Path As String) As Long
    Dim strTemp As String
    Dim lngCount As Long
   
    strTemp = Dir(Path & "*.*")
    Do While strTemp <> ""
        lngCount = lngCount + 1
        strTemp = Dir
    Loop
   
    FileCountA = lngCount
   
End Function

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



Mensagens : 7
Data de inscrição : 23/02/2014

MensagemAssunto: Re: Contagem de arquivos   Qua Mar 25, 2015 5:03 pm

Perfeito !
Muito obrigado !
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: Contagem de arquivos   Qua Mar 25, 2015 9:59 pm

Bom dia!!

Eu fico feliz em ajudar, obrigado pelo retorno!! cheers

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Contagem de arquivos   Hoje à(s) 1:33 pm

Voltar ao Topo Ir em baixo
 
Contagem de arquivos
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [PEIDO] Como subir arquivos no 4Shared/Mediafire
» [ON]Arquivos Fla 02
» Gta San Andreas - Arquivos de Audio
» Problema com arquivos DOC e PDF
» programa para criar arquivos de som mid

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: