Exportar para o Excell

Bom noite `Pessoal,

Alguem pode me dizer porque o código abaixo nao está funcionando.
Na verdade quero exportar para o excel uma consulta temporaria, sem na verdade criar uma consulta o bd.

Esse é o código.

       Dim db As Database, RS As Recordset
       Dim strSQL As String
       Set db = CurrentDb
           strSQL = "SELECT * FROM TBL_REGISTROS"
           Set RS = db.OpenRecordset(strSQL)
                   DoCmd.OutputTo acOutputQuery, "strSQL", acFormatXLSX, , True
                   MsgBox "Consulta Exportada com Sucesso! ", vbInformation, "SGQ"
                   RS.Close
                   db.Close


Att,  
Valdenir

Boa noite
DoCmd.OutputTo acOutputQuery, "NomeDaConsulta", acFormatXLSX, , True

Alexandre,

Esse código que vc colocou "DoCmd.OutputTo acOutputQuery, "NomeDaConsulta", acFormatXLSX, , True" é utilizado quando eu já tenho a consulta pronta e salva.

Porém quero saber quando eu não quero criar a consulta no BD e sim somente temporariamente para exportar para o excel.

Att,

Valdenir

Boa tarde,

o código só trabalha com consultas existentes. Crie uma tabela com dados pretendidos, execute o código e elimine a tabela
CurrentDb.Execute "INSERT INTO NomeDaTabelaTemporaria SQLdaConsulta"
DoCmd.OutputTo acOutputQuery, "NomeDaTabelaTemporaria", acFormatXLSX, , True
DoCmd.DeleteObject acTable, "NomeDaTabelaTemporaria"