MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Exportar resultado de consulta para Excel agrupando por aba.

    Compartilhe

    frank.williams
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 28/03/2018

    Exportar resultado de consulta para Excel agrupando por aba.

    Mensagem  frank.williams em 26/9/2018, 15:50

    Bom dia,

    tenho um banco de dados e estou precisando de exportar o resultado da consulta para o Excel de uma forma que agrupe em abas.
    Estou encaminhando um banco com informações baseadas de como estou precisando, mas não sei como fazer exportar agrupado em abas.


    Vi esse código e é exatamente como estou precisando, mas não consegui utilizar o mesmo para olhar minha consulta

    Function exceldados(nome)
    On Error GoTo yy
    Dim rst As DAO.Recordset, con As QueryDef
    Set rst = CurrentDb.OpenRecordset("SELECT Tdados.idade FROM Tdados GROUP BY Tdados.idade " & _
    "HAVING ((Tdados.idade) Is Not Null) Order By (Tdados.idade)")
    Dim xlTmp As Excel.Application, pat
    pat = Application.CurrentProject.Path & "\" & nome & ".xls"
    On Error GoTo t1
    Kill pat
    t1:
    Do While Not rst.EOF
       Set con = CurrentDb.CreateQueryDef(rst(0), "select * from tdados where tdados.idade=" & rst(0) & " ORDER BY tdados.nome")
       DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, rst(0), pat
       CurrentDb.Execute "DROP table " & rst(0)
       rst.MoveNext
       Loop
       rst.Close
       CurrentDb.Close
       Set rst = Nothing

    Set xlTmp = New Excel.Application
    xlTmp.Workbooks.Open pat
    xlTmp.Visible = True
    Exit Function
    yy: MsgBox "Verifique se a planilha Excel esta aberta e fechea. Verifique tambem se tem consultas com o nome das áreas e delete! Ou outro Erro!"
    End Function


    Desde já agradeço a atenção.
    Anexos
    exemploteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 2 vez(es)

    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Exportar resultado de consulta para Excel agrupando por aba.

    Mensagem  Clebergyn em 27/9/2018, 03:34

    Olá frank.williams

    Primeiro para agrupar em abas temos que saber que no access a exportação para o excel ele transforma o nome da consulta em aba,
    cada aba é uma consulta ou SQL transformado em consulta...

    Preciso que você explique detalhadamenteo o que voce quer que tenha em cada aba.
    Cada aba seria um filtro isso?
    Sua base de dados tem nome, idade, cidade, e voce quer que cada aba tenha que tipo de filtro?



    frank.williams
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 28/03/2018

    Access exportar para excel em abas

    Mensagem  frank.williams em 27/9/2018, 12:41

    Bom dia

    O que estou precisando basicamente seria igual este exemplo em anexo.
    Realizar uma consulta buscando um intervalo de idades.
    Supondo que tenha vários tipos de idade e na consulta eu quero as idades igual a 30, 25, 27 e ao exportar trazer agrupado em abas por idade.

    Creio que com o exemplo terá como entender melhor.
    Anexos
    Exemplo de agrupamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 3 vez(es)

    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Exportar resultado de consulta para Excel agrupando por aba.

    Mensagem  Clebergyn em 27/9/2018, 23:20

    Segue ai o exemplo

    no primeiro botão ele gera com o filtro e insere a guia da idade individual na planilha

    no segundo ele coloca todas as idades na planilha
    Anexos
    exemploteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 4 vez(es)

    frank.williams
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 28/03/2018

    Access exportar para excel em abas

    Mensagem  frank.williams em 28/9/2018, 13:08

    Bom dia,

    O teste conforme mandou é dessa forma que estou precisando, o único problema é que minha consulta tem alguns critérios e ela fica muito longa. No segundo botão gerou os dados na planilha mas vi que tirou a concatenação que era entre o nome e o sobre nobre, na minha consulta tem a concatenação, e também estou utilizando IIF.

    Acho o seu código muito bom e muito rápido, o problema é se funciona para o que estou precisando.
    Vou ver se consigo adaptar. e dou um retorno.

    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Exportar resultado de consulta para Excel agrupando por aba.

    Mensagem  Clebergyn em 28/9/2018, 15:20

    Fiz ai, usei a sua consulta e o seus parametros como o nome
    Anexos
    exemploteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (81 Kb) Baixado 4 vez(es)

      Data/hora atual: 16/12/2018, 15:47