Exportar resultado de consulta para Excel agrupando por aba.

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.

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?

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.

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

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.

Fiz ai, usei a sua consulta e o seus parametros como o nome