[Resolvido]Exportar Consulta com Criterio para Excel

Boa Noite Pessoal,

Já estou a 3 dias pesquisando no fórum e testando vários códigos que encontrei aqui, porém sem retorno satisfatório.

O que estou querendo fazer parece simples, mas com minhas limitações não consigo alcançar meu objetivo, quero exportar uma consulta que possui um critério para o Excel, em células especificas.

São poucos dados que serão exportados, já tenho uma planilha do Excel no formato e configurações que desejo, então quero que o access jogue os dados da consulta nesse arquivo do Excel, nas células especificas.

Se alguém puder me ajudar eu agradeceria.

Obrigado.

Bom dia pengo
Envio um exemplo do João Paulo

Coloque uma folha de Excel junto do banco, altere para os nomes corretos o código abaixo e teste;

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Sheet1").Activate
strSQL = "SELECT * FROM teste;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub

Pina

Bom dia Pina,

Obrigado pela ajuda, mas já havia testado esse código do colega João Paulo, e o mesmo não está funcionando.

Ele aparece a seguinte mensagem "Erro de tempo de execução '3061': Parâmetros insuficientes. Eram esperados 1."

Veja se estou fazendo correto.
Tenho uma tabelas com os dados, sendo que um campo contém somente uma letra do alfabeto. ex. A;
Criei uma consulta, com um critério para o operador digitar uma letra do alfabeto e aparecer os registros correspondentes aquela letra. (Minha consulta está funcionando perfeitamente.)
Criei um formulário aonde adicionei um botão, e no evento ao clicar ele executa esse código que você me passou.
Então é apresentado esse erro.

Ps. Se eu substituo o nome da consulta pelo nome de uma tabela no relatório o código funciona perfeitamente.

Diante desse problema você poderia me ajuda?

Boas Pengo
Eu faço assim como neste ex:
tem é que ter olivri junto da base de dados
Pina

Não foi a base de dados

Olá Pina,

Realmente, ele funciona, mas com a Consulta sem nenhum critério.
Adicionei um critério nessa que você me enviou, e ocorre o mesmo erro que eu havia lhe relatado.

Segue a Base de Dados para você ver se o erro ocorre ai.

Muito Obrigado pela ajuda.
Abraço

Boas pengo
Realmente também me dá esse erro
Fiz umas alterações e dá agora
Tavez o João Paulo que é o autor consiga sem estas alterações
Teste agora com o botão um e depois o dois
Pina

Não foi a base de doas

Muito Obrigado Pina,

Pelo que entendi  na base de dados que você me enviou, ai clicar no primeiro botão, ele executa uma consulta exclusão para limpar a tabela 2, e grava os dados da Consulta1 na Tabela 2, e os dados dessa tabela 2 que vão para o Excel.

Então após entender ele, eu converti a Macro para VBA, e adicionei um código para aqueles avisos não aparecerem, e funcionou perfeitamente.

Nunca que eu conseguiria chegar a essa solução sem sua ajuda.

Muito obrigado mesmo.

Vou disponibilizar a Base da Dados aqui, para futuros colegas que tenham o mesmo problema.

Abraçoss

Boas pengo
Na minha versão  de Access não pede avisos só o nome que se quer e no seu modulo que acrescentou tenho alguns problemas.
O que é importante é se adapte a cada versão os dois exemplos.
Não se esqueça de dar como resolvido
Pina

Obrigado Pina.

Resolvido!!!!

Marcando como Resolvido!