Could not find installable ISAM? Error

prog. gives an error message that "Could not find installable ISAM".

Sub totals()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
"Extended Properties=""Excel 12.0;HDR=YES"";"
    
Set rs = cn.Execute( _
"select distinct isim, sum(başvuru), sum(başarı) " & _
"from [Sayfa1$] " & _
"group by isim")

With Sheets("zeki")
    .[a2:c65536].ClearContents
    .[a2].CopyFromRecordset rs
End With

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

End Sub

Hello cyildirim,

If you aren't using Excel 2007 then you need change the connection open statement.

cn.Open _
"Provider=Microsoft.ACE.OLEDB.8.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
"Extended Properties=""Excel 8.0;HDR=YES"";"

Sincerely,
Leith Ross

i'm using excel 2007.

Hello cyildirim,

I don't have Office 2007, so I can't say for certain what the cause is, but in earlier versions if the path of the ISAM driver in your Windows Registry is not valid, or if the ISAM driver does not exist, the problem may occur.

In the past, correcting this involved editing your registry. In Office 2007, I don't know what to do.

Sincerely,
Leith Ross