Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Espaço em branco no final arquivo .txt

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Tov Elen Shau
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Mai 17, 2017 2:27 pm

Espaço em branco no final arquivo .txt

Mensagem por Tov Elen Shau » Qui Mai 10, 2018 3:40 pm

Colegas

Boa tarde


Tenho uma planilha que gera um arquivo em txt para ser importando por um programa. Se eu copiar os dados da planilha e colar em um arquivo txt ele importa normalmente, mas quando a planilha salva automaticamente o arquivo em txt as linhas ficam com um espaço em branco no final de cada linha (mas dentro das células não tem espaço em branco no final) e daí o programa não importa. Alguém tem uma dica de como excluir esses espaços em branco ao gerar o arquivo?

Grato

Tov Elen Shau



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 883
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Espaço em branco no final arquivo .txt

Mensagem por Reinaldo » Qui Mai 10, 2018 10:50 pm

Como esse txt e gerado. Pode dispor um modelo/exemplo e maiores detalhes


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Tov Elen Shau
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Espaço em branco no final arquivo .txt

Mensagem por Tov Elen Shau » Sex Mai 11, 2018 8:11 am

Reinaldo, obrigado por se dispor a ajudar. Olha só, eu estava usando um código bem complexo e que não me ajudou muito. Resolvi adaptar a rotina abaixo e selecionou o problema.

Open "C:\Lançamentos\Lançamento.txt" For Output As 1
Range("A1").Select
Do While ActiveCell.Value <> ""
Print #1, ActiveCell.Value
Loop
MsgBox "Concluído com sucesso!"
Close 1

Muito obrigado a todos.


Tov Elen Shau



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder