başlıkları aynı dosyaların verisini raporlamak

[fcakir]

Merhaba arkadaşlar,

bir klasördeki aynı başlıkları olan dosyaları başka bir dosyada rapor olarak listelemek istiyorum.excel 2007 kullanıyorum.

sorum şu:


ben excelde bir form oluşturdum. bunu 100 kadar elemana düzenli olarak e-postalıyorum. onlar da doldurup geri gönderiyor. Bu gelenler bir klasörde toplanıyor. Ben bunları tek tek değilde hepsini seçerek içindeki cevapları rapor isimli dosyamda listesini almak istiyorum. nasıl yapabilirim?

örnek dosyalar ektedir. şimdiden teşekkür ederim.

 

[PHÖNİX1]

aynı soru

aşağı yukarı aynı soruyu bende sordum ama cevap alamadım

müşteri borç bilgileri altında

bir sayfaya müşteri adı vs. yazdığımda bir dosya açılsın oraya kayıt etsin diye

 

[ziya]

Bu konuda faydalanabileceğiniz ve daha önce cevaplanmış pek çok örnek var. Benim tesbit ettiklerim.
http://www.excel.web.tr/showthread.php?t=45811

http://www.excel.web.tr/showthread.php?p=246330&highlight=verileri+tek+dosyada#post246330

Ayrıca şu linkten ulaşabileceğiniz bir arama sonuç sayfası;
http://www.excel.web.tr/search.php?searchid=558971

Kolay gelsin.

 

[fcakir]

Bu konuda faydalanabileceğiniz ve daha önce cevaplanmış pek çok örnek var. Benim tesbit ettiklerim.
http://www.excel.web.tr/showthread.php?t=45811

http://www.excel.web.tr/showthread.php?p=246330&highlight=verileri+tek+dosyada#post246330

Ayrıca şu linkten ulaşabileceğiniz bir arama sonuç sayfası;
http://www.excel.web.tr/search.php?searchid=558971

Kolay gelsin.

merhaba yazdığınız linklerde arama sayfasında sonuç bulunmuyordu. diğer linklerdeki konuysa sorumla aynı değildi. zaten çok araştırma yaptım ama böyle bir soru bulamadım o nedenle yazma ihtiyacı oldu. yine de teşekkürler.

 

[Skorpiyon]

Sayın fcakir,

Ek'li dosyayı inceleyiniz. Dilerim işinizi görür. Rapor.xls kitabındaki düzenlemeyi yaparak butona basınız.

 

[fcakir]

Şaban Bey sağolun. yazdıklarınızı yaptım. çalışıyor. ben ordaki 1,2,3... isimlerini deneme amaçlı yazdım. o sorun değil. Peki bu isimleri makro kendisi alsa nasıl olur. Ben bir klasörü göstereyim o ordaki tüm dosyaların verilerini bu şekilde alsın. bunu yaparsanız çok memnun olucam. şimdiden teşekkür ederim.

 

[Skorpiyon]

Sayın fcakir,

Kapalı dosyadan veri alma konusunda çok fazla bilgim yok. Makro kaydet yöntemi ile ulaştığım bu bilgiden başka, üzülerek belirteyim yardımcı olamayacağım. Dosya isimlerinin bu şekilde olması şu an için en uygun ve kolay çözüm.

Yalnız dosya isimleriniz sabit ise kodlarla 1 defaya mahsus her biri açtırılıp, içindeki bilgi alınıp tekrar kapattırılmak sureti ile birşeyler yapılabilir.

 

[fcakir]

mesajınız için teşekkür ederim. işin aslı şu: ben her seferinde sadece başlıkları olan boş rapor.xls dosyasını elemanlara gönderecem. onlar da kendilerine ait bilgiyi doldurup dosyanın adını kendi 6 haneli personel kodu olarak değiştirip bana geri gönderecekler. ve bu dosyalar bir klasörde toplanacak. o nedenle bizim makro bu klasördeki tüm gelen dosyalardan bilgiyi almalı. o dosya isimlerini biz elle yazmayalım. makro yapsın. çünkü sayısı çok. inşallah istediğimi anlatabilmişimdir ve bilen biri yardımcı olur.:roll:

 

[Skorpiyon]

Sayın fcakir,

Belirtiğim gibi benim yapabileceğim yöntem biraz uzun olur. Ama dosya isimleriniz ve gelen dosyaları koyduğunuz klasör sabit ise yani hep aynı isim ise istediğinizi yapabilirim.

 

[fcakir]

evet dosya isimleri sabit ve çok sayıda 100 kadar. ve aynı klasörde. yanlız bu dosya isimlerini burda veremiyorum. çünkü belli değil. ancak 6 haneli sayılar olacak (123456.xls gibi). bu bilgiler umarım yeterlidir.

(Benim burda bir yerde gördüğüm bir yazıda (makroyla sanırım) bir klasördeki dosya isimleri excel de sayfaya listelenebiliyor)

 

[Skorpiyon]

Sayın fcakir,

Aşağıdaki dosyayı inceleyin. Sanırım bu sefer istediğiniz gibi oldu. Dosya içindeki açıklamaları dikkatli bir şekilde okuyarak uygulayın. Takıldığınız yer olursa buraya yazarsınız.

 

[fcakir]

teşekkür ederim. dosyada söylediğiniz değişikliği yaptım ancak çalıştırdığımda

kod sayfasında
With Application.FileSearch satırını sarıya boyalı olarak gösterip şu hatayı verdi:
run time error '445': object doesnt support this action

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Klasör yolunun c:\gelenler olduğu kabul edilmiştir.

Sub Bilgileri_Aktar()
klasor = "c:\gelenler\"
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(klasor).Files
Set baglanti = CreateObject("ADODB.Connection")
Yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & klasor & dosya.Name & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open Yol
Set rs = baglanti.Execute("[sayfa1$a2:g65536]")
[a65536].End(3).Offset(1, 0).CopyFromRecordset rs
Next
rs.Close
baglanti.Close
End Sub

 

[fcakir]

çok teşekkür ederim. normal çalışıyor.

Sağolun. iyiki sizin gibi yardım seven insanlar var.

:hey:

:mutlu:

 

[Skorpiyon]

Bende teşekkür ederim Levent Hocam.