[Resolvido]Exportar do Access para o Excel

Pessoal,

Sou novato no VBA e preciso exportar dados de uma consulta para o Excel pois alguns dados ainda preciso do Excel, mas tentei fazer algo, criei a consulta e criei um botão e no procedimento ao clicar tentei algo assim.

Private Sub Comando37_Click()
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\Pasta2.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("plan1").Activate
strSQL = "SELECT*FROM Produtividade AP Consulta Geral;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
Set xls = Nothing
End Sub

Mas não funcional e da um erro 3131 de Sintaxi no FROM.

Se alguem puder me ajudar.

Agradeço muito

Tente colocar o asterisco entre espaços.

Muito obrigado pela ajuda Criquio,

Mas não deu certo o problema e neste comando ele da o seguinte erro:
Erro no tempo de execução 3131
erro de sintaxe na cláusula FROm

Peço ajuda.

strSQL = "SELECT*FROM Produtividade AP Consulta Geral;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Só para lembrar estou enviando dados de uma consulta

posso estar sendo simplista mas ai vai

exporta sem destino

DoCmd.OutputTo acQuery, "nome consulta", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0

exporta com destino

DoCmd.OutputTo acQuery, "nome consulta", "MicrosoftExcelBiff8(*.xls)", "C:\TEMP\nome_consulta.xls", False, "", 0

Continua sem espaços antes e depois do asterisco. O que é Produtividade AP Consulta Geral? É tudo o nome da consulta? Se for, aconselho a mudar esse nome retirando os espaços. Algo como ProdutividadeAPConsultaGeral. Veja nesse link dicas de nomeação de controles e elementos no Access. Caso insista em deixar assim (já disse, aconselho a mudar), deve colocar o nome entre colchetes:

strSQL = "SELECT * FROM [Produtividade AP Consulta Geral]"

Com a licença do Mestre Criquio...

Se preferir pode utilizar este código, muito simples, porém muito funcional.
Obs. Exporta para o excel utilizando o próprio utilitário da Microsoft.

Código:

DoCmd.OpenQuery "suaconsulta", acViewNormal, acEdit
DoCmd.RunCommand (acCmdExportExcel)
DoCmd.Close acQuery, "suaconsulta"

Abraços,

Pessoal Com a ajuda de vcs consegui chegar além do meus objetivos usei praticamente todas as respostas ainda consegui criar o código que segue:

Com esse código eu consigo exportar dados de duas consultas ou tabelas para um determinado arquivo Excel em abas plan1 e plan2 e manipular os gráficos em uma 3° aba (plan3), clicando em um botão do access.

Se servir para alguém está a disposição

Obrigado pela ajuda meus caros.

Private Sub Comando40_Click()
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\NOME DO AQUIVO EXCEL.xlsx"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("plan1")ABA DO EXCEL QUE QUER COLAR AS INFORMAÇÕES.Activate
strSQL = "SELECT * FROM NOME DA CONSULTA OU TABELA;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A2")CÉLULA QUE QUER QUE COMECE AS INFORMAÇÕES.Select
xls.ActiveCell.CopyFromRecordset rst

xls.Worksheets("plan2")2ª ABA DO EXCEL QUE QUER COLAR AS INFORMAÇÕES.Activate
strSQL = "SELECT * FROM NOME DA CONSULTA OU TABELA;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A2")CÉLULA QUE QUER QUE COMECE AS INFORMAÇÕES.Select
xls.ActiveCell.CopyFromRecordset rst
Set xls = Nothing
End Sub