MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Exportar para aba X

    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty [Resolvido]Exportar para aba X

    Mensagem  catyl em 26/4/2019, 16:05

    olá pessoal,
    estou com dificuldade de implementar uma rotina, ja tente procurar aqui conforme manda as regras não encontrei:
    necessito o seguinte: selecciono o estado, a data de inicio e fim e ao clicar no exportar no frm_FiltrarData exporta para o ficheiro do excel controlo na folha/aba dados, após a concluisão abre o ficheiro.
    agradeço a vossa ajuda.
    Anexos
    [Resolvido]Exportar para aba X Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (82 Kb) Baixado 11 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  Alexandre Neves em 27/4/2019, 10:33

    Bom dia e bem-vindo ao fórum

    Adapte o endereço do ficheiro
    Código:
    Private Sub btnExport_Click()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim meuExcel As Object, meuFicheiro As Object

        DoCmd.OutputTo acQuery, "SituacaoEstado", acFormatXLSX, "D:\MeuFicheiro.xlsx", False, "", 0
        MsgBox "Dados exportado com Sucesso !", vbInformation, "Exportação de dados"
        Set meuExcel = CreateObject("Excel.Application")
       
        Set meuFicheiro = meuExcel.Workbooks.Open("D:\MeuFicheiro.xlsx")
       
        meuExcel.Visible = True
        Set meuExcel = Nothing
        Set meuFicheiro = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 2/5/2019, 12:46

    muito obrigado pelo retorno,
    até que já exportava mas o que preciso é que exporta na folha dados no ficheiro controlo e indo acrescentando os dados nesta folha e não substituindo
    será possivel me ajudar nesta situação.
    obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  Alexandre Neves em 3/5/2019, 20:37

    Boa noite
    Código:
    Private Sub btnExport_Click()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim meuExcel As Object, meuFicheiro As Object
        Dim Rst As DAO.Recordset
       
        Set meuExcel = CreateObject("Excel.Application")
       
        Set meuFicheiro = meuExcel.Workbooks.Open("Z:\MeuFicheiro.xlsx")
       
        Set Rst = CurrentDb.OpenRecordset("Select * From Listas")
        meuFicheiro.ActiveSheet.cells(meuFicheiro.ActiveSheet.cells(meuFicheiro.ActiveSheet.Rows.Count, "A").end(xlUp).row + 1, 1).CopyFromRecordset Rst
        MsgBox "Dados exportado com Sucesso !", vbInformation, "Exportação de dados"
        meuExcel.visible = True
        Set meuExcel = Nothing
        Set meuFicheiro = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 4/5/2019, 16:53

    muito obrigado Alexandre pela ajuda,
    esta me dando erro, o meu vba é fraco, veja em anexo.
    obrigado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  Alexandre Neves em 5/5/2019, 10:30

    Bom dia,
    Não posso ver agora mas tem de já ter o ficheiro criado, o código apenas acrescenta ao ficheiro existente. Será esse o erro, por não ter o ficheiro Excel?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 6/5/2019, 14:40

    boa tarde,
    já existe os dois ficheiros: do excel (controlo) e do access (exemplo) compactado em anexo.
    obrigado.
    Anexos
    [Resolvido]Exportar para aba X Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (82 Kb) Baixado 4 vez(es)
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 18/5/2019, 18:00

    Tentei adaptar o codigo do Alexandres, esta me retornar o seguinte erro: Run-time error ´3061': Poucos parâmetros. 3 esperados. alguém pode me ajudar nesta situação, o meu vba é fraco.
    Anexos
    [Resolvido]Exportar para aba X Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (84 Kb) Baixado 3 vez(es)
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 31/5/2019, 13:15

    saudação a todos,
    up.
    como corrigir o erro: Run-time error ´3061': Poucos parâmetros. 3 esperados no codigo abaixo.

    Código:
    Private Sub btnExport_Click()
    '--------------------------------------------------------------'
       '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
       '     utilize o código livremente mas mantenha os créditos     '
       '--------------------------------------------------------------'
       Dim meuExcel As Object, meuFicheiro As Object
       Dim Rst As DAO.Recordset
       
       Set meuExcel = CreateObject("Excel.Application")
       
       Set meuFicheiro = meuExcel.Workbooks.Open("C:\exemplo\CONTROLO.xlsx")
       
       Set Rst = CurrentDb.OpenRecordset("Select * From SituacaoEstado")
       meuFicheiro.ActiveSheet.cells(meuFicheiro.ActiveSheet.cells(meuFicheiro.ActiveSheet.Rows.Count, "A").end(xlUp).row + 1, 1).CopyFromRecordset Rst
       MsgBox "Dados exportado com Sucesso !", vbInformation, "Exportação de dados"
       meuExcel.Visible = True
       Set meuExcel = Nothing
       Set meuFicheiro = Nothing
    End Sub

    agradeço a vossa ajuda
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 16/8/2019, 19:30

    saudação,
    por favor preciso da vossa ajuda nesta situação que persiste:
    resumo:
    1- selecciono estado;
    2- digita-se o intervalo de data;
    3 - clico no botão exportar;
    por fim os dados devem ser exportado no ficheiro controlo.xlsx na aba/folha dados. e sempre que existir novos dados ao exportar deve ser acrescentada no mesmo ficheiro na aba/folha dados.

    será que é possível agradeço a vossa ajuda.

    segue em anexo o BD e o ficheiro excel
    Anexos
    [Resolvido]Exportar para aba X Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (82 Kb) Baixado 1 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3685
    Registrado : 04/04/2010

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  Avelino Sampaio em 17/8/2019, 09:59

    Olá!

    veja se este meu artigo te ajuda:

    usandoaccess.com.br/dicas/criar-planilha-excel-com-access.asp
    Copie e cole o endereço acima no seu navegador

    Sucesso!
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 17/8/2019, 14:52

    muito obrigado mestre Avelino Sampaio pelo retorno mas não estou a conseguir adaptar conforme explicada na mensagem nº 10.
    é muito avançado para mim, por favor, podes tentar alterar no ficheiro anexado.
    Obrigado.
    Anexos
    [Resolvido]Exportar para aba X Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 3 vez(es)
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 17/8/2019, 20:33

    tentei este exemplo do mestre JPaulo
    esta a me dar o seguinte erro: poucos parâmetros. 3 esperado.
    alguem me ajuda

    Public Sub CriaExcel()
    'By JPaulo ® Maximo Access
    '2017-09-15
    Dim strLivro As String
    Dim xls As Object
    Dim rst As DAO.Recordset
    Dim strSQL
    Dim intUltimaCelula%
    Dim xlsht As Excel.Worksheet

    Set db = CurrentDb
    Set xls = CreateObject("Excel.Application")

    strLivro = "K:\exemplo\CONTROLO.xlsx" 'diretorio completo do ficheiro
    xls.Workbooks.Open (strLivro)
       Set xlsht = xls.Worksheets(1) ' 1 é o primeiro sheet
    xls.Visible = True 'torna o excel visivel

    strSQL = "SELECT * FROM SituacaoEstado;" 'select á tabela no banco ou consulta
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

    If rst.RecordCount = 0 Then Exit Sub 'se não tem registros, morre aqui
       xls.Worksheets(1).Activate
       xls.ActiveSheet.Range("A1").Select 'seleciona a primeira celula
           intUltimaCelula = xlsht.Cells(xlsht.Rows.Count, 1).End(xlUp).Row 'obtem a ultima celula preenchida
           intUltimaCelula = intUltimaCelula + 1 'acrescenta mais uma celula, que será a vazia
       xls.ActiveSheet.Range("A" & intUltimaCelula).Select 'seleciona-a
       xls.ActiveCell.CopyFromRecordset rst 'copia os dados da tabela
    'fecha o recordset e limpa a memoria
    rst.Close: Set rst = Nothing
    'salva o excel
    xls.ActiveWorkbook.Save
    'fecha o excel
    xls.Application.Quit
    'limpa a memoria
    Set xls = Nothing
    End Sub
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 20/8/2019, 14:32

    up
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 23/8/2019, 14:27

    up
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  Alexandre Neves em 1/9/2019, 21:19

    Boa noite

    em vez de
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    tente
    Set rst = CurrentDb.OpenRecordset(strSQL, 2)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    catyl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 24/04/2019

    [Resolvido]Exportar para aba X Empty Re: [Resolvido]Exportar para aba X

    Mensagem  catyl em 21/9/2019, 11:25

    desculpe pela demora, consegui de outra maneira vinculando o proprio ficheiro do excel.
    muito obrigado mestre Alexandre Neves pela ajuda.

      Data/hora atual: 1/12/2020, 18:14