Importação do Excel seguida da atualização

Boa noite!

estou com dificuldades em encontrar esse processo preciso da ajuda de vocês.
encontrei este código abaixo no fórum e foi ótimo:

Código:

Private Sub Importar_Click()
On Error GoTo Falha
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "F:\backup\Documents\" ' drive onde se situa o seu documento excel
strTable = "Funcionarios" 'nome da tabela no seu banco
strFile = Dir(strPath & "Test1.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
Exit Sub

porem isso somente inclui os registros.

preciso também atualizar os registros que foram alterados. baseado no primeiro campo que é o cadastro(chave primaria)
conseguem me ajudar neste código?

strFile = len(Dir(strPath & "Test1.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel
Geralmente eu faço sem dir por outra ocasião.

Bom dia. deu certo obrigado

Sucesso.
Não esqueça de fechar o tópico.