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

    [Resolvido]Ajuda com exportação para excel

    Compartilhe

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    [Resolvido]Ajuda com exportação para excel

    Mensagem  serbarbosaportugal em Qua 04 Fev 2015, 23:58

    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:

    [Você precisa estar registrado e conectado para ver este link.]


    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..???
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  Alexandre Neves em Qui 05 Fev 2015, 10:52

    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.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  serbarbosaportugal em Qui 05 Fev 2015, 12:33

    Obrigado pela mudança de sala.

    Resoluções???Propostas??

    Pina
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 349
    Registrado : 19/02/2011

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  Pina em Qui 05 Fev 2015, 12:53

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  JPaulo em Qui 05 Fev 2015, 14:57

    Ola Sergio;

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

    O que na realidade pretende ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  serbarbosaportugal em Qui 05 Fev 2015, 17:06

    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.

    [Você precisa estar registrado e conectado para ver este link.]

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

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  serbarbosaportugal em Qua 11 Fev 2015, 18:25

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  JPaulo em Sex 13 Fev 2015, 12:17

    Olá Sergio desculpe a demora;

    Veja o simples;

    [Você precisa estar registrado e conectado para ver este link.]





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  serbarbosaportugal em Sex 13 Fev 2015, 22:15

    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!!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  JPaulo em Seg 16 Fev 2015, 09:25

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  serbarbosaportugal em Seg 16 Fev 2015, 22:16

    Boas JPaulo!!|


    Funcionou perfeitamente.
    O meu muito obrigado!!

    Abraço!!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ajuda com exportação para excel

    Mensagem  JPaulo em Qua 18 Fev 2015, 10:05

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 21 Nov 2017, 12:11