Here is a code:
Function Excellexprt()
On Error GoTo Excellexprt_Err
DoCmd.OutputTo acQuery, "Yourquery1", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0
DoCmd.OutputTo acQuery, "Yourquery2", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0
DoCmd.OutputTo acQuery, "Yourquery3"...