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 lisBox para consulta temporaria e enviar para excel

    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Fabrícia Lima 18/6/2016, 14:46

    Bom dia!

    Estou com problemas para concluir o codigo abaixo, a qual desejo copiar dados da minha caixa de listagem para excel.

    Para isso criei abaixo de forma que capture os dados filtrados e transfira para uma outra consulta temporaria, o que no final irei transferir para o excel.
    Eu acho que o problema está na consulta que contem parametros de filtro por formulario:

    Entre [Formulários]![frmInsp01]![FiltroPartir] E [FiltroAte]


    Ou seja está gerando lista em branco.

    Código:

    Dim q As QueryDef
     Set q = CurrentDb.QueryDefs("ExportaListBox")    'Consulta com parametros de filtro"
     q.SQL = Me.list.RowSource                'List é minha cx_listagem
     q.Close
     Set q = Nothing
     DoCmd.TransferSpreadsheet acExport, , "ExportaListBox", "testExport"
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Avelino Sampaio 18/6/2016, 17:04

    Olá!

    mostre o que tem na Me.list.RowSource

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Fabrícia Lima 18/6/2016, 17:19

    A origem da lista vem da consulta ("FFalhas01") com parametros abaixo:

    1 - Campo FiltroPartir e FiltroAte = Data( Entre [Formulários]![frmInsp01]![FiltroPartir] E [FiltroAte])
    2 - Campo setor = Como [Formulários]![frmInsp01]![setor]
    3 - Campo FiltroFuncao = Como [Formulários]![frmInsp01]![FiltroFuncao]

    No formulário criei dois botões de ação :
    1 - Filtrar (Esse funciona perfeitamente de forma tradicional com parametros acima)
    2 - Exportar (Ele gera a consulta temporaria, mas sem dados algum)





    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Avelino Sampaio 18/6/2016, 17:30

    Fabricia,

    coloque o msgbox() conforme posição abaixo e cole aqui o que foi apresentado.

    ...
    Set q = CurrentDb.QueryDefs("ExportaListBox")    'Consulta com parametros de filtro"
    msgbox Me.list.RowSource
    q.SQL = Me.list.RowSource
    ...

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Fabrícia Lima 18/6/2016, 17:42

    Gerou a seguinte msg:

    SELECT FFalhas01.Data, FFalhas01.Equipamento, FFalhas01.Grupo, FFalhas01.Item, FFalhas01.Incoveniencia FROM FFalhas01;

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Avelino Sampaio 18/6/2016, 18:04

    ok, mais um teste.

    acrescente a parte em vermelho e me diga se a consulta aparece filtrada

    Dim q As QueryDef
    Set q = CurrentDb.QueryDefs("ExportaListBox") 'Consulta com parametros de filtro"
    q.SQL = Me.list.RowSource 'List é minha cx_listagem
    q.Close
    Set q = Nothing
    DoCmd.OpenQuery "ExportaListBox"
    ' DoCmd.TransferSpreadsheet acExport, , "ExportaListBox", "testExport"

    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Fabrícia Lima 18/6/2016, 18:17

    Não deu certo, continua dando o mesmo erro

    Segue anexo parte do meu projeto que contém este formulário.
    Favor dei uma analisada.
    Anexos
    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel AttachmentListBox exporta para Excel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (335 Kb) Baixado 13 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Avelino Sampaio 18/6/2016, 18:46

    Fabricia,

    dois errinhos:

    1) na consulta FFalhas01 vc tem a filtragem no campo data assim:

    Entre [Formulários]![frmInsp01].[FiltroPartir] E [FiltroAte]

    Troque para

    Entre [Formulários]![frmInsp01].[FiltroPartir] E [Formulários]![frmInsp01].[FiltroAte]

    2) O transferSpreadsheet tem o nome da consulta errado (ExportListBox).  Troque para ExportaListBox

    DoCmd.TransferSpreadsheet acExport, , "ExportaListBox", "testExport"

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Clebergyn 18/6/2016, 19:09

    faço assim e dá certo aqui

    Código:

    Dim p, x, rs
     
      rs = Me.Lista.RowSource
      x = Application.CurrentDb.CreateQueryDef("MinhaListaExcel", rs)
      p = "c:\MinhaListaExcel.xlsx"
      DoCmd.TransferSpreadsheet acExport, 10, "MinhaListaExcel", p
      Application.FollowHyperlink p
      DoCmd.DeleteObject acQuery, "MinhaListaExcel"

    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Fabrícia Lima 18/6/2016, 19:12

    Deu certo amigo Avelino.

    Agradeço seu tempo e esforço pra ajudar!

    Very Happy:D:D:D:D

    Conteúdo patrocinado


    [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel Empty Re: [Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:33