Gera arquivo em Excel

Public Sub Comandoxx_Click()
' nao deu certo
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha As String

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "SELECT * FROM C_BASE "

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = CurrentProject.Path & "\base.xls"

'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

MsgBox "Arquivo Gerado com sucesso"

End Sub

estou apanhando da condicao acima, pois nao consegui ..
Vi varios exemplos mas mesmo assim nao consegui
o que preciso de fato e com base em uma consulta ja existente exportar os dados para o excel
fico no aguardo da ajuda

Boa tarde brunobpr,

Cole o código abaixo e teste se funciona. No meu aqui funcionou normalmente.

Código:

Public Sub Comandoxx_Click()
' nao deu certo
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha As String

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "C_BASE "

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = CurrentProject.Path & "\base.xls"

'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

MsgBox "Arquivo Gerado com sucesso"

End Sub


Foi alterado somente a parte da consulta, de strConsulta = "SELECT * FROM C_BASE " para strConsulta = "C_BASE ".