MASIGNASUKAv102
6510051498749449419

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

طريقة دمج عدة ملفات إكسل في ملف واحد في عدة صفحات فرعية
Add Comments
5/13/2020

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


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

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




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

اجمع بين العديد من مصنفات 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