çalışma kitaplarını bir sayfada toplamak

[MURATPLR]

Merhabalar
her gün için ayrı kayıt tutmuş olduğum bir aylık yani otuzbir günlük çalışma kitabım var bu kitaplardaki sheet 1 deki verilerin hepsini çalışma kitaplarını açmadan kod vasıtasıyla toplam isimli çalışma kitabında toplamak istiyorum mümkünmüdür acaba
yardımcı olacak arkaşlara şimdiden çok teşekkürler

 

[prmts]

Mümkündür tabi örnek dosya-dosyalar eklemelisiniz. Yada kod arşivinde bir kod uyarlıyabilirseniz buyrun.

Aşağıdaki kod ile "C:\Temp\" klasöründe kapalı durumda olan tüm çalışma 'kitaplarındaki Sheet1 isimli sayfalarında A1:E10 aralığındaki tüm hücreler 'toplanarak, kodun yazıldığı kitapta yine A1:E10 aralığındaki hücrelere yazılırlar.

Const MyPath As String = "C:\Temp\" 
Const MySh As String = "Sheet1" 
Dim MyArg As String 
' 
Sub Test() 
    'Raider 
    Dim MyFile As String 
    Dim i As Long, j As Integer 
    Range("A1:E10").ClearContents 
    MyFile = Dir(MyPath & Application.PathSeparator & "*.xls", vbDirectory) 
    Do While MyFile <> "" 
    If MyFile = ThisWorkbook.Name Then GoTo ResumeSub: 
    MyArg = "'" & MyPath & "[" & MyFile & "]" & MySh & "'!R" 
        For j = 1 To 5 
            For i = 1 To 10 
                Cells(i, j) = Cells(i, j) + ExecuteExcel4Macro(MyArg & i & "C" & j) 
            Next 
        Next 
ResumeSub: 
    MyFile = Dir 
    Loop 
End Sub