Workbooks.OpenDatabase Method
Sub ImportData_From_Access_To_Excel()
Dim filename As String
filename = Application.GetOpenFilename()
MsgBox filename
Workbooks.OpenDatabase filename:=filename, _
CommandText:="Select * from Sales where Location = 'Hyderabad'", _
CommandType:=xlCmdTable, _
BackgroundQuery:=False, _
ImportDataAs:=xlQueryTable
End Sub