Here is one example I use, excel file is called Comments. The first part checks to see if the excel file is there. Last part removes all records from table Sheet1, then loads new records from excel file using the RunSavedImportExport function. To get the import spec name, manually import the excel file first time and save the import specs which you then call in that command below.
Dim dbs As Database
Set dbs = CurrentDb
' Check for file
If Dir("x:\Comments\DataFile\Comments.Xlsx") = "" ThenMsgBox "The Comments File does not exist, please download a current Comments File, rename to Comments.xlsx and place into directory X:\Comments\DataFile."
End
End If
'Import Comments from Excel file
DoCmd.SetWarnings FalseDoCmd.OpenQuery "qryDelete_Sheet1"
DoCmd.RunSavedImportExport "ImportCommentsNew"
DoCmd.SetWarnings True