[Resolvido]Acces com Excel

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.

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.

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.

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

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

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?

Creio que sim, você testou?

sim eu testei, porem ele nao sobrepoem, ele apenas adiciona ao final da tabela ja existente.

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"?

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.

De nada.
Bom dia.