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


3 participantes

    [Resolvido]Exportar Listbox para o Excel

    Brunoreiss
    Brunoreiss
    Brunoreiss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/03/2014
    • Mensagem nº1

    [Resolvido]Exportar Listbox para o Excel Empty [Resolvido]Exportar Listbox para o Excel

    Mensagem  Brunoreiss 17/8/2014, 05:49

    Pessoal,
    bom dia!

    Como posso exportar os dados da minha Listbox para uma planilha excel nova ? e o export tem que levar apenas os dados da Listbox que esta filtrado através de combos que tenho no formulário ?

    Muito Obrigado.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Exportar Listbox para o Excel Empty Re: [Resolvido]Exportar Listbox para o Excel

    Mensagem  Avelino Sampaio 17/8/2014, 11:53

    Olá!

    Uma das opções e gerar uma tabela temporária da consulta origem da sua listbox.  Algo assim:


    dim strSql$
    strSql = replace(me!CampoListBox.rowsource,,"from","INSERT tbltemp FROM")
    currentdb.excecute strsql


    O segundo passo é utilizar o comando docmd.TransferSpreadsheet para transferir os dados da tabela temporária.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Brunoreiss
    Brunoreiss
    Brunoreiss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/03/2014
    • Mensagem nº3

    [Resolvido]Exportar Listbox para o Excel Empty [Resolvido]Exportar Listbox para o Excel

    Mensagem  Brunoreiss 17/8/2014, 16:30

    Avelino,
    Muito obrigado por sua ajuda. Com a sua dica consegui adaptar o código de outra forma e ocorreu tudo certo.

    Segue o procedimento que executei caso alguém precise.
    Código:


    Dim Query As DAO.QueryDef
            Set Query = CurrentDb.QueryDefs("ExpListBox")
            
            Query.SQL = Me.Lista6.RowSource
            Query.Close
        
            DoCmd.TransferSpreadsheet acExport, , "ExpListBox", "testExport"

    Set Query = Nothing

    Criei uma consulta com os mesmos parâmetros que esta na lista, então quando eu filtro ela e mando exportar os dados vão certinho para o excel.



    Agora aproveitando se puder, no meu FORMULÁRIO eu filtro os meses, porém um a um. Como poderia filtrar se quisesse dois meses ao invés de apenas um ?

    E neste meu export ele não possui um caminho certo para salvar o documento. Existe a possibilidade dele salvar este documento na mesma pasta aonde se encontra a base access ?

    Obrigado.


    Última edição por Brunoreiss em 18/8/2014, 14:48, editado 1 vez(es)
    • Ir para o topo
    Brunoreiss
    Brunoreiss
    Brunoreiss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/03/2014
    • Mensagem nº4

    [Resolvido]Exportar Listbox para o Excel Empty Re: [Resolvido]Exportar Listbox para o Excel

    Mensagem  Brunoreiss 18/8/2014, 14:14

    Processo de export solucionado.
    • Ir para o topo
    next
    avatar
    next
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 13/11/2015
    • Mensagem nº5

    [Resolvido]Exportar Listbox para o Excel Empty Re: [Resolvido]Exportar Listbox para o Excel

    Mensagem  next 9/6/2016, 15:08

    BrunoReis, tem como vc explicar os campos que devem ser alterados para que eu possa adaptar ao meu caso? Sou novato e estou aprendendo ainda.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Exportar Listbox para o Excel Empty Re: [Resolvido]Exportar Listbox para o Excel

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 23/11/2024, 14:00