pesquisar e exportar para ms excel

Bom dia amigo, eu novamente com conhecimento de quase nada de vb. rsrrsrs

O negócio é o seguinte, segue um mdb pra dar uma olhada. No formulário exportarOcamento tem um subfom folha de dados, quero que o botão pesquisar encontre dados na consulta mostrada no subform através dos filtros Data inicio a Data fim ou código de orçamento. E exportar pegar esses dados filtrados e exportar para excel criando um arquivo pra cada fornecedor e enviando-os pra seus e-mails cadastrados no sistema que consta na consulta.

Tem como isso meu brother?

Temos vários tópicos e exemplos de envio de email e de exportação para Excel. Dê uma pesquisada e vai tentando montar a função. De acordo forem surgindo dúvidas, vá postando para que possamos achar a solução.

Obrigado meu caro,

Vou continuar tentando aqui...

Amigos,
Estou precisando de ajuda, quero que o código abaixo transporte os dados filtrado em um subformulario (folha de dados) para o ms excel pegando o nome do fornecedor para cada arquivo criado "nome_fornecedor.xls/xlsx". Desejo que a exportação seja criterizado pelo nome_fornecedor, ou seja, o nome do arquivo é nome do fornecedor listado na consulta.
Onde esse código pode estar errado?

Código:


Private Sub btnExportar_Click()
    Dim rs As Recordset

    Set rs = DBEngine.Workspaces(0).OpenDatabase(DBPath & "\orcamento.accdb", False, False, "MS Access;PWD=Senha").OpenRecordset("view_orcamento_formEmail.data LIKE #" * " & Me!cbxPesquisarOrcamento & " * "")

    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("Orcamento").Activate
    '============================================================================================================
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!codigo_orcamento, 1)
           
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!data, 1)
           
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!cod_empresa, 1)
                       
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!cnpj, 1)
                                   
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!cod_produto, 1)
                                   
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!cod_barra_produto, 1)
                                   
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!nome_produto, 1)
                                   
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!qtde_produto, 1)
                                   
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rsvl_unde_avista!, 1)
                                   
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!vl_unde_30, 1)
                                               
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!vl_unde_30_60, 1)
                                               
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!vl_unde_30_60_90, 1)
                                               
            EPlan.ActiveSheet.Range("A1").Select
            EPlan.ActiveCell.Value = StrConv(rs!id_orcam_fornec, 1)
           
    '============================================================================================================
        'Aqui eu quero que ele seja importado cada arquivo com o nome do fornecedor (nome_empresa.xlsx)
            EPlan.ActiveWorkbook.SaveAs DBPath & "Relatórios\" & rs!NExport & "\" & "DryIceLabelExcel.xls"
            EPlan.Application.Quit

        rs.Close
        Set rs = Nothing

        Set EPlan = Nothing

'CONSULTA DE REFERENCIA DO SUBFORMULÁRIO
        'SELECT LO.codigo_orcamento, O.data, LO.cod_empresa, VLF.cnpj, VLF.nome_empresa, VLF.telefone, VLF.[e-mail], LO.cod_produto, LO.cod_barra_produto,
        'CP.nome_produto, LO.qtde_produto, "" AS vl_unde_avista, "" AS vl_unde_30, "" AS vl_unde_30_60, "" AS vl_unde_30_60_90, VLF.id_orcam_fornec, VLF.nome_grupo
End Sub


e qual o código que pega esses arquivos e envia via e-mail pegando o e-mail que consta nesse arquivo?

Esse filtro envolve apenas um registro ou são vários registros? Dê mais detalhes por gentileza.

para exportação, apenas filtrado pelo [codigo_orcamento]. As informações são duplicadas de acordo o numero de fornecedores, ou seja, se tiver 10 fornecedores, a lista de produtos é duplicado por 10 no filtro, ai que mora a jogada, porque nesse resultado, quero exportar criando um arquivo [nome_empresa.xls/xlsx] para cada fornecedor, e enviando no e-mail [e-mail] que existe nessa consulta.

Dê uma olhada nesse tópico. Observe a mensagem nº 18 aonde eu deixei um exemplo e umas informações. Esse exemplo usa o Do While com um Recordset para acumular linhas para enviar por email. Talvez consiga unir com o que você já tem.