Assunto: 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
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
Assunto: 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
DAILEOM
Mensagens : 7 Data de inscrição : 23/02/2014
Assunto: Re: Contagem de arquivos Qua Mar 25, 2015 5:03 pm
Perfeito ! Muito obrigado !
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
Assunto: Re: Contagem de arquivos Qua Mar 25, 2015 9:59 pm