كيف يمكننى من جمع (Sum) خلايا نطاق معين من أى عدد من الملفات فى نفس الفولدر( test )

[hsa100]

السلام عليكم

كيف يمكننى من جمع (Sum) خلايا نطاق معين من أى عدد من الملفات فى نفس الفولدر( test )

عن طريق VBA Code

مرفق مثال :

جمع خلايا الملفات 1 ، 2 ، 3 فى الملف main فى نفس المكان.

وشكرا لكم سرعة استجابتكم

test.rar

[يحيى حسين]

السلام عليكم و رحمة الله

أي جرب هذا الكود

Sub Excel4Us()

'Yahya Hussien

Dim FName As String, wbs As Workbook, FileName As String, ArrFile() As Variant, i As Integer

Dim Mainwb As Workbook, NewWb As Workbook

Set Mainwb = ActiveWorkbook

FName = ActiveWorkbook.Path

FileName = Dir(FName & "\*.xls*")

Do Until FileName = ""

    i = i + 1

    ReDim Preserve ArrFile(1 To i)

    ArrFile(i) = FileName

    FileName = Dir

Loop

For i = LBound(ArrFile) To UBound(ArrFile)

    If ArrFile(i) <> Mainwb.Name Then

    Workbooks.Open FName & "\" & i

    Set NewWb = ActiveWorkbook

    NewWb.Sheets(1).Range("A1:b1").Copy

    Mainwb.Sheets(1).Range("a1:b1").PasteSpecial xlPasteValues, xlAdd, False, False

    NewWb.Close False

    End If

Next i

End Sub