In a new module, add a function using this as an example:
Function Xferxls_LateChgs_Daily()
Dim strFileName As String
strFileName = "c:\Charge_Posting_Daily_" & Format(Date - 1, "mm-dd-yy") & ".xls"
DoCmd.TransferSpreadsheet acExport, 8, "qryLateChgsDaily_xtab", strFileName
End Function
This...