hsa100 قام بنشر ديسمبر 5, 2011 قام بنشر ديسمبر 5, 2011 السلام عليكم كيف يمكننى من جمع (Sum) خلايا نطاق معين من أى عدد من الملفات فى نفس الفولدر( test ) عن طريق VBA Code مرفق مثال : جمع خلايا الملفات 1 ، 2 ، 3 فى الملف main فى نفس المكان. وشكرا لكم سرعة استجابتكم test.rar
يحيى حسين قام بنشر ديسمبر 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
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان