ехпортируйте recordsource рапорта не рапорт
acExport DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel9, _
«QueryNameOrTableName», strFileName, поистине
измените «QueryNameOrTableName» с рекордным источником рапорта
как раз помнящ, что ожидал форматизацию вашего рапорта быть препровоженным к архиву первенствовать