Sub Exportfilexls()
Dim sFullPath As String
Dim Sdate As String
Ftime = Format(CStr(Time), "hh:m")
MyTime = Replace(Ftime, ":", ".")
Sdate = Format(CStr(Date), "dd/mm/yyyy" & "-" & MyTime)
sFullPath = CurrentProject.Path & "\Outputupload\SapWeighedUsers-Internals" & "-" & Sdate & ".xlsx"
DoCmd.TransferSpreadsheet acExport, 10, "Q_SAP_Users_ALL", sFullPath, True
MsgBox "File SapWeighedUsers-Internals" & "-" & Sdate & " " & "has been transferd to : N:\05 - NBS CSS\PFC\José\Sap Weigthed Users 2\Outputupload !", vbInformation
End Sub