Farklı klasorlerden alınan bılgının bırlestırılmesı

[bono]

aşağıdaki kodu bu sayfalardan buldum. Tek bir konuda çaresiz kaldım.

Bir klasör altındaki dosyaların tamamını başka bir dosyada aşağıdaki kodla birleştirebiliyorum. Ancak I kolonuna dosya adını yazdıramıyorum. Bu konuda yardım ederseniz çok sevinirim

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("e:\GECICI\personel\").Files
Set baglanti = CreateObject("ADODB.Connection")
Yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=e:\GECICI\personel\" & dosya.Name
baglanti.Open Yol
Set rs = baglanti.Execute("[a2:h65536]")
sonsat = [a65536].End(3).Row + 1
Cells(sonsat, "I") = dosya.Name
Cells(sonsat, "a").CopyFromRecordset rs
rs.Close
baglanti.Close
Next
End Sub

 

[hamitcan]

Bu kod, dosya ismini yazıyor, sorun göremedim.

 

[bono]

selam üstadım

bu kod dosya ismini yazıyor ancak sadece ilk satırına. devamındaki satırlara dosya ismini getirmiyor. her kopyaladığı satırın yanına dosya isminin gelmesi konusunda yardımcı olabilirseniz sevinirim

 

[hamitcan]

Sub verial()
a = 2
Cells.Clear
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("e:\GECICI\personel\").Files
    Set baglanti = CreateObject("ADODB.Connection")
    Yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=e:\GECICI\personel\" & dosya.Name
    baglanti.Open Yol
    Set rs = baglanti.Execute("[a2:h65536]")
    sonsat = [a65536].End(3).Row + 1
    Cells(sonsat, "a").CopyFromRecordset rs
    sonsat = [a65536].End(3).Row + 1
    Range(Cells(a, "i"), Cells(sonsat, "i")) = dosya.Name
    a = sonsat
    rs.Close
    baglanti.Close
Next
Cells(a, "i").Clear
End Sub

şeklinde dener misiniz ?

 

[bono]

çok teşekkür ederim üstadım

 

[bono]

hamitcan üstadım bir soru daha sorabilirmiyim?

aşağıda açtığım konuya şu ana kadar yanıt alamadım. Bu öğretmen arkadaşıma yardımcı olabilmek için yapmaya çalıştığım kısa bir yazılımdı aslında. Bitiremediğim için halen manuel yapıyor işlemleri. Konu buna benzediği için yardımcı olabileceğini düşündüm.

http://www.excel.web.tr/f48/dongunun-tamamlanmamasy-sorunu-t89029.html

 

[hamitcan]

Sorunuz uzun olduğu için kimse ilgilenmemiş, sorunuzu kısım kısım sorun. Bu şekilde daha çabuk yanıt bulabilirsiniz.