Kapalı dosyalardan veri almak

[ahsah]

Merhaba
Forumlarda aradım ancak istediğimi bulamadım.
Kapalı olan dosyalardan açık excel dosyasına veri almaya çalışıyorum. Dosya sayısı yaklaşık 500, kapalı dosyalardaki sayfalardan yalnızca birinden veri alınacak, sayfadaki veriler 15 sütun ve satırlar ise 10-1000 arası değişmekte.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

DefObj C, E-F, R
Sub Emre()
    Set Rky = CreateObject("adodb.connection")
    Set fso = CreateObject("scripting.filesystemobject")
    For Each evn In fso.getfolder(ThisWorkbook.Path).Files
        If Not evn.Name Like "*" & ThisWorkbook.Name Then
            Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data Source=" & _
            evn & ";Extended Properties=""Excel 12.0;hdr=no"""
            Set rs = Rky.Execute("Select * from [Sayfa1$]")
            Range("A65536").End(3)(2, 1).CopyFromRecordset rs
            rs.Close: Rky.Close
        End If
    Next evn
    Set rs = Nothing: Set Rky = Nothing: sorgu = ""
    Set fso = Nothing: Set evn = Nothing
End Sub

 

[ahsah]

Cevabınız için teşekkür ederim
tek bir sorun var
İlk satır (Satır başları) listeye dahil olmasın. Bunun için ne yapılabilir ?

 

[Murat OSMA]

Rica ederim..

hdr=no yazan yeri hdr=yes yapın.

 

[ahsah]

Tekrar teşekkür ederim.

 

[Murat OSMA]

Hoşça kalın !

 

[ahsah]

Merhaba Murat Bey

Örnek klasörde problemsiz çalışıyordu. Ancak esas dosyaya uyguladığımda ilk iki satır yazıyor yalnız son dosyayı tam aktarıyor.
dosya ekete

 

[Murat OSMA]

Sonradan değişen dosyalarla kesinlikle ilgilenmiyorum.

Hoşça kalın !

 

[ahsah]

Hoşça kalın

 

[ahsah]

Teşekkür ederim