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


4 participantes

    [Resolvido]Exportar dados filtrados em form para excel

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 12/3/2012, 23:27

    Boa Noite

    Estou usando a seguinte função em um botão para exportar um subformulario (folha de dados) para o excel:

    DoCmd.OutputTo acForm, "subform01", "MicrosoftExcel(*.xls)", "", True, ""

    Até ai tudo bem......

    Mas utilizo um subFormulario "subform01" como folha de dados dentro de um formulario chamado "form01"
    Eu aplico filtros (padrão do access) nas colunas deste subformulario, mas quando utilizo a função acima para exportar, ele entregua ao excel todas as informações do subform, independente do filtro que eu utilizei.

    Como posso exportar com os filtros utilizando a função acima ou....
    alguem tem outra dica????
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 12/3/2012, 23:46

    Uma forma eficiente de exportar os dados pode ser criando um objeto do tipo Excel e fazer um loop na tabela para exportar os dados para a planilha:

    Código:
    Dim rs As Recordset

    Set rs = DBEngine.Workspaces(0).OpenDatabase(DBPath & "\DataBase.accdb", False, False, "MS Access;PWD=Senha").OpenRecordset("SELECT * FROM tblPedidos WHERE Código like '" & Me.NumPedido & "'")

    Dim EPlan As Object
     
        Set EPlan = CreateObject("Excel.Application")

            EPlan.workbooks.Open DBPath & "Relatórios\Arquivos auxiliares\Dry Ice Label.xls"
            EPlan.Visible = False
            EPlan.Worksheets("Plan1").Activate
    '============================================================================================================
            EPlan.ActiveSheet.Range("A8").Select
            EPlan.ActiveCell.Value = StrConv(rs!NomeCliente, 1)
           
            EPlan.ActiveSheet.Range("A9").Select
            EPlan.ActiveCell.Value = StrConv(rs!Endereço, 1) '& " " & rs!Número
           
            EPlan.ActiveSheet.Range("A10").Select
            EPlan.ActiveCell.Value = StrConv(rs!Cidade, 1) '& " " & rs!Estado
    '============================================================================================================
            EPlan.ActiveWorkbook.SaveAs DBPath & "Relatórios\" & rs!NExport & "\" & "DryIceLabelExcel.xls"
            EPlan.Application.Quit

        rs.Close
        Set rs = Nothing

        Set EPlan = Nothing
    Precisa marcar a referência "Microsoft Excel Library xx.0", sendo xx a versão do Office presente: 11.0 para o Office 2003, 12.0 para o Office 2007 e 14.0 para o Office 2010.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 13/3/2012, 00:20

    Ola Criquio

    Está na lida tambem....rssss

    pergunto.....essa forma ira exportar informações filtradas
    Pelo que entendi irá exportar os dados da tabela,na sua integra.... porem sem filtros...

    É isso???
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 13/3/2012, 00:25

    No exemplo acima, está filtrando pelo código que está em um campo do formulário, mas você pode incluir mais filtros, fazer um loop dentro de um segundo Recordset que filtre de acordo o filtro do primeiro, etc. São muitas possibilidades.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 13/3/2012, 01:52

    Não Consegui....

    Desculpe meu abuso Criquio

    mas preciso de ajuda nesse seu código....

    Os campos que estou flitrando simultaneamente são:

    NomeCliente; IdadeCliente; CidadeCliente; UFCliente

    buscando da tabela: tblcadCliente

    ( uso um formulario e subform em folha de dados para tal filtro....)

    Veja o que podes fazer por mim com essas informações....

    Até....e Boa noite


    Outra dúvida....não utiliza senha no bd.....deu esse probleminha tambem...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 13/3/2012, 12:51

    Você quer filtrar uma lista de subregistros de um mesmo cliente ou é uma lista com vários clientes?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 13/3/2012, 19:30

    Vários Cliente:

    Exemplo.....

    Quero filtrar todos os clientes "Marcelo" que tenham "20 anos", e que são de "São Paulo"

    veja que neste exemplo estou filtrando os campos:
    NomeCliente; IdadeCliente; UFCliente.........

    Esta filtragem deverá ser exportada para o excel......

    Do jeito que tenho programado, mesmo filtrado ele move todos os dados da tabela.....

    at.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 13/3/2012, 19:35

    E como você está filtrando? Poste a função completa para vermos melhor.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty veja o exemplo

    Mensagem  MarceloSilva 13/3/2012, 20:34

    estou enviando um exemplo para vc ver

    teste o botão exportar e verá que envia o subform sem o filtro para o excel.

    faça os testes do filtro.....

    Anexos
    [Resolvido]Exportar dados filtrados em form para excel Attachmentbase.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 104 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 13/3/2012, 20:44

    Esse exemplo não está usando as dicas que eu passei acima. Alem disso, não existe filtro nem no formulário e nem no subformulário e nem campos para inserir parâmetros de filtro. Tente montar o sistema conforme as dicas. Surgindo dúvidas, veremos o que fazer.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 14/3/2012, 12:36

    Acho que vc não entendeu a logica

    O filtro que pretendo usar e do próprio subfom (de dada coluna) filtro padrão de folha de dados.

    O codigo pra exportar leva todas as colunas para o excel, porem não com filtro selecionado.


    at.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 14/3/2012, 12:54

    Talvez usando Recordset.Clone consigas o que pretende. O tempo está meio curto para eu preparar algo, mas na ajuda do vba você consegue dicas e aqui no forum tambem tem tópicos que abordam o tema.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 16/3/2012, 13:17

    Consegui resolver criquio

    segui sua sugestão.....

    Obrigado....
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 16/3/2012, 13:45

    Ótimo! Grato pelo retorno.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    adm.nneto
    adm.nneto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 28/11/2012

    [Resolvido]Exportar dados filtrados em form para excel Empty Exportar dados filtrados em form para excel

    Mensagem  adm.nneto 4/12/2012, 11:12

    Marcelo Silva, teria como você compartilhar comigo o código que usou para exporta os dados filtrados para o execl? Estou tentando fazer a mesma coisa, mas ainda me perco na composição dos códigos.
    Grato.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  criquio 4/12/2012, 11:26

    Nelson Neto, seja bem vindo ao fórum!

    Você pode utilizar o RecordsetClone para exportar os dados filtrados no formulário:

    Código:
    Dim rs As Recordset
    Set rs = Me.RecordsetClone

    Do While Not rs.EOF
        Exporta os dados
        rs.MoveNext
    Loop

    Set rs = Nothing
    Veja se consegue adaptar...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    adm.nneto
    adm.nneto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 28/11/2012

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  adm.nneto 4/12/2012, 11:54

    Eu estava usando a mesma logica postada no inicio do post ( DoCmd.OutputTo acForm, "subform01", "MicrosoftExcel(*.xls)", "", True, "" ). Agora substitui por esta que você me indicou, mas fiz alguma coisa errada, veja como ficou aqui no meu projeto:

    Dim rs As Recordset
    Set rs = Me.RecordsetClone

    Do While Not rs.EOF
    DoCmd.OutputTo acForm, "SubFormConsultaCadastroMaterial", "MicrosoftExcel(*.Xls)", "", True, ""
    rs.MoveNext
    Loop

    Set rs = Nothing

    End Sub



    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  MarceloSilva 5/12/2012, 11:19

    adm.nneto

    Eu usei a função em formulário folha de dados.
    Criei um botão na Ribbon e coloquei a função ao clicar do botão.

    DoCmd.OutputTo acForm, "meufrm", "MicrosoftExcel(*.xlsx)", "", True, ""

    at.
    adm.nneto
    adm.nneto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 28/11/2012

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  adm.nneto 5/12/2012, 11:59

    Marcelo, queria saber como vc fez para aplicar a função recordset.clone, onde exportaria somente os itens filtrados. poderia diponibilizar a função pra mim.

    grato.
    adm.nneto
    adm.nneto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 28/11/2012

    [Resolvido]Exportar dados filtrados em form para excel Empty Exportar dados filtrados em form para excel

    Mensagem  adm.nneto 24/12/2012, 15:42

    Marcelo Silva, você poderia me ajudar com essa resolução, até hoje não consegui resolver o problema da exportação somente dos itens filtrados na folha de dados. abs.
    Avelino João
    Avelino João
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 316
    Registrado : 10/03/2012

    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  Avelino João 24/12/2012, 16:43

    Boa Tarde eu uso dessa forma criar um macro e defini exportar consulta que pertende exportar, cria um formulário com dois campo data inicial e data final adiciona um botão e adiciona esse codigo no botão.

    Private Sub btExportacao_Click()

    Dim stDocName As String
    Dim strCondicao As String

    stDocName = "Venda"'nome da macro
    DoCmd.RunMacro stDocName

    strCondicao = "[DatVenda] >= [Forms]![frmQuest]![DataInicial] " _
    & "and [DatVenda] <= [Forms]![frmQuest]![DataFinal] "
    DoCmd.RunMacro stDocName, acViewPreview, "Venda_Export"'nome da consulta


    Exit_btExportacao_Click:
    Exit Sub

    Err_btExportacao_Click:
    MSG.corpo = "Não encontrei registos..."
    MSG.Titulo = "Aviso"
    MSG.Imagem = 0
    MSG.som = 0
    MSG.fCarregaMsg
    End Sub


    .................................................................................
    Proaccess - Angola

    Conteúdo patrocinado


    [Resolvido]Exportar dados filtrados em form para excel Empty Re: [Resolvido]Exportar dados filtrados em form para excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2024, 17:19