MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exportar tabelas para o Excel

    Compartilhe

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/03/2014

    [Resolvido]Exportar tabelas para o Excel

    Mensagem  Cleniroweb em Sex 26 Set 2014, 05:29

    Amigos,

    Tenho o código abaixo que exporta a tabela "tbl_Exportar" para a aba "Plan1" do excel, entretanto, gostaria de adaptar esse código para exportar duas tabelas para o excel ao mesmo tempo, ou seja a "tbl_Exportar" para a "Plan1" e a "tbl_Saldo" para a "Plan2". Outra questão, é possível alterar o nome da aba "Plan1" para "Exportar" e aba "Plan2" para "Saldo" ao receber os dados?

    Obs: As colunas são iguais para as duas tabelas, portando as xlapp's do código abaixo serão as mesmas para as duas planilhas no excel.

    Private Sub Command4_Click()
    Dim rs As DAO.Recordset
    Dim arr, tamArr As Variant
    Dim xlapp As New Excel.Application

    Set rs = CurrentDb.OpenRecordset("Tbl_Exportar")
    With xlapp
       .Workbooks.Add
       .Visible = True
       .Range("A2").CopyFromRecordset rs
        For x = 0 To rs.Fields.Count - 1
       xlapp.Cells(1, x + 1) = rs.Fields(x).Name
       xlapp.Columns("A").HorizontalAlignment = xlCenter
       xlapp.Columns("B").HorizontalAlignment = xlCenter
       xlapp.Columns("C").HorizontalAlignment = xlCenter
       xlapp.Columns("D").HorizontalAlignment = xlCenter
       xlapp.Columns("E").NumberFormat = "#,##0.00_);[Red](#,##0.00)"
       xlapp.Columns("E").HorizontalAlignment = xlRight
       Next x
       arr = Split(txtCaminho, "\")
       tamArr = UBound(arr)
       .Cells.Select
       .Cells.EntireColumn.AutoFit
       

    End With

    Set rs = Nothing


    End Sub


    Obrigado à todos,
    Cleniro.

    silvrod
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/12/2011

    Re: [Resolvido]Exportar tabelas para o Excel

    Mensagem  silvrod em Sex 26 Set 2014, 14:40

    Cleniro, bom dia!

    dá um alhada nesse tópico.

    [Você precisa estar registrado e conectado para ver este link.]

    você precisa montar a macro no excel.

    Rodrigo

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/03/2014

    Exportar tabelas para o Excel

    Mensagem  Cleniroweb em Sab 27 Set 2014, 15:51

    Rodrigo,

    Agradeço muito sua atenção e ajuda,

    Mas no meu caso é um pouco diferente, não tenho planilhas no excel, não quero exportar por vínculo, o código que coloquei abaixo já faz isso, ou seja, ele abre o excel (gera um arquivo excel novo e, insere a Tbl_Exportar na aba "Plan1" deste novo documento excel gerado, porém, o que estou pretendo é adaptar esse código ´para exportar duas tabelas do access ao mesmo tempo para este documento excel, ou seja, na "Plan1" a tabela "tbl_Exportar" e na "PLan2" a "Tbl_Saldo".

    Cleniro. Question

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar tabelas para o Excel

    Mensagem  Alexandre Neves em Sab 27 Set 2014, 17:22

    Boa tarde,
    Nomeie de forma normalizada
    Private Sub CmdExportaExportarESaldo_Click()
    Dim rs As DAO.Recordset
    Dim arr, tamArr As Variant
    Dim xlapp As New Excel.Application

    With xlapp
    .Workbooks.Add
    .Visible = True
    .worksheets(1).select
    .worksheets(1).name="Exportar"
    Set rs = CurrentDb.OpenRecordset("Tbl_Exportar")
    .Range("A2").CopyFromRecordset rs
    For x = 0 To rs.Fields.Count - 1
    xlapp.Cells(1, x + 1) = rs.Fields(x).Name
    xlapp.Columns("A").HorizontalAlignment = xlCenter
    xlapp.Columns("B").HorizontalAlignment = xlCenter
    xlapp.Columns("C").HorizontalAlignment = xlCenter
    xlapp.Columns("D").HorizontalAlignment = xlCenter
    xlapp.Columns("E").NumberFormat = "#,##0.00_);[Red](#,##0.00)"
    xlapp.Columns("E").HorizontalAlignment = xlRight
    Next x
    arr = Split(txtCaminho, "\")
    tamArr = UBound(arr)
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .worksheets(2).select
    .worksheets(2).name="Saldo"
    Set rs = CurrentDb.OpenRecordset("Tbl_Saldo")
    .Range("A2").CopyFromRecordset rs
    For x = 0 To rs.Fields.Count - 1
    xlapp.Cells(1, x + 1) = rs.Fields(x).Name
    xlapp.Columns("A").HorizontalAlignment = xlCenter
    xlapp.Columns("B").HorizontalAlignment = xlCenter
    xlapp.Columns("C").HorizontalAlignment = xlCenter
    xlapp.Columns("D").HorizontalAlignment = xlCenter
    xlapp.Columns("E").NumberFormat = "#,##0.00_);[Red](#,##0.00)"
    xlapp.Columns("E").HorizontalAlignment = xlRight
    Next x
    arr = Split(txtCaminho, "\")
    tamArr = UBound(arr)
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    End With

    Set rs = 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

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 16/03/2014

    Exportar tabelas para o Excel

    Mensagem  Cleniroweb em Dom 28 Set 2014, 04:22

    Alexandre,

    Valeu,

    Muito bom, era isso mesmo que estava pretendendo, funcionou perfeitamente, inclusive também acrescentei a exportação de uma consulta na terceira aba da planilha.

    Muitíssimo obrigado pela ajuda.

    Cleniro
    bounce

      Data/hora atual: Qua 07 Dez 2016, 20:09