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]Acces com Excel

    Compartilhe

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Acces com Excel

    Mensagem  glaauco em 23/4/2018, 13:35

    Bom dia,

    no meu banco de dados eu tenho uma linha de codigo que exporta o relatório da consulta para um arquivo em excel:

    Código:
    DoCmd.OutputTo acQuery, "cons_modelo", "MicrosoftExcelBiff8(*.xls)", "C:\Users\cnsuser\Desktop\nem model.xls", False, "", 0

    porem ele sempre cria um arquivo novo.

    Gostaria de saber se tem como ele sempre exportar para um mesmo arquivo excel ja criado. Pode ser na mesma planilha ou em planilhas diferentes.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Acces com Excel

    Mensagem  FabioPaes em 23/4/2018, 14:59

    Amigo ficou algo mau explicado, pois esse código, quando já existe a tabela com o mesmo nome (nem model.xls) ele implemente substitui o arquivo pelos dados atuais. Ou seja, Permanece somente uma Planilha.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    Re: [Resolvido]Acces com Excel

    Mensagem  glaauco em 23/4/2018, 15:33

    sim, eu entendi o que voce quis dizer, exatamente por isto pedi a ajuda de voces.

    A minha intenção é deixar um botao com um comando em vba no excel, e este codigo sempre substitui o arquivo existente, portanto eu perderia esta programação do excel toda vez que gerasse um novo arquivo.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]Acces com Excel

    Mensagem  Cláudio Más em 25/4/2018, 04:38

    Talvez seja possível com DoCmd.TransferSpreadsheet, por exemplo:

    DoCmd.TransferSpreadsheet acExport, , "cons_modelo", "C:\Users\cnsuser\Desktop\nem model.xls", False, "Plan2"

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    Re: [Resolvido]Acces com Excel

    Mensagem  glaauco em 25/4/2018, 12:05

    Cláudio muito obrigado pela ajuda,
    seu código funcionou, porem se eu realizar outra consulta depois ele teria como subscrever este arquivo que esta no "Plan2" ou entao adicionar em outra planilha?
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]Acces com Excel

    Mensagem  Cláudio Más em 25/4/2018, 22:31

    Creio que sim, você testou?

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    Re: [Resolvido]Acces com Excel

    Mensagem  glaauco em 26/4/2018, 14:51

    sim eu testei, porem ele nao sobrepoem, ele apenas adiciona ao final da tabela ja existente.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]Acces com Excel

    Mensagem  Cláudio Más em 26/4/2018, 16:27

    Se o arquivo Excel (nem model.xls) ainda não existir, cria o mesmo inserindo os dados da cons_modelo na planilha "Plan2":

    DoCmd.TransferSpreadsheet acExport, , "cons_modelo", "C:\Users\cnsuser\Desktop\nem model.xls", False, "Plan2"

    -------------------

    Em seguida, adiciona a planilha Plan3 com os mesmos dados (e mantendo também a Plan2):

    DoCmd.TransferSpreadsheet acExport, , "cons_modelo", "C:\Users\cnsuser\Desktop\nem model.xls", False, "Plan3"

    ------------------

    Em seguida, substitui a Plan2 (mantendo a Plan3):

    DoCmd.TransferSpreadsheet acExport, , "cons_modelo", "C:\Users\cnsuser\Desktop\nem model.xls", False, "Plan2"

    ------------------

    Isso lhe atende?
    Caso contrário, o que quer dizer com "sobrepor"?

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    Re: [Resolvido]Acces com Excel

    Mensagem  glaauco em 3/5/2018, 11:53

    Bom dia Cláudio,
    este código atendeu ao que eu precisava:

    Código:
    DoCmd.TransferSpreadsheet acExport, , "cons_modelo", "C:\Users\cnsuser\Desktop\nem model.xls", False, "Plan3"

    Muito obrigado pela ajuda.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    Re: [Resolvido]Acces com Excel

    Mensagem  Cláudio Más em 3/5/2018, 13:28

    De nada.
    Bom dia.

      Data/hora atual: 21/11/2018, 02:35