mdelgador

Com A Macro abaixo eu abro a consulta ConsA do banco de dados access bd.mdb Private Sub abre_Click() Dim LPath As String 'Path to Access database LPath = "C:\teste\bd.mdb" 'Open Access and make visible Set oApp = CreateObject("Access.Application") oApp.Visible = True 'Open Access database as defined by LPath variable oApp.OpenCurrentDatabase LPath oApp.docmd.OpenQuery "ConsA" Quero levá-la para o excel (sem usar macro seria: Menu Ferramentas -> Vínculos do Office ->Analisar com o Microsoft Office Excel). Como excetuar esses comandos através da Macro? Grato mdelgador