Değişken ve dosya yolu yardım

[Carpintero]

Merhabalar, aşağıdaki koda

rs.Open "Select * from [[COLOR="Red"]Sayfa1[/COLOR]$C3:N52];", conn, 1, 1

Kırmızı ile belirttiğim kısmı yani sayfa adına değişken atamak istiyorum.
Birde dosya yolunu ThisWorkbook.Path değilde yol="C/:Yeni klasör" türünden belirttiğim
bir adresi yapmak istiyorum. Yardımcı olabilirseniz sevinirim.

Sub verial()
Dim conn As Object, rs As Object, yol As String

Set dnesne = CreateObject("Scripting.FileSystemObject") 'dosya sistemi nesnesi oluştur
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set klasor = dnesne.GetFolder(ThisWorkbook.Path)

For Each dosya In klasor.Files

conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & dosya.Name & ";extended properties=""excel 12.0;hdr=no;imex=1"";"
rs.Open "Select * from [Sayfa1$C3:N52];", conn, 1, 1

Application.ScreenUpdating = False
Range("C3").CopyFromRecordset rs
Application.ScreenUpdating = True
    
rs.Close: conn.Close
Next
Set rs = Nothing: Set conn = Nothing
End Sub

 

[Orion1]

Buyurun.
dim deg as string,yol as string
yol="C/:Yeni klasör"
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & "\" & dosya.Name & ";extended properties=""excel 12.0;hdr=no;imex=1"";"

deg = "Sayfa1"
rs.Open "Select * from [" & deg & "$C3:N52];", conn, 1, 1

 

[Carpintero]

Çok teşekkür ederim Sayın hocam.
Saygılar