OPENDATABASE
Boa tarde !!
Isso aqui funciona no Excel 2007. No Excel 2016 da Erro de Automação na linha indicada.
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.
Isso aqui funciona no Excel 2007. No Excel 2016 da Erro de Automação na linha indicada.
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.
Citação:
Valeu parceiro.
Muito obrigado.
Tópico encerrado , respostas não são mais permitidas