Exportar do access para excel por abas

Boa boite,

Como poderia exportar do access uma consulta, para um excel existente e por aba e em qual celular começar se mudar a formatação da planilha?

Exemplo tenho um consulta 1 = Tabela 1 e outra consulta 2 = Tabela 2.

Quero exportar essas duas consultas, para um excel existente "xxx".

A tabela 1, para aba 1 da planilha "xxx" e a tabela 2, para aba 2 da planilha "xxx"

Poderiam me ajudar?

Reinaldo, bom Dia!

Tenho algo parecido, fiz uma macro direto no excel, onde ele se conecta com o access, faz a vinculação aonde você deseja e depois exclui a conexão.

Reinaldo,

Você tem que importar a partir do excel.

A seguir um exemplo de código a ser usado no excel :

Sheets("Dados B").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MS Access Database;DBQ=" & Drv_Dados & ":\Sifiger_Dados.mdb;DefaultDir=" & Drv_Dados & ":;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT BalanceteAnual.Conta, BalanceteAnual.Descrição, BalanceteAnual.Valor01, BalanceteAnual.Valor02, BalanceteAnual.Valor03, BalanceteAnual.Valor04, BalanceteAnual.Valor05, BalanceteAnual.Valor06, B" _
, _
"alanceteAnual.Valor07, BalanceteAnual.Valor08, BalanceteAnual.Valor09, BalanceteAnual.Valor10, BalanceteAnual.Valor11, BalanceteAnual.Valor12, BalanceteAnual.ValorAnoAnt" & Chr(13) & "" & Chr(10) & "FROM `" & Drv_Dados & ":\Sifiger_Dados`.BalanceteAn" _
, "ual BalanceteAnual" & Chr(13) & "" & Chr(10) & "ORDER BY BalanceteAnual.Conta")
.Name = "Consulta de MS Access Database_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With