Try a button with code that looks like this:
sub excelexport
queryname = inputbox("What is the name of the query you want to import?")
filelocation = inputbox("Where do you wan to put the file (path/fielname)?")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel4, queryname, filelocation, True
end sub