MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Exportar registros filtrados para lista excel existente - Access X Excel

    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    Exportar registros filtrados para lista excel existente  - Access X Excel Empty Exportar registros filtrados para lista excel existente - Access X Excel

    Mensagem  Fabrícia Lima em 20/8/2016, 22:29

    Olá pessoal,

    Desenvolvi um sistema muito bom de inspeção de equipamentos, cuja função é o lançamento diário de incoveniências encontradas em equipamentos da área.

    Mas fui desafiada com seguinte questão:
    o gerenciador dessas informações necessita receber ao final de cada turno um relatório em formato de tabela dinâmica por email.

    Então criei um planilha com os campos necessarios paar receber dados do access e atualizar minha tabela dinâmica na mesma planilha e o envio automático por email, até aí deu tudo certo, o problema é que eu não consigo deletar as informações anteriores para que se mantenha somente os dados novos filtrados.

    Alguém tem uma sugestão?

    Código:
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object, Filtro As String
    Me.Refresh

    DatInicio = Format(Me.FiltroPartir, "mm/dd/yyyy")
    DatFinal = Format(Me.FiltroAte, "mm/dd/yyyy")

    If Me.FiltroPartir > 0 And Me.FiltroAte > 0 Then

    If DCount("*", "tblFalhas", "Data=#" & DatInicio & "# ") > 0 Then

    If MsgBox("Registro econtrado, Confirma Envio?", vbYesNo + vbQuestion, "CONFIRMAR") = vbNo Then Exit Sub


    Filtro = Format(Me!FiltroPartir, "mm/dd/yyyy") & "# AND #" & Format(Me!FiltroAte, "mm/dd/yyyy")
    Set xls = CreateObject("Excel.Application")
    strLivro = CurrentProject.Path & "\docs\Relatorio de Inspeções.xlsm"
    xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("Tabela de Incoveniencias").Activate
    strSQL = "SELECT * FROM RtblFalhas; WHERE Data Between #" & Filtro & "#;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A2").Select
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
    Call email
    Else
    MsgBox "Não há registro nesse periodo"
    End If

    Else
    MsgBox "Favor preencher campos de periodo"
    End If
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6042
    Registrado : 15/03/2013

    Exportar registros filtrados para lista excel existente  - Access X Excel Empty Re: Exportar registros filtrados para lista excel existente - Access X Excel

    Mensagem  ahteixeira em 23/8/2016, 15:22

    Olá Fabricia,
    Não sei se compreendi bem, mas já tentou depois de selecionar apagar:

    Código:
    xls.ActiveSheet.Range("A2").delete

    Abraço

      Data/hora atual: 16/6/2019, 21:59