[Resolvido]Enviar para Excel apenas os itens filtrados em uma caixa de listagem

Prezados, bom dia.

      Dei uma procurada aqui mas não consegui achar exatamente o que preciso. É o seguinte, eu tenho um Form para pesquisa, com caixas de combinação  que ajudam na filtragem da caixa de listagem.
      O que eu gostaria era enviar para o Excel apenas os arquivos que eu filtrei, não sei se isso é possível.

PS: O form que utilizo para pesquisa é o frm_lpu

       Desde já agradeço a disponibilidade de quem ajudar.

Fábio, de uma forma bem simples...

Basta criar uma consulta física exatamente igual a que esta na caia de Listagem...
Então no Botão, basta mandar exportar essa consulta através da propriedade .OutputTo


Veja como ficou:
dropbox.com/s/srcse9ail4aqmt2/LPU_REV_vers%C3%A3o%201.zip

Fábio Paes, boa tarde.

Perfeito meu amigo!! Só mais uma dúvida para fechar o tópico, eu fiz exatamente isso em outro arquivo, e funcionou bem, porém, na hora de salvar em uma pasta, eu sempre tenho que renomear o arquivo "csExportaExcel", se somente eu clicar substitui-lo ele vai para o depurador, sabe me dizer por qual motivo??

Mesmo assim muito obrigado mesmo cara.

Estranho... Pois aqui funciona normalmente! Se clicar em substituir, ele segue e substitui o que ja existe!
Access 2013. Poste tela do erro Com o codigo da mensagem!

Fabio Paes, bom dia.

Anexei um print do erro! Após fazer alguns testes percebi que realmente não se tratava do problema de renomeação que citei abaixo, mas sim de:

Este erro só ocorre quando eu deixo outro arquivo exportado aberto. Ex: fiz a primeira filtragem e exportei para o excel, OK! se eu não fechar o excel ele não deixa eu exportar uma segunda vez, no caso eu teria que fechar o excel para conseguir abrir o segundo arquivo.


Se puder me ajudar agradeço tenha uma ótima semana.


Abs.

Fábio.

Meu amigo, então nesse Caso teremos que add um tratamento para esse erro!
E quando acontecer, iremos informar o usuário que o arquivo esta aberto...
Daremos a opção para o usuário de Fechar tudo do Excel automaticamente e realiza a exportação novamente (Forma automatica) ou de ele fechar Manualmente a Planilha e refazer a exportação!


Mude o Comando para: (Observe os Comentários)

Código:


Private Sub Comando76_Click()
Dim P As String
On Error GoTo F
DoCmd.OutputTo acOutputQuery, "csExportaExcel", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0
F:
Select Case Err.Number
    Case 0, 2501 '2501 é o erro que ocorre quando eu cancelo a abertura do relatorio, quando ele estiver sem dados
        Exit Sub
    Case 2302 'Aqui, quando detectar que ta aberto ele avisa e manda fechar o arquivo antes
        If MsgBox("O arquivo que tentou substituir já se encontra Aberto na Máquia!" & vbNewLine & vbNewLine & _
        "Feche-o Antes, Ou clique em SIM para Fechar Todos as Planilhas Excel e Exportar o Arquivo", vbCritical + vbYesNo, "Atenção") = vbYes Then
            P = "TASKKILL /F /IM EXCEL.exe" 'Fecha o Excel
            Shell P, vbHide
                'Refaz a Exportação
            DoCmd.OutputTo acOutputQuery, "csExportaExcel", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0
        Else
        'Se clicar em Não, ele nao faz nada!
        Exit Sub
        End If
    Case Else
        MsgBox Err.Number & " " & Err.Description, vbInformation
End Select
End Sub


Fábio Paes, esta funcionando perfeitamente

Cara muitíssimo obrigado mesmo a você e a todos do fórum que estão sempre dispostos a ajudar quem esta querendo aprender. Bem agora vou dar uma estudada em cada linha deste código pois tenho um conhecimento básico de VBA, mas sei que aqui vou conseguir avançar em meu conhecimento.

Abraços e ótima semana

Grato pelo retorno amigo, até a próxima se Deus Quiser!

Prezados, boa tarde.

     
  Antecipadamente já peço desculpas por reabrir este tópico, pois não sei se é o procedimento correto. Gostaria da ajuda para solucionar um problema, o Fábio Paes, a quem sou grato, me deu uma enorme força para conseguir o objetivo de exportar para excel apenas os itens filtrados, porém, a pouco não consigo mais fazer isso pois me retorna o erro "3066 A consulta deve ter pelo menos um campo válido" se alguém se despuser me ajudar eu agradeço.


Anexo esta o meu BD.
form de pesquisa é o "frm_lpu"

Desde já muito obrigado.

Amigo, seu problema é simples! Não existem nenhum campo/coluna na sua consulta!
Por isso o erro!



Pegue um Backup e copie de volta o sql da consulta ExportaExcel

Fábio Paes, boa noite.


Então isto eu tinha percebido acontece que sempre vou lá colo a instrução SQL da caixa de listagem na consulta csExportaExcel, e funciona somente uma vez na segunda ele já da o erro 3066 e acaba por apagando a instrução SQL da consulta csExportaExcel, já testei por diversas vezes e é o que esta acontecendo, se puder tenta filtrar e enviar para o excel umas 3 vezes seguidas aí para você ver.

Otima noite amigo.

Amigo, testei aqui mais de 20x. Com filtros, sem filtros, com todos os filtros... E nao obtive erro algum!
Confesso que nunca vi uma consulta ser apagada apenas o SQL... Algo estranho acontecendo na sua maquina. Teste em outra por favor...

Meu Amigo,

Agora esta tudo ok! Eu refiz as consultas e colei novamente a instrução SQL, testei várias vezes e agora esta normal, sinceramente não sei por que estava acontecendo aquilo, e juro que apagava tudo da csExportaexcel!! bem apenas refiz as consultas e criei uma consulta física (como me ensinou) pegando os valores da outra planilha de consulta.


Meu muito obrigado pela paciencia com quem ainda tem bastante dificuldade com a ferramenta.

Abraços fica com Deus e até uma próxima.