[Resolvido]Ajuda com exportação para excel

Boa noite


Estive a ver tópicos relacionados com a minha dificuldade, mas não consigo encontrar nenhum.
O mais parecido foi este do mestre JPaulo cujos ensinamentos me tem ajudado imenso:

http://maximoaccess.forumeiros.com/t1652-exporta-para-excel-e-cria-uma-folha-por-estado


Eu tenho numa base de dados varias consultas. A minha duvida e dificuldade prende se com querer expor ta las todas e junta las num único livro de excel, composto em cada pagina por cada uma destas....


Ideias? Ajuda..???

Bom dia,
Movi a sua dúvida para esta sala
A sala de repositório serve para colocar exemplos de demonstração, não para tirar dúvidas.

Obrigado pela mudança de sala.

Resoluções???Propostas??

Bom dia
Porque não faz uma só consulta?
Pina

Ola Sergio;

O meu exemplo faz isso mesmo que pretende, tudo num unico livro, separado por cada folha.

O que na realidade pretende ?

Boa tarde JPaulo.

Desde já dou os meus parabéns pela prestação no site, que se tem revelado cada mais uma ótima ferramenta.

Em relação ao meu caso e ao exemplo que disponibilizou:

O JPaulo tem a fazer a consulta (Uma só) com base numa só tabela, que origina os diferentes separadores com base no campo "Estado".

Eu tenho 4 consultas, baseadas em diferentes tabelas. o que pretendo, é, através de um único botao no formulário, fazer a exportação destas de uma vez só para um único livro de excel composto, nos respetivos separadores, pelos dados de cada consulta.....

Acha que será possível?

Em relação ao que o colega Pina disse, com base em outras tabelas, visando a união de vários dados de forma a criar um único workbook com um único separador, criei uma consulta UNION que serve esse propósito, mas para esta situação, precisava que fossem diferenciadas os separadores por cada consulta... tipo o que está neste exemplo, com a diferença de ser exportar as consultas para um único workbook.

http://maximoaccess.forumeiros.com/t4276-resolvido-importar-varios-sheets-de-varias-planilhas-excel-para-uma-so-tabela-no-ms-access#160526

Obrigado, mais uma vez, pela inestimável ajuda!!

Ninguém tem uma ideia para ajudar a fazer isto??

Olá Sergio desculpe a demora;

Veja o simples;

http://dl.dropboxusercontent.com/u/771097/ExportaParaExcel_MultiConsulta.zip

Olá JPaulo


Não tem de pedir desculpa!!

É mesmo isto que precisava!
Só preciso colocar uma questão: Por defeito, tem de existir um documento em excel no local determinado no VBA C:\teste.xls....
Como adaptar para a rotina criar o documento em excel, na mesma path da base de dados, sem que este exista??

Mais uma vez, obrigado!!

Olá;

Novamente simples;

Teste e retorne por favor;

Código:

Private Sub cmdExporta_Click()
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="qryExporta_I", fileName:=CurrentProject.Path & "\" & "teste" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="qryExporta_II", fileName:=CurrentProject.Path & "\" & "teste" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="qryExporta_III", fileName:=CurrentProject.Path & "\" & "teste" & ".xlsx")

xlApp.Visible = True

xlApp.Workbooks.Open CurrentProject.Path & "\" & "teste" & ".xlsx", True, False
Debug.Print xlApp.Version
Set xlApp = Nothing
End Sub

Boas JPaulo!!|


Funcionou perfeitamente.
O meu muito obrigado!!

Abraço!!

Obrigado pelo retorno o forum agradece.