- Katılım
- 8 Ağustos 2008
- Mesajlar
- 20
- Excel Vers. ve Dili
- excel 2007
program "yüklenebilir ISAM bulunamadı" hatası veriyor. debug yapınca
cn.Open _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
"Extended Properties=""Excel 12.0;HDR=YES"";"
kısmı gösteriyor.
yardımcı olursanız çok sevinirim.
cn.Open _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
"Extended Properties=""Excel 12.0;HDR=YES"";"
kısmı gösteriyor.
yardımcı olursanız çok sevinirim.
Kod:
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