[Resolvido]Exportar TXT com dados na mesma linha

Amigos, boa noite!

Preciso de ajuda e gostaria de saber se alguém poderia me ajudar, assisti alguns tutoriais e acabei chegando
a este modelo de BD para exportar o arquivo .txt a onde do primeiro arquivo para o segundo tem 20 espaços
e do segundo para o tercerio 50 espaços, o problema e que o mesmo exporta os dados que seria para uma
linha em duas tipo assim:

013301202100000000030955201001                    APONTADOR
                                                                                                                                           01041
013301202100000000031727601001                    OPERADOR DE ROLO COMPACTADOR
                                                                                                                        01041
013401202100000000001789101001                    OPERADOR DE ROLO COMPACTADOR
                                                                                                                        01041
013501202100000000002040701001                    APONTADOR
                                                                                                                                           01021

o que preciso e que estes dados fiquem cada um em sua linha, tipo assim:


013301202100000000031727601001                    OPERADOR DE ROLO COMPACTADOR                                                  01041
013401202100000000001789101001                    OPERADOR DE ROLO COMPACTADOR                                                  01041

se algum puder me ajudar agradeço

Olá Fabio,

Não vi o seu projeto, mas veja este tópico:
https://www.maximoaccess.com/t22789-resolvidoexportar-tabela-para-txt-com-tamanho-especifico

Abraço

Boa tarde ahteixeira

Peguei o modelo que você me indicou mas ainda assim ele continua jogando os dados
para a segunda linha, se você e alguém puder me ajudar eu agradeço.

Fábio,

Provavelmente, os dados da tabela foram copiados ou importados de outra origem.
Na 2a. coluna da tabela (Campo2), continha um caracter  "|^", provavelmente o resultado da tecla Enter.
Copiei os dados da tabela e colei no Word, e realizei os seguintes procedimentos, do site do Tomaz Vazques:

- Selecione toda a área da planilha que contém as células com os dados a serem limpos e Copie (Ctrl+C)
- Cole em um documento do Word vazio (Ctrl+V) (os dados devem ir em formato de tabela)
- Ative a tela de Localizar/Substituir (Ctrl+U), clique em Mais de logo depois em Especial. Na lista que aparecer, selecione o item “Quebra manual de linha”. Na caixa de localizar deve aparecer o caractere “^l”
- Deixe a caixa Substituir por em branco
- Clique em Substituir tudo
Com isso, as quebras de linha devem ter sido removidas de dentro das células. Selecione a tabela do Word, Copie e Cole novamente na tabela Access.

O resultado foi esse:



Se ocorrer novamente o erro, é só executar os procedimento mencionados.
Não é o melhor jeito, mas funciona !!!!

Boa sorte

[]'s

FIM

Olá a todos,

Alexandre, obrigado pelo partilha dessa tecnica.

Fábio, não sei se compreendi bem a questão, mas se não quer a quebra de linha, na base de dados que partilhou altere a função por esta e teste.

Código:

Function ExportMOB()
'----novo codigo
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(Application.CurrentProject.Path & "\Import_MOBfso.txt")
'----fim novo codigo

Dim rst As Recordset, varRecCount As Integer, varCount As Integer
Dim varArq As String
'Dim DB As Database
Dim db As DAO.Database

Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl_export_mob", dbOpenTable) 'se for tabelas
'Set rst = DB.OpenRecordset("Cst_CadAn") 'se for consultas
rst.MoveLast
varRecCount = rst.RecordCount
rst.MoveFirst

varArq = Application.CurrentProject.Path & "\Import_MOB.txt"
'Tenta abrir o arquivo em caso de erro GerenErro
Open varArq For Output As #1


For varCount = 1 To varRecCount

Print #1, TamanhoA(rst!Campo1, 20) & TamanhoD(rst!Campo2, 35) & TamanhoF(rst!Campo3, 6)
'Print #1, TamanhoD(rst!Campo1, 30) & "" & TamanhoD(rst!Campo2, 35) & "" & TamanhoD(rst!Campo3, 6)

'----novo codigo
oFile.Write TamanhoA(rst!Campo1, 20) & TamanhoD(rst!Campo2, 35) & TamanhoF(rst!Campo3, 6)
'----fim novo codigo



rst.MoveNext

Next varCount
Close #1
rst.Close
Set db = Nothing
'----novo codigo
oFile.Close
Set fso = Nothing
Set oFile = Nothing
'----fim novo codigo
MsgBox "Arquivo TXT foi criado em: " & varArq, vbInformation, "Atenção"


End Function


Vai criar dois ficheiros, verifique o "Import_MOBfso.txt"

Abraço a todos

Olá a todos,

Fábio Fonseca, como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Abraço

Boa tarde

Desculpe pela demora em responder, verifique meu projeto e descobri que ao fazer uma copia de uma tabela através do
método (DoCmd.CopyObject) a mesmas acrescentava os espaços nos campos texto, e isso afetava diretamente ao criar
o arquivo .txt, o Alexandre Fim ja havia me mostrado que poderia ser isso.

Alterei a forma de cria a mesma e o arquivo ficou perfeito.

Gostaria de agradecer ao ahteixeira e ao Alexandre Fim, muito obrigado pela ajuda

Ola a todos

Fabio, obrigado pelo retorno o forum agradece.

Abraco