Kapalı dosyadan kısmen veri alma

[karakaçan]

Arkadaşlar aşağıdaki kod (evren gizlen hocamdan aldım)masa üstünde kapalı halde bulunan döküm klasörünün içindeki DEB_1_1.xls dosyasındaki verilerin tamamını çekmektedir. Ancak ben verileri C sütunundan ve 12. satırdan itibaren almak istiyorum kodu nasıl düzenleyebiliriz.
Sub kapali_aktar()
Dim conn As Object, rs As Object
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=Z:\Documents and Settings\recep\Desktop\döküm\DEB_1_1.xls;extended properties=""excel 8.0;hdr=yes"""
rs.Open "Select * from [DEB_1_1$];", conn, 1, 3
sat = Cells(65536, "A").End(xlUp).Row + 1
rs.movefirst
Range("A" & sat).CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "Kapalı dosyadan veriler aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Orion1]

ilgili satırları aşağıdaki gbi deneyeiniz.

conn.Open "Provider=microsoft.jet.oledb.4.0;data source=Z:\Documents and Settings\recep\Desktop\döküm\DEB_1_1.xls;extended properties=""excel 8.0;hdr=[COLOR="Red"][B]no[/B][/COLOR]"""
rs.Open "Select * from [DEB_1_1$[B][COLOR="Red"]C12:C65536[/COLOR][/B]];", conn, 1, 3

 

[karakaçan]

Hocam teşekkür ediyorum hayırlı günler