Метод, позволяющий стандатными способами быстро вывести отчет в  Excel, используя RTF

DoCmd.OutputTo acOutputReport, "Название отчета", acFormatRTF,
CurrentProject.path & "\tempReport.rtf"

Dim strpath As String 
Dim oWord As Object 
Dim oDoc As Object

strpath = CurrentProject.path & "\tempReport.rtf" 
Set oWord = CreateObject("Word.application") 
oWord.Visible = True 
Set oDoc = oWord.Documents.Open(fileName:=strpath) 
oDoc.Select 
oWord.Selection.Copy 

Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Add
objExcel.Visible = True 
'Paste the data
objBook.Worksheets(1).Range("A1").Select
objBook.Worksheets(1).Paste
objExcel.Selection.CurrentRegion.Columns.AutoFit