Boa tarde!!

Tente adaptar!

Sub AleVBA_19511()
    Dim cell As Range
    Dim FF As Long
    Dim Counter As Long
    
    For Each cell In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If cell.Value <> "" And Range("A" & cell.Row).Value <> "" Then
            FF = FreeFile()
            '                Aqui o arquivo pega o nome das células col A
            Open ThisWorkbook.Path & "" & Range("A" & cell.Row).Value & ".txt" For Output As #FF
            Print #FF, cell.Text
            Close #FF
            Counter = Counter + 1
        End If
    Next cell
    
    MsgBox Counter & " Arquivos salvos. ", , "Criar Arquivo de Texto"
    'Obs: os arquivos são salvos no mesmo diretório que o arquivo xls...
End Sub

Att

Deu

Erro 400 !

Boa tarde!!

No meu teste não gerou erro!!

Att

O erro 400, genericamente, refere-se a tentativa de acessar um objeto, que já está em utilização ou está inacessível.
Exemplo abrir form que já está aberto.

Aparentemente o erro não se refere a rotina proposta (testei e rodou ok) pelo colega Alexandre, talvez alguma outra instrução que seja "deflagrada" ao "executar" a proposta

Entendi,

E a respeito de versões excel?. uso, por força da empresa, a versão Office 2000.

É possível que a versão apresente alguma incompatibilidade com as instruções de código; porem não posso afirmar com certeza pois nunca utilizei essa versão.

Olá Reinaldo,

O erro continua ocorrendo mesmo na versão 2010 do excel. Você pode disponibilizar um arquivo com a macro ?

Obrigado.

Boa tarde, Srs.

Desculpa se entrometer na discussão dos senhores...
Fiz o teste com o código do alexandrevba, funcionou 100%.

Segue arquivo com código, funcionando.

Só descompactar e executar.

Acredito que o código funcione. Apenas testei com minha base e o erro 400 apareceu. Ontem testei no Excel 2010 e o erro persistiu. Vou testar seu arquivo e confirmar.

Obrigado.

Olá,

Estou enviando o arquivo com as informações que desejo exportar. O erro mudou, mas continua sem funcionar.
Agradeço se fosse feita alguma consideração para a solução.

Obrigado.

Como a rotina está "pegando" o conteudo da celula para nome do arquivo, eventualmente algum caractere proibido pelo sistema operacional para nomes de arquivos pode gerar erro.
Então experimente executar a rotina conforme alteração abaixo; o nome de arquivo passa a ser uma numeração crescente, veja se executa corretamente

Sub AleVBA_19511()
Dim rCell As Range
Dim FF As Long, Counter As Long
Counter = 1
    For Each rCell In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If rCell.Value <> "" And Range("A" & rCell.Row).Value <> "" Then
            FF = FreeFile()
            '                Aqui o arquivo pega o nome das células col A
            Open ThisWorkbook.Path & "" & Counter & ".txt" For Output As #FF
            Print #FF, rCell.Text
            Close #FF
            Counter = Counter + 1
        End If
    Next rCell
    
    MsgBox Counter & " Arquivos salvos. ", , "Criar Arquivo de Texto"
    
End Sub