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