[Resolvido]Converter tabela em txt conf. leiaute

Pessoal, como posso fazer para converte uma Tabela ACCESS para um leiaute como o que esta abaixo

Planilha em ACCESS que tenho e preciso converter em txt com parâmetro de um leiaute


Linha 1||||02/03/2012||||55||||953||||5.895,23||||95||||INDUSTRIAS MECANICAS ALVARCO ||||510
Linha 2||||07/03/2012||||55||||739||||1.220,30||||95||||ENGATSUL DISTRIBUIDORA||||510
Linha 3||||09/03/2012||||55||||676||||206,04||||95||||MERITOR DO BRASIL SISTEMAS||||510

Arquivo txt com o parâmetro de um leiaute pronto para importar para o sistema

020000001X02/03/2012Carlos ....aqui teria espaços(99caracteres)
030000002000005500009530000000005895230000095INDUSTRIAS MECANICAS ALVARCO 00510....aqui teria espaços(100caracteres)
020000003X07/03/2012Carlos ....aqui teria espaços(99caracteres)
030000004000005500007390000000001220300000095ENGATSUL DISTRIBUIDORA 00510....aqui teria espaços(100caracteres)
020000005X09/03/2012Carlos....aqui teria espaços(99caracteres)
030000006000005500006760000000000206040000095MERITOR DO BRASIL SISTEMAS00510....aqui teria espaços(100caracteres)

Este e o leiaute do sistema, tenho que converte a planilha para txt conf. este leiaute

identificador - 2 caracteres
codigo sequencial - 7 caracteres
tipo - 1 caracter
data - 10 caracteres
nome usuário – 30 caracteres
espaço em branco – 99 caracteres

identificador - 2 caracteres
codigo sequencial - 7 caracteres
conta 1 - 7 caracteres
conta 2 - 7 caracteres
valor 2 - 15 caracteres
conta3 - 7 caracteres
complemento - 512 caracteres
historico- 5 caracteres
espaço em Branco – 100 caracteres

Consegui esse codigo, consigo importar algumas informaçoes, mais nao consigo complementa conforme eu quero, por no conhecer VBA em ACCESS, se alguem puder me ajudar ou passar onde posso encontrar sobre apostila de ACCESS e VBA agradeço.

Código:

Sub ExportarTXT()
    Dim v1 As String
    Dim v2 As String
    Dim Tbl As Recordset
    Dim Arquivo As String
 
    Set Tbl = CurrentDb.OpenRecordset("Tabela")
    Arquivo = "C:\Temp\TesteAccess.txt"
    Open Arquivo For Output As #1
    Do While Not Tbl.EOF
        v1 = Tbl!conta1
        v2 = Tbl!conta2
        Print #1, v1 & " " & v2
        Tbl.MoveNext
    Loop
    Tbl.Close
    Set Tbl = Nothing
    Close
End Sub

[b]

Bom dia, vaggner
Não entendi a sua dúvida

Essa linha de codigo que postei é um resumo do que preciso fazer com uma tabela.
Preciso que a tabela seja convertida para um arquivo txt e assim vou importa para um programa que tenho, esse programa importa txt conf. um leiaute, esse leiaute tem que ter seus campos com caracteres preenchidos por espaços e outros por zeros.
Assima postei a tabela que tenho depois ela convertida no seu formato para importa para meu programa e mais abaixo postei o leiaute do meu sistema.

Essa linha de codigo preciso que seja complementada para importa conf. o leiaute q postei. Por nao conhecer bem o VBA do ACCESS nao consigo complementa com os codigos.

Entao preciso de uma ajuda no codigo para gerar conf. txt.

Se alguem conhecer onde posso conseguir tambem informaços sobre VBA de ACCESS agradeço a ajuda.

vagner
Não entendo a sua questão.
1 - O que tem?
2 - O que pretende?

Um exemplo:
vc tem uma tabela em ACCESS e gostaria de exportar para um arquivo txt usando um modulo VBA. Qual seriam os codigos que teria que escrever em VBA para exportar. Lembrando que temos no menu dados externos a opçao para exportar para txt, mais nao quero usar essa opçao.

Conseguindo exportar para txt, entraria complementos nesta linha, imagina que seu campo1 vc tem esse numero 124, mais se vc importa para txt ele vai neste modelo 124, nao quero assim, quero q ele tenha 5 caractes, mais o restante que falta teria q ser preenchido por zeros, ficando assim qndo levo para txt 00124, assim faria para outros campos tambem, nao exportar o que tenho lançado, quero leva para txt com uma quantidade de caracteres que eu determinar.

O codigo que postei consigo levar para txt, mais nao sei complementar ele para que o meu campo1 fique com 10 caracteres, meu campo2 fique com 7 caracteres. Ele leva o que esta na minha tabela digitado, quero que leve o que esta digitado e complete com zeros pelo que determinei para o campos qntos caracteres vao ter.

se precisar posto um codigo em Excel que consigo fazer isso, mais faço todo meu trabalho em ACCESS e depois exporto para excel e la dentro gero o txt conf. eu quero.

Bom dia Vagner,

Só uma idéia:

Na tabela dá para você deixar seus campos com o formato que você quer e na exportação você tem a opção de levar também o formato do campo.
Se na tabela atual você não tem os formatos dos campos definidos, talvez com uma consulta (ou por vba mesmo) você consiga formatar.


Nivaldo.

Nivaldo, o codigo em VBA que exportar para txt tenho e esta postando no topico, mais apenas levo para txt.
Quero complementar esse codigo, que o campo1 vá com 10 caracteres, o campo2 com 7caractes.

Lembrando que tenho um numero qualquer no meu campo1 e campo2. Se nao meu campo1 tenho um nº 54 qndo exporta para txt ele leve o numero 54 e complemente o restante com zeros, ficando assim 0000000054, o campo2 teria outro numero qualquer, exemplo: 458 ficaria assim depois de exportar para txt 0000458.
Se vc verificar o que tenho lançandos nos meus campos e o 54 e 458, mais qndo gero um comando vba e adicionar o restante de caracteres em zeros.

Boa tarde, vaggner
Para formatar 54 em 0000000054, utilize Format("54", "0000000000")

E um campo que tenho que ter 512 caracteres como faço, vou ter que preencher com varios zeros ou tem outra forma de fazer por VBA ou SQL?

Boa tarde, vaggner
A função Format que lhe indiquei é nativa do Access
Existe outra função que responde à última pergunta: String
Já procurou na ajuda do Access todas as funções, para resolver o que precisa agora e aumentar o seu conhecimento?

ja consegui desenvolver a linha, obrigado pela ajuda.