Exibir nomes de arquivos de uma pasta

Question

Boa tarde,

Gostaria por gentileza de criar um código que exiba os nomes de arquivos de uma pasta do computador nas células do excel em lista, um embaixo do outro.

Answer 1

Public Function ListaArquivos(ByVal Caminho As String) As String()
    'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime
    Dim FSO As New FileSystemObject
    Dim result() As String
    Dim Pasta As Folder
    Dim Arquivo As File
    Dim Indice As Long
 
 
    ReDim result(0) As String
    If FSO.FolderExists(Caminho) Then
        Set Pasta = FSO.GetFolder(Caminho)
 
        For Each Arquivo In Pasta.Files
            Indice = IIf(result(0) = "", 0, Indice + 1)
            ReDim Preserve result(Indice) As String
            result(Indice) = Arquivo.Name
        Next
    End If
 
    ListaArquivos = result
ErrHandler:
    Set FSO = Nothing
    Set Pasta = Nothing
    Set Arquivo = Nothing
End Function

---

Anderson Diniz

Answer 2

Private Sub Listar()
Dim linha As Long
    Dim arquivos() As String
    Dim lCtr As Long
    arquivos = ListaArquivos("C:\temp")
    For lCtr = 0 To UBound(arquivos)
    linha = 1
      While ThisWorkbook.Sheets("Planilha1").Cells(linha, 1) <> ""
      
      linha = linha + 1
      Wend
      ThisWorkbook.Sheets("Planilha1").Cells(linha, 1) = arquivos(lCtr)
    Next
End Sub

---

Anderson Diniz

Answer 3

---

Anderson Diniz

Answer 4

---

Anderson Diniz

Answer 5

---

Anderson Diniz

Answer 6

Já testei e funcionou. Favor marcar como respondido.

---

Anderson Diniz

Answer 7

---

Anderson Diniz