من وجهة نظري ، جرب هذا الكود بعد هذا التعديل البسيط
Dim reportname As String
Dim filenamepath As String
reportname = "jop_r"
filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & reportname & "_" & Format(Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True
MsgBox "exported successfully",,""