[Resolvido]Exportar tabelas para o Excel

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.

Cleniro, bom dia!

dá um alhada nesse tópico.

http://maximoaccess.forumeiros.com/t20684-exportar-do-access-para-excel-por-abas

você precisa montar a macro no excel.

Rodrigo

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.

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

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