Transfer spreadsheet question

[fieldling]

I use the following code on a command button to export "Table1" into a spreadsheet called "Table1.xls .

Private Sub Command14_Click() Private Sub Command14_Click()
stDocName = "Table1"
 DoCmd.TransferSpreadsheet [acExport], , stDocName, _
 "C:\ Export Folder\Table1.xls", 0
 End Sub

This works fine but what I would like to do is save the spreadsheet like this: "Current Date"Table1.xls .
So if I did it today it would read "280808Table1.x ls"
Any ideas how I can do this?

Thanks

[ADezii]

stDocName = "Table1"

DoCmd.TransferSpreadsheet [acExport], , stDocName, _
"C:\ Export Folder\" & Format$(Date, "ddmmyy") & "Table1.xls", 0

[NeoPa]

May I suggest an amendment to that.

Dates in filenames are much more useful if they are done as YMD rather than DMY. This is clearer when four digit years are used.

The major benefit of this is that files viewed sorted by filename are automatically sorted by date too. It's also very easy to "lose" ones which are done DMY.

stDocName = Format(Date, "yyyymmdd") & "Table1.xls"

Call DoCmd.TransferSpreadsheet([acExport], , _
                               "Table1", _
                               stDocName, _
                               0)