طريقة دمج عدة ملفات إكسل في ملف واحد في عدة صفحات فرعية

طريقة دمج عدة ملفات إكسل في ملف واحد في عدة صفحات فرعية

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

نعرض معكم الفيديو والشرح التالي لطريقة دمج عدة ملفات الإكسل في ملف واحد في عدة صفحات فرعية في ملف واحد 

المصدر

وهنا الشرح بترجمة كتابة بترجمة جوجل 

اجمع بين العديد من مصنفات excel في مصنف واحد

قد نحتاج إلى الجمع بين العديد من مصنفات excel في مصنف واحد لتحليل أو تقديم المعلومات بشكل أفضل. على الرغم من أنه يمكن القيام بذلك يدويًا ، عن طريق نقل أو نسخ جميع أوراق العمل من مصنفات مختلفة إلى مصنف واحد ، إلا أن ذلك قد يستغرق وقتًا طويلاً وعرضة للأخطاء. علاوة على ذلك ، إذا كان هناك عدد كبير من المصنفات / أوراق العمل ، فإن المشكلة أكبر.

ومع ذلك ، لدينا حل لهذا الأمر ولن يستغرق الأمر أكثر من بضع ثوان حتى يتم دمج جميع المصنفات في كتاب واحد. إليك كود VBA الذي يمكن أن يساعدنا في تحقيق ذلك. حتى أولئك الذين ليسوا على دراية جيدة بـ VBA يمكنهم القيام بذلك بسهولة عن طريق اتباع الخطوات حول كيفية استخدام هذا الرمز:

كود VBA عن ملفات XLSX

Sub GetSheets()
Path = ""
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub