none
Exibir nomes de arquivos de uma pasta RRS feed

  • Pergunta

  • 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.

    quinta-feira, 31 de agosto de 2017 19:23

Todas as Respostas

  • 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

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:41
    quinta-feira, 31 de agosto de 2017 19:34
  • 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


    quinta-feira, 31 de agosto de 2017 19:38

  • Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
    quinta-feira, 31 de agosto de 2017 19:40

  • Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
    quinta-feira, 31 de agosto de 2017 19:42

  • Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
    quinta-feira, 31 de agosto de 2017 19:43
  • Já testei e funcionou. Favor marcar como respondido.

    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
    quinta-feira, 31 de agosto de 2017 19:44

  • Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 31 de agosto de 2017 21:40
    quinta-feira, 31 de agosto de 2017 19:45