kapalı kitaptaki sayfanın adını öğrenme

[merakli_72]

Arkadaşlar mrb,
aşağıdaki gibi bir SUB ile kapalı bir excel kitabından veri alıyorum
Excel Kitabının adı ve sQL cümlesi parametre olarak veriliyor
sorunum şu SQL cümlesi

SqL = "SELECT * " _
& "FROM [FIYATLAR$A3:S65536] "


böyle yazıldığında FIYATLAR sayfasındaki veriyi getiriyor tamam ama alınacak kitaptaki sayfanın adı bilinmiyorsa/değişkenlik gösteriyorsa ne yapılabilir.
Hangi kitaptan veri aldıracağını Application.GetOpenFilename ile seçtiriyorum
fakat ilgili kitabın sayfasının adını nasıl bulabiliriz

Teşekkürler


'----------------------------------------------------------------
Sub Dosya_Ac(SaYac As Byte, DosYa As String, SqL As String)
Dim cn As Object, rs As Object



Set cn = CreateObject("ADODB.Connection")


cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & _
DosYa

Set rs = cn.Execute(SqL)

'********************************

Sheets(SaYac).[A2].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

End Sub





SqL = "SELECT * " _
& "FROM [FIYATLAR$A3:S65536] "

 

[halit3]

farklı bir yöntemle bulunan sayfalar
ekli dosyayı bir inceleyiniz.