Вообщем, так:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Имя вашего запроса (таблицы)", CurrentProject.Path & "\" & "Имя вашего файла Ексель (с точкой и расширением - .xls)"
(CurrentProject.Path - если файл лежит в одной папке с базой)