Boa tarde, Edson!
Deve ter uma cabeça de burro enterrada dentro desse note, só pode. Haja resiliência!

Deve ter uma cabeça de burro enterrada dentro desse note, só pode. Haja resiliência!

Põe um montinho de alfafa perto do teclado que tu já descobres...

Mas... seguimos tentando:

Pela mensagem de erro que apareceu é bem provável que seus drivers/bibliotecas de Acesso a Dados do Windows (antigo MDAC) estejam desatualizados (versão) ou corrompidos (vc mantém seu Windows atualizado?).

Primeiramente façamos um teste se é só problema de versão: baixe a planilha alterada BuscaRemissiva_Planilhando.xls onde desmarquei a biblioteca ADO e usei só ligação tardia.

Se mesmo assim acusar erro, tente atualizar essas bibliotecas baixando da Microsoft e instalando o arquivo correspondente à arquitetura de seu Windows, se 32 ou 64 bits (Windows, não o Office) accessando o link:
Microsoft Access Database Engine 2016 Redistributable

Se assim for, talvez tenhamos que alterar um pouco a ConnectioString depois. Informe.

O problema é com o provedor. O Excel 15 já utiliza o ACE.OLEDB.12.0.

Substitua no código este provedor:

.Provider = "Microsoft.Jet.OLEDB.4.0"

Por este:

.Provider = "Microsoft.ACE.OLEDB.12.0"

[]

É verdade, o arquivo ainda é um xls mas dá pra atualizar mesmo, bem lembrado Basole!

Desde que na escola o Excel não seja anterior ao 2007 é bem melhor substituir o ultrapassado JET pelo ACE.

Podes testar aí, Josy?

Deve ter uma cabeça de burro enterrada dentro desse note, só pode. Haja resiliência!

Põe um montinho de alfafa perto do teclado que tu já descobres...

Mas... seguimos tentando:

Pela mensagem de erro que apareceu é bem provável que seus drivers/bibliotecas de Acesso a Dados do Windows (antigo MDAC) estejam desatualizados (versão) ou corrompidos (vc mantém seu Windows atualizado?).

Primeiramente façamos um teste se é só problema de versão: baixe a planilha alterada BuscaRemissiva_Planilhando.xls onde desmarquei a biblioteca ADO e usei só ligação tardia.

Se mesmo assim acusar erro, tente atualizar essas bibliotecas baixando da Microsoft e instalando o arquivo correspondente à arquitetura de seu Windows, se 32 ou 64 bits (Windows, não o Office) accessando o link:
Microsoft Access Database Engine 2016 Redistributable

Se assim for, talvez tenhamos que alterar um pouco a ConnectioString depois. Informe.

Bom dia, Edson...
Obrigada por continuar tentando. Agora só falta eu tentar a alfafa, pq ainda não deu certo
Um abraço

Basole

Bom dia!
Obrigada... mas ainda não deu... Vou tentar instalar o Office 2007

Private Sub btnPesquisar_Click()
frmPesquisa.Show
End Sub
Ainda dá erro

Bom-dia Josy

Aqui na empresa uso o Office 365 64 bits e estava dando o mesmo erro, mais seguindo as orientações do EdsonBR e do Basole funcionou !

Será que não deixou escapar algum detalhe...!?

Três últimas perguntinhas:

1) Vc tentou a alteração que o Basole sugeriu? Se não tentou, baixe o arquivo com as alterações: BuscaRemissiva_Planilhando(usando Access Connectivity Engine)
2) Teu Office é 64 bits? (Office, não o Windows)
3) Já comprou uma vela de 7 dias?

Eu nem sei onde encontrar alfafa na capital de SP... Mas vela, eu acho q preciso de uma de 365 dias, ou uma vela de led. Será q já inventaram?
Estou tentando isso aqui de todas as formas, há dias... e nada dá certo. Pura frustração. Se o note fosse meu, ele já tinha sido arremessado com certeza.

Três últimas perguntinhas:

1) Vc tentou a alteração que o Basole sugeriu? Se não tentou, baixe o arquivo com as alterações: BuscaRemissiva_Planilhando(usando Access Connectivity Engine)
2) Teu Office é 64 bits? (Office, não o Windows)
3) Já comprou uma vela de 7 dias?

Tentei sim o 1) mas sem sucesso
2) 64 bits
3) Estou procurando no Google o farol marítimo mais próximo

Tente esses passos:

Vá em Iniciar/ Executar...e digite:

REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbsqloledb.dll"
REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbOledb32.dll"
REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbMsdasql.dll"
REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemmsadcMsadce.dll"

Josy
Experimente alterar esta linha:

.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"

Por esta:

.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0;"

Se não resolver o problema, no formulário de de pesquisa abra a janela de códigos e aperte a tecla F8 (depurador), e vai apertando até aparecer a msg. de erro, e tire um print da tela e poste aqui.

Dessa forma, de repente podemos especificar o motivo do erro.

Tente esses passos:

Vá em Iniciar/ Executar...e digite:

REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbsqloledb.dll"
REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbOledb32.dll"
REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbMsdasql.dll"
REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemmsadcMsadce.dll"

Tds com êxito!

Josy
Experimente alterar esta linha:

.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"

Por esta:

.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0;"

Se não resolver o problema, no formulário de de pesquisa abra a janela de códigos e aperte a tecla F8 (depurador), e vai apertando até aparecer a msg. de erro, e tire um print da tela e poste aqui.

Dessa forma, de repente podemos especificar o motivo do erro.

Já fiz esse procedimento, conforme comentários anteriores. com 4, 8 e 12... e nada
Obrigada