Run an access query from excel

[tlindeman]

I would like a macro to open a database call oliver, query called test and copy the data into excel. I know I can do this by get data in excel, however, I prefer a macro. Here is all I have so far. Thank You in advance

Public Sub OpenAccess()
Dim appAccess As New Access.Application

Set appAccess = Access.Application
appAccess.OpenCurrentDatabase "C:\Documents and Settings\2310454\Desktop\OLIVER (V.5.0).mdb"
appAccess.Visible = True
End Sub

[Kenneth Hobson]

Cross posted: http://www.mrexcel.com/forum/showthread.php?t=341401