Cza,

Eu não mexo com isso, mas pesquisei recentemente, porque estava com um pensamento próximo ao seu. Te digo que dá pra fazer. (No meu caso eu desisti, porque o trabalho que eu teria para integrar Excel e Access para minha necessidade seria muito grande).

Dá uma olhada no link:

viewtopic.php?f=21&t=9273

Pode te ajudar a ter uma ideia.

Abs

Gilmar, obrigado pela dica.

Porém deu um erro, e não consegui sequer abrir. Se não me engano, tem alguma a ver com meu pc ou office ser x64. Enfim...

Tava dando uma olhada e creio que o que preciso não será possível. O que queria era uma espécie de PROCV do Excel no Access. De acordo com o código que usar, ele buscar no Banco de Dados do Access...

CZa,

Como eu disse antes, integração Excel x Access não é minha praia.

Porém, se vc pretende utilizar a função PROCV(), com certeza não dará certo.

Por outro lado, com VBA, creio que seja possível sim.

Vou procurar mais um pouco sobre.

Enfim, de qualquer forma, obrigado.

*PS.: Abri o exemplo na estação do meu trabalho, e deu certo, o problema agora é como adaptar essa rotina pro meu caso...

Amigo, dá pra fazer sim, contudo, você necessita habilitar o objeto ADO nas referências do Excel.

Para fazer isso, pressione ALT + F11
Clique no Menu Ferramentas > Referências e selecione "Microsoft DAO 3.6 Object Library" ou algo equivalente, dependendo da instalação do seu Office.

Crie um Botão no Excel, e cole o código abaixo.

'Lembre-se que pra buscar texto é usado Aspas Simples

'--------------------------------------------------------------
Dim db as da

StrSQL = "Select * FROM SuaTabela WHERE NomeCampo='" & SuaBusca & "'" 'Se estiver buscando texto
StrSQL = "Select * FROM SuaTabela WHERE NomeCampo=" & SuaBusca & "" 'Se estiver buscando numero
StrSQL = "Select * FROM SuaTabela WHERE NomeCampo=" & Format(MinhaData,"MM/DD/YYYY") & "" 'Se estiver buscando Data

Dim db As DAO.Database, tb As Recordset

Set db = Workspaces(0).OpenDatabase(StrSQL )
If tb.RecordCount = 0 Then MsgBox "Não houve registros com esses dados", vbCritical, " Registros": Exit Sub
If tb.RecordCount > 0 Then
tb.MoveLast: tb.MoveFirst

MsgBox tb.RecordCount & " registros localizados", vbExclamation, " Registros"

End If

Set tb = Nothing: Set db = Nothing

'===========================================================================

Caso haja maiores dúvidas, me envie um exemplo que do queira.