Não tenho muita intimidade com exportação para TXT, mas vou dar uma olhada e assim aprender um pouco mais, só não sei se vai dar para ser no momento, 6ªf é brava, mas, nenhum outro colega postar uma ajuda, mais tarde vejo se consigo.
Por enquanto de uma olhada no link abaixo, tem até um exemplo para baixar :
How to create delimited text files in Excel VBA
http://guideexcel.com/create-delimited- ... excel-vba/
http://guiadoexcel.com.br/criar-arquivo ... el-com-vba

[]s

Veja se auxilia:
Obs.: Na planilha "Plan2" como pode ser utilizando formula, no botão "Gera TxT", salva o arquivo no mesmo diretório em que está a planilha Excel

vaggnersf,

Boa Tarde!

Segue a minha sugestão. Não cheguei a abrir a sugestão dos demais colegas. Todavia, creio que deva ser muito semelhante.

Pessoal, estou tentando baixa o zip que o Wagner Morel postou, mais ele esta corrompido. Como faço? Preciso desse arquivo que consta o codigo em VBA.

Pessoal, estou postando novamente o arquivo em Excel e TXT. Preciso muito gerar esse arquivo. Dois colegas do forum tinham feito o codigo como queria, mais nao acabei salvando no meu micro e nessa mudança de servidor os arquivos que eles criaram acabaram sendo corrompido. Agradeço se puderem me ajudar.

Pessoal, como faço para recuperar meu arquivo corrompido desse topico? Preciso muito desse arquivo.

Pessoal, estou postando novamente o arquivo em Excel e TXT. Preciso muito gerar esse arquivo. Dois colegas (Wagner Morel e Reinaldo) do forum tinham feito o codigo como queria, mais nao acabei salvando no meu micro e nessa mudança de servidor os arquivos que eles criaram acabaram sendo corrompido. Agradeço se puderem me ajudar.
E que estou precisando muito mesmo gerar esse arquivo, estou no desespero. Senão terei que lançar um monte de informação na mão, onde vou levar uns 10 dias. E na geração desse arquivo em txt vou gastar menos de 2 horas.

Segue o exemplo do meu leiaute:

Coluna A – 56 caracteres – espaço em branco – inicio 1
Coluna B – 40 caracteres – espaço em branco – inicio 57
Coluna C – 7 caracteres – espaço com zero – inicio 97
Coluna D – 1 caracter – espaço em branco – inicio 104
Coluna E – 5 caracteres – espaço com zero – inicio 105
Coluna F – 1 caracter – espaço em branco – inicio 110
Coluna G – 56 caracteres - espaço em branco – inicio 111
Coluna H – 20 caracteres – espaço com zero – inicio 168

Pessoal, acabei escrevendo um codigo, mais não consigo finalizar um comando.

CC = Format(Cells(i, "c").Value, Wf.Rept("0", 7))

Este comando preciso que ele entenda que terar que preencher com espaços onde ele não encontrar numero na coluna e quando encontrar numero ira preencher com zeros.

Segue o codigo

Sub PlConta()

    Dim i As Integer
    Dim Arquivo As String
    Dim Wf As WorksheetFunction
    Dim Analatico As String
    Dim Compl As String
    Dim CC As String
    Dim DRE As String
    Dim REF As String
    Dim Apelido As String
       
   
    Set Wf = WorksheetFunction
    Arquivo = "C:Tempplcontas.txt"
    Sequencial = 1
    Open Arquivo For Output As #1
   
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
       analitico = Cells(i, "a").Value
       Compl = Cells(i, "b").Value
       CC = Format(Cells(i, "c").Value, Wf.Rept("0", 7))
       DRE = Format(Cells(i, "d").Value, Wf.Rept(" ", 1))
       REF = Format(Cells(i, "e").Value, Wf.Rept("0", 5))
       Apelido = Cells(i, "h").Value
       

    Print #1, analitico & Wf.Rept(" ", 56 - Len(analitico)) & Compl & Wf.Rept(" ", 40 - Len(Compl)) & CC _
              & DRE & Wf.Rept(" ", 1 - Len(DRE)) & REF & branco & Wf.Rept(" ", 57 - Len(branco)) _
              & Apelido & Wf.Rept(" ", 20 - Len(Apelido))
                  
                  
    Next
    MsgBox "Contas Gerado"
    
    Close
End Sub

vaggnersf,

Boa Tarde!

Segue a minha sugestão. Não cheguei a abrir a sugestão dos demais colegas. Todavia, creio que deva ser muito semelhante.

Não consigo baixar o arquivo teria como postar novamente

Obrigado.

Prezados,

Infelizmente não guardei o arquivo e esse que está no fórum parece que ficou corrompido. Teria que desenvolver a solução novamente...