Kapalı dosyadan veri aktar

[Erdinç FIRTINA]

Değerli forum üyeleri,
Forumdan bulduğum bir makroyu uyarlamaya çalıştım. Aşağıdaki makroda öğrenmek istediğim kodların açıklanmasıdır.

Özellikle de
'Set rs = con.Execute("select ADI,SOYADI,TC,DOĞUM,ANNE,BABA,YERİ,DURUM1,DURUM2,DURUM3,DURUM4 from [sayfa2$]")
satırını anlamaya çalışıyorum.

Anladığım şudur;
ALİ klasöründen aktardığım dosyaların 1.satırında yer alan

ADI,SOYADI,TC,DOĞUM,ANNE,BABA,YERİ,DURUM1,DURUM2,DURUM3,DURUM4 leri arıyor ve aktarıyor.

Yapmak istediğim ALİ klasörünün içindeki kapalı dosyaların 1.satırındaki verileri karşılaştırarak değil, 1.satırdaki verileri değerlendirmeden, 2. satırdan başlayarak aktarmasıdır.


Yardımlarınız için şimdiden teşekkürler !!!

Sub ALİ_Klasörü_sf2_den_A2_L_arasını_al()
Sheets("ALİ").Range("A2:L65536").ClearContents
Dim con As Object, rs As Object
Dim col As Collection, evn As Object, k As Object, d As Object

Set col = New Collection
Set evn = CreateObject("scripting.filesystemobject")
Set k = evn.getfolder(ThisWorkbook.Path & "\ALİ")

For Each d In k.Files
col.Add d.Name
Next d
For t = 1 To col.Count
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\ALİ\" & col(t) & ";extended properties=""excel 8.0;hdr=yes"""
Set rs = con.Execute("select ADI,SOYADI,TC,DOĞUM,ANNE,BABA,YERİ,DURUM1,DURUM2,DURUM3,DURUM4 from [sayfa2$]")
Range("A65536").End(3)(2, 1).CopyFromRecordset rs
Next t
Set con = Nothing: Set rs = Nothing
Set evn = Nothing: Set k = Nothing
End Sub

 

[Erdinç FIRTINA]

Cevap gelmediğine göre ya çok zor ya da çok anlamsız bir soru sordum herhalde