Este fórum está sendo desativado

[IvanPi]

Ao tentar conectar à uma planilha do próprio arquivo, utilizando a conexão de string abaixo no VBA Excel, aparece o erro:
Erro em tempo de execução '-2147467259(80004005)':
Não foi possível encontrar ISAM instalável.

Código


Option Explicit

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public i As Long
Public sql As String
Public ws As Worksheet

Public Sub ConectarPlan()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\LISTA PILOTO.xlsm" & _
"Extended Properties=""Excel 12.0;HDR=Yes"";"
End Sub

Public Sub DesconectarPlan()
rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub

Public Sub Importar_Pendentes()
ConectarPlan

sql = "SELECT * FROM [DB$]"
rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
Set ws = shtPendente

With ws
.Select
.Cells.Clear
.Range("A1").Select
End With

For i = 0 To rs.Fields.Count - 1
Cells(1, i + 1) = rs.Fields(i).Name
Next i

Range("A2").CopyFromRecordset rs
Cells.Columns.AutoFit

DesconectarPlan

End Sub

Poderiam me dar uma luz de como resolver tal problema, estou utilizando o Excel 365 de 32 bits.

Desde já muito agradecido.

[babdallas]

Veja se ajuda.

https://support.microsoft.com/pt-br/hel ... or-some-fi

[IvanPi]

Olá! Estou postando a solução apresentada no grupo do whats .

Estava faltando um ";" antes do Extended:
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\LISTA PILOTO.xlsm" & _
"Extended Properties=""Excel 12.0;HDR=Yes"";"
End Sub

O código passou a ficar dessa maneira:
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\LISTA PILOTO.xlsm" & _
";Extended Properties=""Excel 12.0;HDR=Yes"";"
End Sub

Muito agradecido pela prontidão.

Atte.