Olá Mauro,

Estou enviando um modelo de como deve ser a importação dos arquivos textos. Note que na planilha, na coluna A tem os nomes dos arquivos textos, logo seu conteúdo será importado para a coluna B, no caso.

Conto com a sua ajuda.

Obrigado.

luiz, adaptando a rotina do Nelson, veja se é isto.

Public Sub ImportarArqTextMauro()

    Dim NomeArquivo As String
    Dim Caminho As String
        
    Dim wshContratos As Worksheet
    Dim rngCell As Range
    Dim rngMyArquivos As Range
    Dim celDestino
    
    'definimos o nome da aba
    Set wshContratos = Worksheets("Contratos")
    
    'Definimos o Range com Dados até a ultima linha preenchida
    Set rngMyArquivos = wshContratos.Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
       
    'Definimos o caminho no mesmo local do arquivo Controle.xlsm
    Caminho = ActiveWorkbook.Path & ""
    
    'Loop em cada celula no Range
    For Each rngCell In rngMyArquivos
        
        'Definimos a celula para inserir o texto
        celDestino = rngCell.Offset(0, 1).Address(0, 0)
        
        'Nome de cada arquivo
        NomeArquivo = rngCell & ".txt"
             
        'Abre o arquivo para leitura
        Open Caminho & NomeArquivo For Input As #1
            
            'Inseri o conteudo do arquivo na celula correspondente ao arquivo
            Range(celDestino).Value = Input$(LOF(1), 1)
            
            'Fecha o arquivo Texto
            Close #1
            
    Next rngCell
        
    ActiveSheet.Range("A:O").Columns.AutoFit
       
End Sub

[]s

Mauro,

Bom dia.

Vou lhe agradecer antes mesmo de testar o código e também vou fazer um comentário que talvez possa ajudar nas soluções futuras de dúvidas dos usuários.
Percebi pelo código a presença do tipo de arquivo do excel habilitado para macros. Esse tipo de arquivo é fantástico, mas usuários de versões anteriores do excel vão ficar sem uma solução.

Tenho percebido que a maioria dos códigos estão utilizando esse formato de planilha. No meu caso, trabalho em uma empresa que (erradamente) ainda utiliza a versão 2000 do office, sabe como é empresa pública né. Mas vou testar o código em casa e tenho certeza que funcionará, mas talvez não poderei implementar aqui na empresa.

Em todo caso, agradeço pela ajuda.

Valeu!

luiz, a rotina postada, a principio serve para qualquer versão do excel, alias do 2000 pra cima, ela não é especifica para a versão 2007 e superior onde foi alterada a extensão dos arquivos que continham 3 letras "xls" para 4 "xlsm", talves você tenha feito confusão devido a linha comentada (não executavel - '"Definimos o caminho no mesmo local do arquivo Controle.xlsm", acabei digitando esta extensão por utilizar a v2007 e seu modelo não conter nenhuma macro.
Lembrando que de fato existem algumas alterações com o advento de novas Versões, isto ocorre na maioria dos updates de softwares, e não foi diferente nos app office, que não foram só em relação ao VBA mas em algumas funções, algumas para melhor e outras que acabaram extintas.
Mas pode utilizar sem problemas em versões anteriores.

[]s

Mauro,

Perfeito o código! Quanto minha observação, agradeço pelos esclarecimentos. Ficou muito bom mesmo.

Valeu.