Code to Import sheet everyday with that day's date as part of name

[Riun]

Hi

I need to import excel sheet to access - the sheets are stored everyday with the same name, but with the day's date at the end of the name to distinguish them. What code can one use to import the sheets automatically? at this stage I use the code:

 DoCmd.TransferSpreadsheet acImport, , "Tbl Facility", "D:\My Documents\Facility Types.xls", True 

it works, but if there is a date at the end of the name that changes everyday, how does the code then need to look?

Thanks,

R

[FishVal]

Hi, Riun.

Use Date() function to get current date and Format() function to format it suitably.

e.g.

 
Dim strDate as string
 
strDate = Format(Date,"""(Saved on:"" mmm-dd-yyyy)")
DoCmd.TransferSpreadsheet acImport, , "Tbl Facility", "D:\MyDocuments\Facility Types " & strDate & ".xls", True 
 

[Riun]

Thanks FishVal! It works! Cheers

[FishVal]

You are welcome.

Best regards,
Fish