Exportar dados do BD para excel com base em um filtro

Galera,

Atualmente tenho um botão que imprime um relatório com base em um filtro de um subform:

Private Sub Rótulo69_Click()
DoCmd.OpenReport "RltProcessosLista", acViewPreview, , Nz(Me!sfrmPedidos.Form.Filter, "")
End Sub

Eu consegui exportar direto uma tabela usando:

Private Sub Exporta_Click()
DoCmd.OutputTo acTable, "table1", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
End Sub

Mas quando tentei exportar com base no filtro nao consegui. Ele ate abre a janela para salvar, mas não salva ...

Alguem poderia me ajudar dizendo o que fiz de errado ?

Private Sub Exporta_Click()
DoCmd.OutputTo acTable, Nz(Me!sfrmPedidos.Form.Filter, ""), "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
End Sub

Fala Uilson, teria algum exemplo ? Eu ja tenho os dados que quero, o problema e q eles vao pra um relatorio q eu consigo imprimir, mas nao sei exportar. Esse relatorio tem alguns campos q escolhi da minha tabela e e preenchido com os dados do meu filtro. O que eu queria é ter exatamente aquilo so que sendo exportado pro excel.

Uilson, fiz a consulta aqui e coloquei os campos que quero. Agora, como faço pra quando for exportar o arquivo ele so jogar na consulta oque eu ja tinha filtrado ?


Eu preciso mesclar esse codigo abaixo, so que ao inves de mandar para o relatorio para imprimir, exportar o arquivo para o excel.

Private Sub Rótulo69_Click()
DoCmd.OpenReport "RltProcessosLista", acViewPreview, , Nz(Me!sfrmPedidos.Form.Filter, "")
End Sub

com esse:

Private Sub Exporta_Click()
DoCmd.OutputTo acTable, "table1 consulta", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
End Sub

Valeu pela ajuda Uilson, mas não era bem o que queria. Eu preciso exportar o filtro pronto que ja tenho do meu subform, mas não todos os dados dele, só alguns. Eu acho que a linha de código não deve ser muito diferente daquilo que demonstrei, o problema é q nao sei fazer funcionar

Uilson, de qualquer forma, mto obrigado pela ajuda !

Alguma alma caridosa poderia dar um help ?

Galera, evolui mais um porquinho e fiz a consulta conforme o Uilson falou. Ja estou com os campos selecionados na consulta, mas so quero que ele exporte o que esta no filtro so meu subform. Como fazer ?

Private Sub Exportar_Click()
DoCmd.OutputTo acQuery, "consulta", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0
End Sub

Como base nesse filtro: Nz(Me!sfrmPedidos.Form.Filter, "")

Ninguem pra dar uma bola ? 

Galera, ninguem pra dar uma bola ?  

Já foi resolvido?