Este fórum está sendo desativado

[nstolberg]

Bom dia !!

Isso aqui funciona no Excel 2007. No Excel 2016 da Erro de Automação.

Dim db As Database
Dim rs As Recordset

On Error GoTo FalhaConexao
Set db = OpenDatabase(ThisWorkbook.Path & "\CadastroERP.xls", False, False, "Excel 8.0")
Set rs = db.OpenRecordset("Select * from [ACESSO$]")

Já troquei o "Excel 8.0" para "Excel 16.0", mas não funcionou.
Estou com a referência a "Microsoft DAO 3.6 Object Library", certinho.
Alguém pode ajudar?

Obrigado.

[Basole]

Tente isso: marque a referencia microsoft office xx.0 access database engine object library e microsoft access xx.0 object library
Caso não de certo, experimente essas alterações no seu código:

Código: Selecionar todos

Set db = OpenDatabase(ThisWorkbook.Path & "\CadastroERP.xls", False, False, "Excel 12.0")
Set rs = db.OpenRecordset("Select * from [ACESSO$]", dbOpenDynaset)

[nstolberg]

Opa...

Funcionou certinho essa parte:

"marque a referencia microsoft office xx.0 access database engine object library e microsoft access xx.0 object library"

Valeu parceiro....muito obrigado.