Ir ao conteúdo
  • Cadastre-se
dafmg

Listar arquivos do mesmo diretório vba

Recommended Posts

Bom dia, por favor podem me ajudar? Preciso de um código de VBA para listar os arquivos .xslx numa planilha especifica da mesma pasta em que o arquivo está salvo, procurei muito mas só encontro códigos onde lista os arquivos de um diretório pré-determinado, não onde a planilha está salva....

Compartilhar este post


Link para o post
Compartilhar em outros sites

Segue exemplo.

Cole a função em um modulo padrão.

Em seguida execute a macro Teste

Os dados serão inseridos na coluna A

 

	Public Function Lista_Arquivos(ByVal sPath As String, Optional ByVal sFilter As String)
	    Dim Arq As String
	    If Right(sPath, 1) <> "\" Then
        sPath = sPath & "\"
    End If
	    If sFilter = "" Then
        sFilter = "*.*"
    End If
    
    Arq = Dir(sPath & sFilter)
      
      Do Until Arq = ""
       With ActiveSheet
        
        .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row).Value = Arq
        Arq = Dir
     
     End With
    
    Loop
	End Function
	 
	Sub Teste()
Lista_Arquivos ThisWorkbook.Path, "*.xlsx"
End Sub
	

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×