[Resolvido]Exportar lisBox para consulta temporaria e enviar para excel

Bom dia!

Estou com problemas para concluir o codigo abaixo, a qual desejo copiar dados da minha caixa de listagem para excel.

Para isso criei abaixo de forma que capture os dados filtrados e transfira para uma outra consulta temporaria, o que no final irei transferir para o excel.
Eu acho que o problema está na consulta que contem parametros de filtro por formulario:

Entre [Formulários]![frmInsp01]![FiltroPartir] E [FiltroAte]


Ou seja está gerando lista em branco.

Código:


Dim q As QueryDef
 Set q = CurrentDb.QueryDefs("ExportaListBox")    'Consulta com parametros de filtro"
 q.SQL = Me.list.RowSource                'List é minha cx_listagem
 q.Close
 Set q = Nothing
 DoCmd.TransferSpreadsheet acExport, , "ExportaListBox", "testExport"

A origem da lista vem da consulta ("FFalhas01") com parametros abaixo:

1 - Campo FiltroPartir e FiltroAte = Data( Entre [Formulários]![frmInsp01]![FiltroPartir] E [FiltroAte])
2 - Campo setor = Como [Formulários]![frmInsp01]![setor]
3 - Campo FiltroFuncao = Como [Formulários]![frmInsp01]![FiltroFuncao]

No formulário criei dois botões de ação :
1 - Filtrar (Esse funciona perfeitamente de forma tradicional com parametros acima)
2 - Exportar (Ele gera a consulta temporaria, mas sem dados algum)

Gerou a seguinte msg:

SELECT FFalhas01.Data, FFalhas01.Equipamento, FFalhas01.Grupo, FFalhas01.Item, FFalhas01.Incoveniencia FROM FFalhas01;

ok, mais um teste.

acrescente a parte em vermelho e me diga se a consulta aparece filtrada

Dim q As QueryDef
Set q = CurrentDb.QueryDefs("ExportaListBox") 'Consulta com parametros de filtro"
q.SQL = Me.list.RowSource 'List é minha cx_listagem
q.Close
Set q = Nothing
DoCmd.OpenQuery "ExportaListBox"
' DoCmd.TransferSpreadsheet acExport, , "ExportaListBox", "testExport"

Aguardamos

Não deu certo, continua dando o mesmo erro

Segue anexo parte do meu projeto que contém este formulário.
Favor dei uma analisada.

faço assim e dá certo aqui

Código:


Dim p, x, rs
 
  rs = Me.Lista.RowSource
  x = Application.CurrentDb.CreateQueryDef("MinhaListaExcel", rs)
  p = "c:\MinhaListaExcel.xlsx"
  DoCmd.TransferSpreadsheet acExport, 10, "MinhaListaExcel", p
  Application.FollowHyperlink p
  DoCmd.DeleteObject acQuery, "MinhaListaExcel"



Deu certo amigo Avelino.

Agradeço seu tempo e esforço pra ajudar!

:D:D:D:D