https://accesstr.net/konu-excelden-veri-...tarma.html
bağlantısını incelerseniz orada belli bir dosyada yer alan tüm sayfaları alan bir kod var işinize yarayabilir

Set db = OpenDatabase(txtDosyaAdres, True, True, "Excel 5.0")

        Me.LstExcelSyf.RowSource = ""



    For Each tbl In db.TableDefs

            tblAdi = CStr(Replace(tbl.Name, "'", ""))

            If Len(tblAdi) = InStr(tblAdi, "$") Then Tur = "Sayfa" Else Tur = "Alan"

            Me.LstExcelSyf.AddItem Tur & ";" & tblAdi & ";" & Replace(tblAdi, "$", "")

    Next

orada dosya seçme penceresinden ilgili dosya seçilip tüm sayfa ve alanlar liste kutusuna aktarılır
siz sadece sayfa türünde olanları liste kutusuna yada diziye aktararak yapabilirsiniz