Boa noite, Josy!
Testei aqui com as seguintes alterações e funcionou:
1) marque apenas a biblioteca: Microsoft ActiveX Data Objects 6.1 Library
2) Verifique a ConnectionString na rotina "NomeMãe()", realmente há um erro nela:
Substitua:
.Provider = "Microsoft.JET.OLEDB.8.0"
Por:
.Provider = "Microsoft.JET.OLEDB.4.0"
3) Continuo insistindo que seu arquivo não está muito legal, está corrompido... quando tiver um tempo, migre tudo para um arquivo limpo, ok? (Não fiz isso aqui pq percebi que vc usa Smart Tag e também tem planilha com senha).
Obrigada, Edson, pela sua boa vontade em tentar ajudar. Só pra constar, eu encontrei essa planilha na internet, já faz bastante tempo... E fiz umas poucas alterações para se adequar as minhas necessidades. Não foi eu quem criou o código, pois pouco tempo tenho para me envolver com excel, logo, meus conhecimentos são bastante limitados. Mas, até os computadores da escola serem furtados, e termos de trabalhar com notebooks, com outra versão de office, essa planilha rodava perfeitamente (realizava a pesquisa e exportava dados repetidos). Meu computador pessoal tem o Office 2016, o do note, no trabalho é Office 2013. Agora, isso não roda mais. O que me deixa extremamente frustrada, a ponto de querer descer a máquina de escrever e o papel carbono da prateleira e voltar ao trabalho. É retrô, mas sempre funciona. rs De qq forma, agradeço.
Um abraço
Att
Josy Martins
Estamos tão preocupados c/ o q queremos ter, q ás vezes nos esquecemos d agradecer o q já temos. Afinal, gratidão significa q a energia recebida deve ser devolvida.
Feliz aqle q transfere o q sabe e aprende o q ensina.
Postado : 01/05/2018 12:38 pm