sSource = Application.CurrentProject.Path & "\" ' "E:\OP60\Archive\"
Dim sFilename As String
sFilename = sSource & "Test data report" & "-" & result & "_" & Format(Date, "yyyy_mm_dd") & ".xlsx"
DoCmd.OutputTo acOutputQuery, "QryLog", acFormatXLSX, sFilename, Autostart:=False
Note...