[Resolvido]Gostaria de uma orientação passo a passo de como eu posso exportar 4 consultas e dividi-las nas suas respectivas guias em um único arquivo de Excel

Olá amigos do fórum...

Estou querendo fazer algo que não sei por onde começa tenho uma boa noção de fazer consultas no Access 2010.

Quem puder ajudar,
Gostaria de uma orientação passo a passo de como eu posso exportar 4 consultas e dividi-las nas suas respectivas guias plan1,plan2,plan3 e plan4 em um único arquivo de Excel.

Agradeço desde já!!!

Ola amigo



Me desculpe! Mas não consegui entender o que vc deseja fazer.

Explique melhor para ver se temos condições de ajudar.

Aguardo

Bom dia,

Rs..rs...rs pronto vamos lá eu tenho quatro consultas prontas, e tenho que exportar para Excel todo mês.

Exemplo: Cons_Acompanha_Aih_Apres_e_Pg – Dou um click com botão direito do mouse e exporto para Excel tenho que fazer isso com as demais consultas, há alguma maneira de criar um comando em que eu possa exportar as quatro consultas em formato Excel em apenas um único arquivo e separado pelas guias do Excel exemplo a Cons_Acompanha_Aih_Apres_e_Pg na Plan1 e as demais. Segue print em anexo

Obrigado!!!

Veja se ajuda:

https://www.maximoaccess.com/t15939-resolvidoexportar-consulta-do-access-para-o-excel-e-perguntar-onde-salvar-o-arquivo

Boa tarde!

Como se aplica esses códigos?

Passo a posso sou iniciante em codificar no vb do access?

Obrigado pela anteção.

O procedimento de exportacao sera rotineiro ou somente desta vez. Posta seu bd, assim a ajuda ser mais eficaz.

Ola;

Rafael, se você quiser testar num novo botão, faça o teste e veja o simples;

Nota:
Não altere nada, para você ver o exemplo a criar num excel novo de nome teste.xlsx, as 4 consultas em 4 sheets diferentes.

Código:

Private Sub SeuBotão_Click()
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acompanha_Aih_Apres_e_Pg", FileName:=CurrentProject.Path & "\" & "teste" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acompanha_Aihs_Rejeitadas", FileName:=CurrentProject.Path & "\" & "teste" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acompanha_Aihs_Rejeitadas_Capacidade", FileName:=CurrentProject.Path & "\" & "teste" & ".xlsx")
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acompanha_Aihs_Rejeitadas_Resumo", 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

Bom dia!

A todos que ajudam muito obrigado deu certo em especial a JPaulo.

Agora vem outro detalhe seu eu quiser direcionar para um caminho específico exemplo D:\Relatórios em vez de salvar na desktop.

Grato,

Rafael, vc fez os testes?

Bom pelo que vi o codigo do JPaulo realiza a exportacao e abre o arquivo em excel o que tambem lhe da a oportunidade de alem de conferir as informações decidir onde deseja salvar atraves do menu do excel.

Ola;

É só você trocar o FileName:=CurrentProject.Path por FileName:="D:\Relatórios"

Obrigado mais uma vez!!!