Excel 2007-2010 Makro Uyuşmazlığı

[quantum_aso]

Merhaba;
Aşağıdaki kod ile 2003de problem yaşamamaktayım. 2010 update ile excel 2010 da kod hata veriyor. Sanırım kodun excel 8.0 bölümünde problem var yardımcı olursanız sevinirim.

Sub Düğme1_Tıklat()
Dim conn As Object, rs As Object
Application.ScreenUpdating = False
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=Microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\kath.xls;extended properties=""excel 8.0;hdr=no;"""
rs.Open "Select * from [Sayfa1$A:C];", conn, 1, 1
Range("Q:R").ClearContents
Range("R1").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
End Sub

 

[Zeki Gürsoy]

"Data Source" yolu ve adı doğru mu acaba? xlsx ise çalışmayacaktır.

 

[quantum_aso]

kaynak xls uzantili

 

[Zeki Gürsoy]

Hata mesajı nedir?

 

[quantum_aso]

hata mesajlarına ekteki dosyalardan bakabilirsiniz.

 

[Zeki Gürsoy]

Her PC de ODBC yüklü olmayabilir; Microsoft Jet olmaması mümkün değil.
Bu kez ODBC ile deneyin. Yapılabilecek başka birşey kalmıyor.

' hdr=yes  ilk satırın sütun başlığı olacağını belirtir.
conn.open "Driver={Micrsosoft Excel Driver (*.xls)};dbq=" & _
thisworkbook.fullname & ";hdr=no;readonly=true"

 

[quantum_aso]

Her PC de ODBC yüklü olmayabilir; Microsoft Jet olmaması mümkün değil.
Bu kez ODBC ile deneyin. Yapılabilecek başka birşey kalmıyor.

' hdr=yes  ilk satırın sütun başlığı olacağını belirtir.
conn.open "Driver={Micrsosoft Excel Driver (*.xls)};dbq=" & _
thisworkbook.fullname & ";hdr=no;readonly=true"

burada çağırmak istediğim dosya kath.xls yi nereye yazacağım tam anlayamadım biraz açık yazarsanız sevinirim

 

[Zeki Gürsoy]

Bu kodu kullandığınız dosya ile yanyana olmalılar.

 

[quantum_aso]

tekrar merhaba;
sorunu şöyle çözdüm. office 2010 64 bit kurduğumda bu sorunun oluşması beni office 2010 32bit kurmaya sevk etti. 32 bit office ile sorun kalmadı. 64bitde neden olduğu ile alakalı hiçbir bilgim yok malesef. benzer sorunu yaşayanlar olursa bu şekilde çözebilirler.
yardımcı olmaya çalışan herkese çok teşekkür ederim