Amigo, Me responde uma coisa. Os arquivos txt possuem as mesmas quantidades de linhas? eles possuem a mesma estrutura?

Amigo, Me responde uma coisa. Os arquivos txt possuem as mesmas quantidades de linhas? eles possuem a mesma estrutura?

Sim, possui a mesma estrutura, e a mesma quantidade de linhas em branco o que muda e a quantidade de linhas do conteudo.

Amigo e se vc fazer a consolidação e depois utilizar o software notepad++ para fazer a exclusão das linhas em branco.
Veja no link abaixo como é feita a exclusão das linhas em branco num arquivo txt:

http://www.tomasvasquez.com.br/blog/tecnologia/dicas-eliminando-linhas-em-branco-de-um-texto

Att.: Lucélio

Amigo e se vc fazer a consolidação e depois utilizar o software notepad++ para fazer a exclusão das linhas em branco.
Veja no link abaixo como é feita a exclusão das linhas em branco num arquivo txt:

http://www.tomasvasquez.com.br/blog/tecnologia/dicas-eliminando-linhas-em-branco-de-um-texto

Att.: Lucélio

Então amigo, ja vi esses site, e uma boa idéia o problema e que não posso instalar aqui na empresa onde trabalho, mas obrigado pela dica.
Vou pesquisar mais.

Caro amigo, baixe o anexo e descompacte a pasta Arquivo dentro da unidade "D:" do seu computador, caso não tenha unidade D, ajuste o código para a outra unidade que desejar. depois cole seus arquivos no formato txt na pasta "Arquivostxt". Abra o arquivo do Excel com a macro e execute a macro dentro dele. Após feito isso o excel fechará e na pasta "Arquivos" aparecerá um arquivo txt com o nome "Todos sem espaços.txt". Fiz aqui com 3 arquivos txt e foi tranquilo, verifica ai se com uma quantidade maior de arquivos funciona bem.

Lembre-se qualquer mudança de locais e nomes de arquivos devem ser ajustados no código.

Att.: Lucélio

Caro amigo, baixe o anexo e descompacte a pasta Arquivo dentro da unidade "D:" do seu computador, caso não tenha unidade D, ajuste o código para a outra unidade que desejar. depois cole seus arquivos no formato txt na pasta "Arquivostxt". Abra o arquivo do Excel com a macro e execute a macro dentro dele. Após feito isso o excel fechará e na pasta "Arquivos" aparecerá um arquivo txt com o nome "Todos sem espaços.txt". Fiz aqui com 3 arquivos txt e foi tranquilo, verifica ai se com uma quantidade maior de arquivos funciona bem.

Lembre-se qualquer mudança de locais e nomes de arquivos devem ser ajustados no código.

Att.: Lucélio

Bom dia Lucélio, fiz o teste aqui, a macro roda mas ta dando um erro no comando abaixo e por fim acaba não tirando os espaços:

.Refresh BackgroundQuery:=False

Sera que eu preciso habilitar algum recurso no excel?

Testei novamente e deu certo!!!

é exatamente o que eu preciso, muito Obrigado Lucélio.

Caro amigo, baixe o anexo e descompacte a pasta Arquivo dentro da unidade "D:" do seu computador, caso não tenha unidade D, ajuste o código para a outra unidade que desejar. depois cole seus arquivos no formato txt na pasta "Arquivostxt". Abra o arquivo do Excel com a macro e execute a macro dentro dele. Após feito isso o excel fechará e na pasta "Arquivos" aparecerá um arquivo txt com o nome "Todos sem espaços.txt". Fiz aqui com 3 arquivos txt e foi tranquilo, verifica ai se com uma quantidade maior de arquivos funciona bem.

Lembre-se qualquer mudança de locais e nomes de arquivos devem ser ajustados no código.

Att.: Lucélio

Bom dia Lucélio, fiz o teste aqui, a macro roda mas ta dando um erro no comando abaixo e por fim acaba não tirando os espaços:

.Refresh BackgroundQuery:=False

Sera que eu preciso habilitar algum recurso no excel?

Lucélio, percebi um defeito no ultimo relatório gerado, a ultima coluna do txt trocou os pontos por virgula, sendo assim não consigo somar valores

O txt todos sem espaço esta invertendo ponto por virgula.

Caro colega,

estou meio atarefado aqui no momento mas assim que chegar em casa verifico e te dou um retorno.

Att.: Lucélio

Boa noite amigo,

Teste o arquivo anexo. Descompacte a pasta "Arquivos" na unidade "D" do seu computador, abra a planilha "Macro.xlsm" e execute a macro que está dentro da planilha. Após terminar o excel salvará na pasta "Arquivos" um arquivo txt com o nome "OK.txt". Depois poderá fechar o arquivo Excel. Dentro da pasta "D:Arquivostxt" é onde estão os arquivos txt para serem utilizados. Caso mude o endereço de algum dos arquivos mencionados aqui, deverá ser ajustado o código também. Caso queira mudar o endereço e tenha dificuldades é só postar os códigos que ajustamos.

Att.: Lucélio

Caro amigo, testei a planilha com poucos Txt's e funcionou, porém quando fui testar com mais Txt's deu erro. Depois fui verificar e identifiquei o erro. É que o processo de juntar os arquivos é feito fora do Excel e como o código do Excel não para para esperar a junção dos arquivos ele apresenta erro pois o arquivo ainda não foi montado com todos os Txt's. Para resolver coloquei um time que aguarda o arquivo com todos os Txt's ser criado e depois o Excel executa a remoção dos espaços vazios. Desconsidere o arquivo enviado anteriormente e considere o anexo abaixo.

Descompacte a pasta "Arquivos" na unidade "D" do seu computador, abra a planilha "Macro.xlsm" e execute a macro. Após terminar o Excel salvará na pasta "Arquivos" um arquivo txt com o nome "OK.txt". Depois poderá fechar o arquivo Excel, está pronto. Dentro da pasta "D:Arquivostxt" é onde estão os arquivos txt para serem utilizados. Caso mude o endereço de algum dos arquivos mencionados aqui, deverá ser ajustado o código também.

Att.: Lucélio

Se for só uma questão de importar vários arquivos texto de uma pasta sem considerar linhas em branco vc tb pode usar Nova Consulta.
Se quiser fazer outros tratamentos nos dados tb é possível.

Caro amigo, testei a planilha com poucos Txt's e funcionou, porém quando fui testar com mais Txt's deu erro. Depois fui verificar e identifiquei o erro. É que o processo de juntar os arquivos é feito fora do Excel e como o código do Excel não para para esperar a junção dos arquivos ele apresenta erro pois o arquivo ainda não foi montado com todos os Txt's. Para resolver coloquei um time que aguarda o arquivo com todos os Txt's ser criado e depois o Excel executa a remoção dos espaços vazios. Desconsidere o arquivo enviado anteriormente e considere o anexo abaixo.

Descompacte a pasta "Arquivos" na unidade "D" do seu computador, abra a planilha "Macro.xlsm" e execute a macro. Após terminar o Excel salvará na pasta "Arquivos" um arquivo txt com o nome "OK.txt". Depois poderá fechar o arquivo Excel, está pronto. Dentro da pasta "D:Arquivostxt" é onde estão os arquivos txt para serem utilizados. Caso mude o endereço de algum dos arquivos mencionados aqui, deverá ser ajustado o código também.

Att.: Lucélio

Lucélio a principio esta dando certo, coloquei para importante varios arquivos, mas vou realizar mais alguns testes, desde ja muito obrigo pela ajuda meu amigo, assim que concluir te comunico.