Solved, appreciated.
I used the below Code:
Public Sub ImportExcelSpreadsheet(fileName As String, tableName As String)
On Error GoTo BadFormat
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "EmpDoc", fileName, True
Exit Sub
BadFormat:
MsgBox "The file you tried...