macro ile klasördeki dosyaları açma

[muzzymania]

s.a , ben
1)masaüstümde bulunan bir klasör içindeki dosyaları açıp
2)hepsinde aynı olan "DOSYA" adlı sayfadaki a2 : ah12000 aralığındaki tabloyu alıp (tablo 12 000 den azda olabilir değişiyor)

3)bir sayfada alt alta toplasın ,

4) ve açtığı kitabın isminide en son sutuna yazsın istiyorum

çok şey mi istiyorum

2011 yılındaki tüm verileri gün gün excel dosyasına raporlamıştım şimdi onlara ihtiyaç duyuyorum raporlayabilmek için , bunnu yılın tüm günleri için yapacağım için büyük bir yük olacak bana beni bu hamallıktan kurtarırsanız minnettar kalırım

 

[gokhanbek]

Sub dayabul()
'
'

Columns("D").Select
Selection.ClearContents
Range("A1").Select

Klasor = Range("a1").Value
Dim Dosya As String
On Error Resume Next
Dosya = Dir(Klasor & "\*")
Do While Dosya <> ""
i = i + 1
Cells(i, "d").Value = Dosya
Dosya = Dir
Loop
End Sub

 

[muzzymania]

anlatamadım sanıyorum çok afedersiniz , ama ilk satırda takıldı zaten "DOSYA" yazdığım halde.

klasötde farklı içimle 10 kitap olduğunu düşünün her kitabın içinde dosya isimki bir sayfa var o sayfadaki veriyi alıcak

yardım edin lütfen

 

[gokhanbek]

Okadar beni aşar
bende forumdan buldum bunu size yardım olsun diye yolladım

 

[muzzymania]

çok teşekkür ederim ilginize saolun

boyu yeten biri var mı

 

[muzzymania]

çok zor olmasa gerek ama forumda nerede bulabilirim nasıl aramayapabilirim bilmiyorum bu konuda yardımcı olun lütfen

 

[halit3]

çok zor olmasa gerek ama forumda nerede bulabilirim nasıl aramayapabilirim bilmiyorum bu konuda yardımcı olun lütfen

Kapalı dosyalardan veri alma olarak arama yapınız.
örnek olarak aşağıdaki linkdeki dosyayı inceleyiniz.

http://www.excel.web.tr/f117/kapaly-dosyalardan-veri-alma-t68879.html

 

[muzzymania]

çok teşekkür ederim inceliyorum çok güzel kapsamlı bişi olmuş inanılır gibi değil

 

[halit3]

çok teşekkür ederim inceliyorum çok güzel kapsamlı bişi olmuş inanılır gibi değil

Teşekkürler İyi çalışmalar