Inserir dado do Excel no Access

Gente eu tenho esse código funcionando aqui:

Código:

Private Sub Comando2150_Click()
'DoCmd.Hourglass True 'Ampulheta

Dim strSQL As String, strSQL1 As String


DoCmd.TransferSpreadsheet transfertype:=acImport, _
tablename:="tblFuncionários", _
FileName:="C:\Users\michael.bouix\Desktop\Planilhas\Funcionários\BASE FUNCIONARIOS ATUALIZADA.xlsx", Hasfieldnames:=True, _
Range:="", SpreadsheetType:=5
DoCmd.SetWarnings False
strSQL = "UPDATE Funcionários AS t, (SELECT * FROM tblFuncionários) AS h Set t.GESTOR = h.GESTOR,t.NOME = h.NOME,t.FUNÇÃO = h.FUNÇÃO,t.ENTRADA = h.ENTRADA,t.SAÍDA = h.SAÍDA,t.CARGO = h.CARGO,t.FÁBRICA = h.FÁBRICA,t.SETOR = h.SETOR,t.BP = h.BP,t.TURNO = h.TURNO,t.STATUS = h.STATUS,t.N_GUERRA = h.N_GUERRA WHERE h.ID = t.ID"
strSQL1 = "DELETE * from tblFuncionários"
DoCmd.RunSQL (strSQL)
DoCmd.RunSQL (strSQL1)
DoCmd.SetWarnings True

'DoCmd.Hourglass False
End Sub

O que acontece , esse código ele atualiza os dados já existentes na minha tabela do access pelo "ID"
Como eu faria para se caso o "ID" não for encontrado , inserir as informações na tabela?

ATT Michael

Olá Michael, Veja se tópico abaixo ajuda:
https://www.maximoaccess.com/t19615p6-resolvidoatualizacao-automatica-na-importacao-access-excel
Abraço

Olá Michael Pascal, como ficou a situação?
Os utilizadors do fórum merecem e agradecem o retorno.
Abraço