12 dosyadan veri alma aynı klasörde...!!!!

[vimpir]

12 tane ayrı ayrı exceli olacak onlara girilmiş değerler günlük olarak sayfa sayfa tutulacak toplamlar hep aynı yerlere yazılacak özet tablosuna gelmesini istiyorum kapalı dosya veri almada yapabilirmiyiz... özet doyasına bir buton konulabilir mesela veri al diye ama bütün excellerim hep aynı klasörün içinde dursun... umarım anlatabilmişimdir yardımcı olursanız sevinirim...

 

[Huseyinkis]

Ekli kodları incelermisiniz.

Sub Deneme()
    Dim Yol As String, Dosya As String
    Dim K2 As Workbook
    On Error Resume Next
    'macroyu  çalıştıracağınız dosyayı başka klasörde olsun.
    Yol = "S:\sisdage\Dys2009\Digration\satyatları\2 LİSTELERİMİZ\" 'dosyaların bulunduğu klasör..
    Dosya = Dir(Yol & "*.xls")
    Do While Len(Dosya) > 0
    Set K2 = Workbooks.Open(Yol & Dosya, False, False)
    Windows(Dosya).Activate
    Sheets("Fiyat").Select 'açılan dosyanın sayfa ismi
    aaa = Cell(1, 1).Value ' dosyada toplamın yazılı olduğu satır.
    Windows("İşlemimtoplanacağıdosya.xls").Activate 'işlem yapıcağınız dosya ismi makro bu dosyada çalışacak
    Sheets("Toplam").Select 'toplamları getireceğiniz sayfa
    sonsat = Cells(Rows.Count, 1).End(3).Row + 1
    Cells(sonsat, 1).Value = aaa
    K2.Close True
    Dosya = Dir()
Loop
End Sub