hsa100 قام بنشر ديسمبر 5, 2011 مشاركة قام بنشر ديسمبر 5, 2011 السلام عليكم كيف يمكننى من جمع (Sum) خلايا نطاق معين من أى عدد من الملفات فى نفس الفولدر( test ) عن طريق VBA Code مرفق مثال : جمع خلايا الملفات 1 ، 2 ، 3 فى الملف main فى نفس المكان. وشكرا لكم سرعة استجابتكم test.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر ديسمبر 5, 2011 مشاركة قام بنشر ديسمبر 5, 2011 السلام عليكم و رحمة الله أي جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.