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

    [Resolvido]Exportar tabelas para o Excel

    Compartilhe

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    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 : 59
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    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 : 59
    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: Ter 21 Nov 2017, 00:51