Excel 2010 bağlantı problemi

[tamer42]

Merhabalar,

Kapalı bir excel dosyasında (*.xlsx) veri almak için ekteki bağlantı hatasını veriyor.

Sub TestAdoExecute()

    Dim strSQL, dbFullName, sh As String
    Dim s As Integer
    Dim cnn As Object
     Set cnn = CreateObject("ADODB.connection")
        
    
  ..................
dbFullName = "K:\AYLAR_\OCAK_v6.xlsx"

      [B] [color=red] 
        cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=" & _
        "'Excel 8.0;';Data Source=" & dbFullName[/color]
[/B]
  ..................

Sanırım Extended Properties=" & _"'Excel 8.0 de sıkıntı oluşturuyor, farklı bir durum yazmak gerekiyor.

iyi çalışmalar.