Cara, isso é mta coisa pra mim, faço a menor idéia usando VBA (nem sei se é possível)

Entretanto, rodando o batch em anexo na pasta, vc gera um txt (lista.txt) com todos os arquivos excel da pasta. A partir dele deve ser mais fácil importar os nomes para o excel.

Espero que possa ajudar.

Boa tarde,

Veja se este exemplo de código te ajuda:

Sub ListarCopiarArquivos()
    Dim Pasta As String
    Dim Arquivo As String
    Dim Qtde As Integer
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        Pasta = .SelectedItems(1)
    End With
    
    Qtde = 0
    Arquivo = Dir(Pasta & "*.xls")
    Do
        Workbooks.Open Pasta & "" & Arquivo
        ThisWorkbook.ActiveSheet.Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Value = Arquivo
        ThisWorkbook.ActiveSheet.Range("B" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.[A1].Value
        Workbooks(Arquivo).Close False
        Qtde = Qtde + 1
        Arquivo = Dir
    Loop While Arquivo <> ""
    [C1].Value = Qtde
    MsgBox "Fim de Execução da Macro"
End Sub

Abraço

Então gtsalikis, eu até consegui uma maneira de listar todos os arquivos de uma pasta.
Tipo, a macro ao ser executada, ela exibe através de Msgbox's o nome de todos os arquivos de uma determinada folder.
Consegui isso no fórum do nosso amigo Tomás Velásquez: http://www.tomasvasquez.com.br/blog/mic ... -diretorio

Mais mesmo com essa dica nas mãos, não consegui montar o que preciso...

Mais mesmo assim agradeço a dica man!

JValq, PERFEITO cara!
Não poderia ser melhor man!

Muito obrigado mesmo mestre!
Sem essa ajuda o projeto estaria fadado á boa e velha gambiarra! kkkkkkkk
Forte abraço amigos e tenham uma ótima tarde