[Resolvido]Comparar coluna numa tabela com uma coluna de um ficheiro excel

Boa tarde a todos,

Venho mais uma vez pedir a vossa ajuda, mas desta vez nem sei por onde começar...

Então vou dizer-vos o que preciso e fico aberto às vossas sugestões:

No meu DB tem uma tabela com uma coluna com o nome dos funcionários.

Uma vez por mês os recursos humanos enviam um ficheiro excel com os nomes dos funcionários da instituição actualizada, onde inclui novos funcionários, (voluntário nesta época COVID), etc.

Eu queria encontrar uma forma de poder com um simples procedimento comparar a coluna dos nomes dos funcionários da minha tabela access com a coluna em excel e devolver os nomes dos funcionários do ficheiro excel que não constam na minha tabela access.

Alguma ideia?

Sim. Anexe seus arquivo no mesmo modelo que enviam pra voce, porem com dados fictícios, pra que possamos analisar e mostrar como ficaria a codificação de um procedimento.

Obrigado DamascenoJr. pelo retorno,

Anexo exemplo do pretendido.

Obrigado

Olá a todos,

Carlos, não vi o anexo que partilhou.
No tópico abaixo faz a comparação ao importar, veja se ajuda.
https://www.maximoaccess.com/t19615-resolvidoatualizacao-automatica-na-importacao-access-excel

"a técnica, poderrá ser identica"

Abraço

Obrigado ahteixeira pelo retorno,

Acabei por abordar a questão de outra forma, faltando apenas uma rotina final.

Importei a coluna excel completa para uma tabela temporária e de seguida comparei os dados com uma query tipo:

Código:

sSQL = "SELECT tbl_Temp.Campo1, tbl_Temp.Campo2 " & _
       "FROM tbl_Temp " & _
       "WHERE NOT EXISTS (SELECT 1 " & _
                        "FROM tbl_Principal " & _
                        "WHERE tbl_Principal.Campo2 = tbl_Temp.Campo2);"


Assim eu fico com uma lista de valores que existem no ficheiro excel que não constam na minha tabela.

Para concluir o meu propósito preciso de uma rotina que pegue nesta lista de valores, procure no ficheiro excel e altere a célula de cada valor encontrado para vermelho (por exemplo)

Alguma dica de como fazer esta rotina?

Bom dia a todos.

Resolvi por esta nova abordagem.

Deixo a solução para quem precisar:

Código:

Dim MySearch As Variant

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlSh As Excel.Worksheet
Dim Rng As Range
Dim i As Integer

MySearch = Array("Carlos", "Manuel", "Joaquim")

Set xlApp = Excel.Application
Set xlWB = xlApp.Workbooks.Open("C:\teste.xls", , False)
Set xlSh = xlWB.Sheets("temp")

With Sheets("temp").Range("B2:B100")

    .Interior.ColorIndex = xlColorIndexNone
    
    For i = LBound(MySearch) To UBound(MySearch)
    
    Set Rng = .Find(What:=MySearch(i), _
              After:=.Cells(.Cells.Count), _
              LookIn:=xlFormulas, _
              LookAt:=xlWhole, _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, _
              MatchCase:=False)
        If Not Rng Is Nothing Then
            FirstAddress = Rng.Address
            Do
                Rng.Interior.ColorIndex = 3
                Set Rng = .FindNext(Rng)

            Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
        End If
    Next i
End With

xlWB.Close True
Set xlWB = Nothing
xlApp.Quit
Set xlApp = Nothing

Olá a todos,

Carlos Lopes, obrigado pela partilha, o fórum agradece.