Kapalı dosyada veri almada 'Alan Adı' Problemi

[tamer42]

Merhabalar,

Ekli dosyada yer alan verileri aşağıdaki kodla çekmek istediğim zaman Alan Adlarını tanımıyor?

ekteki hata mesajını veriyor.

yardımlarınıza ihtiyacım vardır.

Sub StokTest2()
Dim a As String
Dim b As Integer
    Dim adoCN As Object
    Dim strSQL As String
    Dim adoRS As Object
    Dim Yol As String
    
    KapDosya = "C:\Documents\Veri Aktarma\Stok_v4.xlsx"
       
    Set adoCN = CreateObject("ADODB.Connection")
    
Yol = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & KapDosya & ";Extended Properties=""Excel 12.0;HDR=no;IMEX=1"";"
adoCN.Open Yol


Set adoRS = CreateObject("ADODB.Recordset")
[color=red]adoRS.Open _
"SELECT * FROM [Sheet1$] WHERE [STOK TANIMI] like 'AAAAA'", adoCN
[/color]

adoRS.MoveLast
adoRS.MoveFirst


[c6].CopyFromRecordset adoRS


    adoRS.Close
    adoCN.Close
    Set adoRS = Nothing
    Set adoCN = Nothing
End Sub

iyi çalışmalar.