Soru method execute of object _connection failed ADO hatası

[leonadies]

Merhaba üstadlar sürekli kullandığım bu makroda hata alıyorum. Sebebi ne olabilir? Eklentilerimde herzamanki gibi. Eski yaptığım excellerde sorunsuz çalışıyordu. Nedense yeni yaptıklarım hep bu sorunda takılıyor. Debug hatası SORGU satırına işaret ediyor.

"method 'execute' of object '_connection' failed" hatası

Var mı fikri olan?

Sub ADO()

Dim Baglanti As Object, Sorgu As String, Kayit_seti As Object
    Set Baglanti = CreateObject("AdoDb.Connection")
      
    Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=no"""

    Sorgu = "Select F2,F3 From[SQL$]"
    Set Kayit_seti = Baglanti.Execute(Sorgu)
  

    Sayfa3.Range("A3").CopyFromRecordset Kayit_seti

End Sub

 

[FERAZ]

From dan sonra bir boşluk ekleyipte deneyebilirsiniz gördüğüm kadarıyla.
Ve f2 yerine [f2] gibide olabilir.

 

[leonadies]

From dan sonra bir boşluk ekleyipte deneyebilirsiniz gördüğüm kadarıyla.
Ve f2 yerine [f2] gibide olabilir.

Malesef bunlar care değil denedim

 

[Orion1]

Sıkıştırılmış dosya kullanıyor olabilirmisiniz?

 

[leonadies]

Sıkıştırılmış dosya kullanıyor olabilirmisiniz?

Yok hocam Normal açık excel

 

[leonadies]

bu hata ile ilgili türkçe yazı dahi yok. Neden olduğunu anlayamıyorum. Çok sık kulllanırım aslında.

 

[Orion1]

Sub ADO
ADOyu silip başka bir şey yazıp deneyin.

 

[Orion1]

Sub ADO
ADOyu silip başka bir şey yazıp deneyin.

 

[leonadies]

Sub ADO
ADOyu silip başka bir şey yazıp deneyin.

Malesef olmadı.

 

[Orion1]

Böyle deneyin

Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=no"""

 

[Orion1]

Böyle deneyin

Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=no"""

 

[leonadies]

Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=no"""

Malesef böylede olmadı. Çok garip gerçekten

 

[leonadies]

dosyamı ekledim

 

[Orion1]

Sorun gözükmüyor.Bende çalışıyor.

 

[Orion1]

Kodların en sonuna set kayit_seti=nothing
Baglanti.close yazıp deneyin