Tek dosyada farklı excel dosyalarını açabilmek

[kozgunen]

Selamlar,
Ã?nceki başlıklardan elimden geldiğince arama yaptım ama bir yere kadar gelebildim.
Sıkıntım şu,
Elimdeki epey bi excel dosyası altınaki belirli verileri (Diyelim ki A, B, C sütunlarının 11 - 27. satırları) tek bir dosyada birleştirmek istiyorum
Buraya kadar mesele yok.
Daha önce forumdan ExecuteExcel4MAcro komutunun bulunduğu bir takım kodları kendime göre uyarlamaya çalıştım ama esas ihtiyacım olan noktada takıldım. Þöyle ki :
1. Niyetim farklı dosyaların yukarıda koordinatlarını verdiğim verilerini dikey değil yatay biçimde sıralamak
2. Ayrıca her dosyadan veri alındıktan sonra bir sonraki dosyanın verisinin yanına yazılması yerine bir alt satıra yazılması benim için önemli.

Þimdiden çok teşekkürler
Saygılarımla

 

[kozgunen]

Tekrardan merhaba,
Düzenli olarak "Solunum Fonsiyon Testleri" yapıyorum ve kullandığım yazılım veriyi excel formattında export edebiliyor

İki tane dosya ekliyorum. Bunlardan 1.xls dosyası klasik olarak export edilmiş bir dosya örneğidir. Dosya içerisindeki renkli hücreler ilgi duyduğum kısımlardır

İkinci dosya olan Sonuç.xls ile uygun makro ile elimdeki tüm dosyaları (300 civarı dosya bulunmakta) dönüştürmek istediğim halidir

Yardımcı olabilirseniz sevinirim
Teşekkürler

 

[Levent Menteşoğlu]

300 civarındaki dosyanızın bulunduğu klasörün yolunu yazarmısınız. Ayrıca bu klasörde sadece excel dosyaları bulunmalıdır. Buna göre size bir kod önereceğim.

 

[kozgunen]

Merhaba,

Dosyaları C:\excel altına atabilirim

Þimdiden çoook teşekkürler

 

[Levent Menteşoğlu]

Bu akşam üzerinde çalışacağımdan cevabımı yarın alabilirsiniz.

 

[kozgunen]

Þimdiden elinize sağlık

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Burada dosyaların C:\excel klasörü altında olduğu kabul edilmiştir. Yalnız burada dikkat edilmesi gereken sayfa isimlerinin her dosyada aynı olması gerekliliğidir. Sizin örneğinize göre sayfa ismi 1 (bir) olarak dikkate alınmıştır.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\excel").Files
sat = WorksheetFunction.CountA(Columns(2))
For sut = 1 To 30
If sut < 10 Then Cells(sat + 1, sut) = ExecuteExcel4Macro("'C:\excel\[" & dosya.Name & "]1'!R" & sut & "C2")
If sut >= 13 Then Cells(sat + 1, sut - 2) = ExecuteExcel4Macro("'C:\excel\[" & dosya.Name & "]1'!R" & sut & "C3")
Next: Next
End Sub

 

[kozgunen]

Sayın leventm,
Ã?nemli bir sorunumda yardımcı oldunuz
çok çok çok teşekkürler...
İyi günler.
:lol: :lol: :lol: