[Resolvido]Exportar dados filtrados em form para excel

Boa Noite

Estou usando a seguinte função em um botão para exportar um subformulario (folha de dados) para o excel:

DoCmd.OutputTo acForm, "subform01", "MicrosoftExcel(*.xls)", "", True, ""

Até ai tudo bem......

Mas utilizo um subFormulario "subform01" como folha de dados dentro de um formulario chamado "form01"
Eu aplico filtros (padrão do access) nas colunas deste subformulario, mas quando utilizo a função acima para exportar, ele entregua ao excel todas as informações do subform, independente do filtro que eu utilizei.

Como posso exportar com os filtros utilizando a função acima ou....
alguem tem outra dica????

Uma forma eficiente de exportar os dados pode ser criando um objeto do tipo Excel e fazer um loop na tabela para exportar os dados para a planilha:

Código:

Dim rs As Recordset

Set rs = DBEngine.Workspaces(0).OpenDatabase(DBPath & "\DataBase.accdb", False, False, "MS Access;PWD=Senha").OpenRecordset("SELECT * FROM tblPedidos WHERE Código like '" & Me.NumPedido & "'")

Dim EPlan As Object
 
    Set EPlan = CreateObject("Excel.Application")

        EPlan.workbooks.Open DBPath & "Relatórios\Arquivos auxiliares\Dry Ice Label.xls"
        EPlan.Visible = False
        EPlan.Worksheets("Plan1").Activate
'============================================================================================================
        EPlan.ActiveSheet.Range("A8").Select
        EPlan.ActiveCell.Value = StrConv(rs!NomeCliente, 1)
       
        EPlan.ActiveSheet.Range("A9").Select
        EPlan.ActiveCell.Value = StrConv(rs!Endereço, 1) '& " " & rs!Número
       
        EPlan.ActiveSheet.Range("A10").Select
        EPlan.ActiveCell.Value = StrConv(rs!Cidade, 1) '& " " & rs!Estado
'============================================================================================================
        EPlan.ActiveWorkbook.SaveAs DBPath & "Relatórios\" & rs!NExport & "\" & "DryIceLabelExcel.xls"
        EPlan.Application.Quit

    rs.Close
    Set rs = Nothing

    Set EPlan = Nothing

Precisa marcar a referência "Microsoft Excel Library xx.0", sendo xx a versão do Office presente: 11.0 para o Office 2003, 12.0 para o Office 2007 e 14.0 para o Office 2010.

Ola Criquio

Está na lida tambem....rssss

pergunto.....essa forma ira exportar informações filtradas
Pelo que entendi irá exportar os dados da tabela,na sua integra.... porem sem filtros...

É isso???

No exemplo acima, está filtrando pelo código que está em um campo do formulário, mas você pode incluir mais filtros, fazer um loop dentro de um segundo Recordset que filtre de acordo o filtro do primeiro, etc. São muitas possibilidades.

Não Consegui....

Desculpe meu abuso Criquio

mas preciso de ajuda nesse seu código....

Os campos que estou flitrando simultaneamente são:

NomeCliente; IdadeCliente; CidadeCliente; UFCliente

buscando da tabela: tblcadCliente

( uso um formulario e subform em folha de dados para tal filtro....)

Veja o que podes fazer por mim com essas informações....

Até....e Boa noite


Outra dúvida....não utiliza senha no bd.....deu esse probleminha tambem...

Você quer filtrar uma lista de subregistros de um mesmo cliente ou é uma lista com vários clientes?

Vários Cliente:

Exemplo.....

Quero filtrar todos os clientes "Marcelo" que tenham "20 anos", e que são de "São Paulo"

veja que neste exemplo estou filtrando os campos:
NomeCliente; IdadeCliente; UFCliente.........

Esta filtragem deverá ser exportada para o excel......

Do jeito que tenho programado, mesmo filtrado ele move todos os dados da tabela.....

at.

E como você está filtrando? Poste a função completa para vermos melhor.

estou enviando um exemplo para vc ver

teste o botão exportar e verá que envia o subform sem o filtro para o excel.

faça os testes do filtro.....

Esse exemplo não está usando as dicas que eu passei acima. Alem disso, não existe filtro nem no formulário e nem no subformulário e nem campos para inserir parâmetros de filtro. Tente montar o sistema conforme as dicas. Surgindo dúvidas, veremos o que fazer.

Acho que vc não entendeu a logica

O filtro que pretendo usar e do próprio subfom (de dada coluna) filtro padrão de folha de dados.

O codigo pra exportar leva todas as colunas para o excel, porem não com filtro selecionado.


at.

Talvez usando Recordset.Clone consigas o que pretende. O tempo está meio curto para eu preparar algo, mas na ajuda do vba você consegue dicas e aqui no forum tambem tem tópicos que abordam o tema.

Consegui resolver criquio

segui sua sugestão.....

Obrigado....

Ótimo! Grato pelo retorno.

Marcelo Silva, teria como você compartilhar comigo o código que usou para exporta os dados filtrados para o execl? Estou tentando fazer a mesma coisa, mas ainda me perco na composição dos códigos.
Grato.

Nelson Neto, seja bem vindo ao fórum!

Você pode utilizar o RecordsetClone para exportar os dados filtrados no formulário:

Código:

Dim rs As Recordset
Set rs = Me.RecordsetClone

Do While Not rs.EOF
    Exporta os dados
    rs.MoveNext
Loop

Set rs = Nothing

Veja se consegue adaptar...

Eu estava usando a mesma logica postada no inicio do post ( DoCmd.OutputTo acForm, "subform01", "MicrosoftExcel(*.xls)", "", True, "" ). Agora substitui por esta que você me indicou, mas fiz alguma coisa errada, veja como ficou aqui no meu projeto:

Dim rs As Recordset
Set rs = Me.RecordsetClone

Do While Not rs.EOF
DoCmd.OutputTo acForm, "SubFormConsultaCadastroMaterial", "MicrosoftExcel(*.Xls)", "", True, ""
rs.MoveNext
Loop

Set rs = Nothing

End Sub

adm.nneto

Eu usei a função em formulário folha de dados.
Criei um botão na Ribbon e coloquei a função ao clicar do botão.

DoCmd.OutputTo acForm, "meufrm", "MicrosoftExcel(*.xlsx)", "", True, ""

at.

Marcelo, queria saber como vc fez para aplicar a função recordset.clone, onde exportaria somente os itens filtrados. poderia diponibilizar a função pra mim.

grato.

Marcelo Silva, você poderia me ajudar com essa resolução, até hoje não consegui resolver o problema da exportação somente dos itens filtrados na folha de dados. abs.

Boa Tarde eu uso dessa forma criar um macro e defini exportar consulta que pertende exportar, cria um formulário com dois campo data inicial e data final adiciona um botão e adiciona esse codigo no botão.

Private Sub btExportacao_Click()

Dim stDocName As String
Dim strCondicao As String

stDocName = "Venda"'nome da macro
DoCmd.RunMacro stDocName

strCondicao = "[DatVenda] >= [Forms]![frmQuest]![DataInicial] " _
& "and [DatVenda] <= [Forms]![frmQuest]![DataFinal] "
DoCmd.RunMacro stDocName, acViewPreview, "Venda_Export"'nome da consulta


Exit_btExportacao_Click:
Exit Sub

Err_btExportacao_Click:
MSG.corpo = "Não encontrei registos..."
MSG.Titulo = "Aviso"
MSG.Imagem = 0
MSG.som = 0
MSG.fCarregaMsg
End Sub