Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma

Arkadaşlar bu konuda bayağı araştırma yaptım ama örneklerin hepsi çok farklı idi, benim sorunuma hitap etmiyordu. Aşağıda yer alan sorguda 'from'dan sonra gelen sayfa değişkeni, adını hücreden alsın istiyorum, bir çok deneme yaptım bildiklerim doğrultusunda, ama hep hata verdi. bir de şunu öğrenmek istiyorum, ado ile arama yapacağım kapalı kitaptaki sayfa ismini, kitabı açmadan nasıl alıp bir değişkene atabilirim? şimdiden teşekkürler.

"select [CALISILAN_HAFTA ICI_MESAI_GUN] from [sayfa$] where not isnull([CALISILAN_HAFTA ICI_MESAI_GUN]) and [TC_KIMLIK] ='" & .Cells(i, 2).Value & "'", con, 1, 3

aşağıdaki kod işinize yarayabilir
yol="c:\......\hedef.xls"
kitap(yol) yazarsanız ilgili kitaptaki sayfaları listeler

Sub Ktp(fn As String) ' As String

    Dim conn As Object, db As Object

    Dim tbl As Object



    Set conn = CreateObject("DAO.DBEngine.120")

    Set db = conn.OpenDatabase(fn, False, True, "Excel 12.0 Xml;HDR=Yes;")



    For Each tbl In db.TableDefs

        Debug.Print tbl.Name

    Next

    Set db = Nothing

    Set conn = Nothing



End Sub

Bu cok iyi, gayet sade, anlaşılır bir kod bloku , cok teşekkür ederim berduş hocam sagolun.

Rica ederim
İyi çalışmalar

Sorun çözüldüyse cevaplanmışlara taşıyalım mı?

Halil hocam üstadın aslında demek istediği alttaki gibiydi.
Başka konudada yanlış yazmıştı buraya yazmamı istemişti.
Birde sizin sayfa bulma kodları paratik ama bazı dosyalarda sayfanın önüne ve arkasınsa tek tırnak yada print arene vb... gibi sayfalarda çıkartıyordu kendisinden.
Bende arşivimdeki sayfa bulma dosyasını ekledim.

[" & range("A1").value & "$]