exported excel file has no formatting (1 Viewer)

Private Sub cmdExportToExcel_Click()
On Error GoTo Err_cmdExportToExcel_Click

    Dim strQueryName As String
    Dim strExcelDetail As String
    Dim strDTSaved As String
    
    
    strDTSaved = Format(DATE, "ddMM") ' Date and Time string to add on the "save as name".
    strQueryName = "LightlogExportToExcel"
    
    '#### If you do not want to use the date and time in the file name then put a ' in front of it.
    strExcelDetail = "c:\temp\ Light Log" & " " & strDTSaved & ".xls" ' This excel file will be saved as C:\Temp\Output Current Date and Time .xls
    
    '### If you want to use this line of code (No time and date in the file name) then remove the ' at the front of the code.
    'strExcelDetail = "C:\Temp\Output"
    
    
    DoCmd.OutputTo acQuery, strQueryName, "MicrosoftExcel(*.xls)", strExcelDetail, True, ""
     

Exit_cmdExportToExcel_Click:
    Exit Sub

Err_cmdExportToExcel_Click:
    MsgBox Err.Description
    Resume Exit_cmdExportToExcel_Click
    
End Sub