Experts, before I import "Import_FC.xlsm", I first need to copy the tblImport_FC as it resides in the db, but I would like to append the current date to the end of the tbl name.
ie tblImport_FC ==>tblImport_FC_161102
How can I modify the below to first copy the tblImport_FC as append the date as described?
Private Sub cmdImport_Click()
Dim strName As String
Dim xl As Object
Set xl = CreateObject("Excel.Application")
Set xl = Nothing
CurrentDb.Execute "delete * from [Import_FC]"
strName = "Transpose"
DoCmd.TransferSpreadsheet acImport, , "Import_FC", "C:\Users\johnsoat\Desktop\Import_FC.xlsm", True, strName & "!"