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ırsiz sadece sayfa türünde olanları liste kutusuna yada diziye aktararak yapabilirsiniz