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).
Pergunta
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
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.