Access X Excel

Grandes Mestres,

Faço manualmente a conexão de dados do Access para Access, usando no Excel: DADOS -> OBTER DADOS EXTERNOS -> DO ACCESS, escolho o banco de dados, depois a consulta e por aí vai. Funciona tudo muito perfeito. Mas seria possível, via código ou macro, fazer este mesmo processo? São muitas planilhas (mais de 100) todas vindo de consultas Access e todo dia meu chefe pede outros resumos onde tenho que fazer nova consulta e depois o mesmo processo do OBTER DADOS EXTERNOS. Queria um código que bastasse trocar o nome da consulta e o nome da planilha e ao executar já teria minha planilha automaticamente.

Desde já muito grato a todos

Olá! Criei apenas um pequeno exemplo de macro para você tentar adaptar aí:

Código:

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\Nome da pasta\Nome de eventual subpasta\Nome do banco.mdb;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:Syst", "em database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("" & Range("H1"))
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "C:\Nome da pasta\Nome de eventual subpasta\Nome do banco.mdb"
        .Refresh BackgroundQuery:=False
    End With

Bastar fazer as alterações necessárias e colocar um botão para clicar e chamar a macro. Nesse exemplo simples, a célula H1 seria aonde se digitaria o nome da consulta. E aqui a consulta seria inserida na mesma planilha. Não mexi nas configurações de modos de acesso, por não saber se precisa ser somente leitura, ou leitura e gravação, etc. mas acho que dá para tentar adaptar.