MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 15/5/2020, 14:34

    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?


    Última edição por zcarloslopes em 22/5/2020, 10:11, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 15/5/2020, 17:12

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 18/5/2020, 08:46

    Obrigado DamascenoJr. pelo retorno,

    Anexo exemplo do pretendido.

    Obrigado
    Anexos
    [Resolvido]Comparar coluna numa tabela com uma coluna de um ficheiro excel AttachmentExcel_Acces.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 5 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 19/5/2020, 15:35

    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
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 20/5/2020, 12:35

    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?
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 22/5/2020, 10:10

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6816
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 22/5/2020, 10:45

    Olá a todos,

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

    cheers

      Data/hora atual: 5/8/2020, 19:54