MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Botão exportar txt

    avatar
    matheuscarmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2016

    Botão exportar txt Empty Botão exportar txt

    Mensagem  matheuscarmo 11/7/2016, 21:38

    Olá sou iniciante em access e precisava exportar os dados de uma tabela que criei para um arquivo em .csv ou .txt se não for possível.
    Eu até assisti alguns tutoriais mas não solveram o meu problema.
    Eu até consigo fazer o processo usando o assistente de exportação pra txt, aí eu só renomeio o arquivo pra .csv e configuro como eu quero.
    Mas eu queria deixar o processo mais simples, criando algum botão ou macro sei lá que eu apenas clicasse e ele gerasse o arquivo.

    Eu preciso que:
    - o delimitador de campo seja a vírugla (,)
    - o qualificador de texto seja as aspas (")
    - e o símbolo decimal seja arroba (@)
    o resultado final da linha teria que sair exatamente como os 3 registros de exemplo abaixo:

    "1",,"1","1",,,,,,,,,,,"1",,,,,,,,,,,,,,,,,"1","1",,,,,,,,,,,,"20000","4",,,,"AddHp(10)",,,,,,,,,,,,"cpsw01",,,"0"
    "2",,"1","2",,,,,,,,,,,"1",,,,,,,,,,,,,,,,,"1","1",,,,,,,,,,,,"40000","8",,,,"AddHp(20)",,,,,,,,,,,,"cpsw01",,,"0"
    "3",,"1","3",,,"1",,,,,,,,"1",,,,,,,,,,,,,,,,,"1","1",,,,,,,,,,,,"60000","12",,,,"AddHp(30)",,,,,,,,,,,,"cpsw01",,,"0"

    Isso é possível?

    Obrigado pela atenção!
    Em anexo um exemplo do meu banco

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 11/7/2016, 21:58

    Amigo, aqui no Forum tem Varios Exemplos! Mas lhe recomendo esse que montei para Exportar Vendas.

    https://www.maximoaccess.com/t26818-exportar-vendas-notas-fiscais-com-delimitador-para-txt

    Pegue como Base, mude o formato e o Delimitador, pois no Exemplo usei o | como delimitador.



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    matheuscarmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2016

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  matheuscarmo 12/7/2016, 02:22

    Parece ser pefeitamente o que eu preciso, mas estou totalmente perdido no meio desse monte de códigos Crying or Very sad
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 12/7/2016, 02:31

    Entao, poste seu Aplicativo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 12/7/2016, 02:43

    So um agravante no seu Caso, esse qualificador "" e complicado, pois ele é caracter especial... Eu desconheço como utilizar ele... Pode ser outro?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    matheuscarmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2016

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  matheuscarmo 12/7/2016, 14:11

    Oi Fabio, fico grato pelo suporte e atenção!
    Está no anexo o banco que preciso montar.
    É o seguinte, precisa ser as aspas duplas porque em algumas colunas vai haver vírgulas
    por exemplo:
    "Foi procurado, mas não foi encontrado",
    Dentro da coluna tem uma vírgula e o programa que vai rodar os arquivos só usa o aspas duplas pra delimitar nesse caso. :/
    Será que existe solução ou vou ter que fazer sempre manualmente a exportação?
    Anexos
    Botão exportar txt AttachmentEditor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 14 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 12/7/2016, 15:56

    Faltou so falar o que vc quer Exportar! rererererere



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 12/7/2016, 16:49

    https://www.dropbox.com/s/hc78le9ek6h96m2/Editor.zip?dl=0
    Aqui esta uma previa do que eu acho que vc quer exportar, nao esta completo... Basta vc editar o codigo e add os campos que precisa exportar...

    Como são muito ne... e nem sei se é essa tabela mesmo que quer exportar, deixei pra vc completar!


    Obs: Ao abrir com Excel o Arquivo exportado, ele OMITE a primeira aspa do primeiro Campo ". Mas ela está la... Basta abrir com o Notepad que vc a verá!

    Exemplo com alguns Campos:

    "1","","1","20000","AddHp(10)","cpsw01"
    "10","","7","180000","","cpsw01"
    "100","","13","15000","","ic_iu009"
    "10000","","10000","3000","","cpsw01"
    "10001","","10001","3000","","ic_buff_stun"
    "10002","","10002","10000","","cpsw01"



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    matheuscarmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2016

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  matheuscarmo 12/7/2016, 19:07

    Perfeito Fabio! Creio que foi resolvido!!! E perdão por não detalhar bem o que eu precisava! rsrsrs
    Agora é paciência pra por os campos, eu preciso de todos eles na verdade, não tem uma expressão que faça
    ele exportar todos os campos direto? Ou vou ter que colocar um por um?
    Eu tenho uma tabela aqui que são 125 campos! Shocked Shocked Shocked Shocked
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 12/7/2016, 19:55

    Laughing Laughing A relaxa, sao so 125 campos!


    rererererere


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    matheuscarmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2016

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  matheuscarmo 14/8/2016, 21:07

    Fala Fabião, depois de mais de um mês e tirando um pouco de tempo cada dia, consegui cadastrar todos os campos de todas as tabelas
    e formulários e elas estão exportando perfeitamente! Very Happy Very Happy Obrigado!

    Agora só tem mais um problema, eu preciso que o título da coluna seja exportado também! E até tentei cadastrar os títulos
    mas eles aparecem só no final da tabela, eles precisam estar no topo!

    Desde já agradeço brother!!!

    Feliz dia dos pais!!! rsrsrs Very Happy
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 14/8/2016, 22:40

    Amigo, para isto basta colocar a linha antes do Loop (Do While Not rs.EOF)



    Veja como ficou no exemplo postado por mim...

    Código:
    '------------------------------------------------------'
    'Criado por Fabio Paes em 12/07/2016   '
    'Para o Maximo access                             '
    '------------------------------------------------------'
    Dim strArquivo As String
    Dim DB As Database
    Dim rs As DAO.Recordset
    Dim F As Integer

    strArquivo = Application.CurrentProject.Path & "\Exportacao.CSV" 'Caminho e Nome do Arquivo
    Set DB = CurrentDb()
    F = DCount("ID", "Effect")
    Set rs = DB.OpenRecordset("SELECT * FROM effect")

    Open strArquivo For Output As #1 'Abre o arquivo para iniciar a escrita

    'CABEÇALHO COM OS NOMES DOS CAMPOS AQUI
    Print #1, "NOMECAMPO1" & "," & "NOMECAMPO2" & "," & "NOMECAMPO3" & "," & "NOMECAMPO255"

    Do While Not rs.EOF 'Inicia o Primeiro Loop para gravar os dados do primeiro registro da tabela tbVendas
    'Coloque aqui os campo na ordem da exportação. """" para Imprimir a aspa "noiniciocampo e repita no final tambem
    Print #1, """" & rs("ID") & """" & "," & """" & rs("Name") & """" & "," & """" & rs("m_Type") & """" & "," & """" & rs("LoadingTime") & """" & "," & """" & rs("LoadingSelf") & """" & "," & """" & rs("icon") & """"

    rs.MoveNext
    Loop

    'Fecha as conexoes
    rs.Close
    DB.Close
    Close #1
        
    MsgBox "Foram Exportados " & F & " Registros para o Aquivo: " & vbNewLine & strArquivo, vbInformation, ""


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    matheuscarmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2016

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  matheuscarmo 15/8/2016, 02:51

    Perfeito Fábio!
    Agora sim 100% resolvido, é normal em determinadas situações o código ter que ser gigante assim?
    Ou com o tempo a gente vai aprendendo formas de encurtar o código?

    Abraço!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Botão exportar txt Empty Re: Botão exportar txt

    Mensagem  FabioPaes 15/8/2016, 12:35

    Nesse caso especifico, nao ha como encurtar... infelizmente... Mas nesse caso nao ficou grande... ficou muito repetitivo devido a qndt de campos, mas as instruçoes em si ficaram pequenas...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 5/12/2022, 00:51