ترحيل شيتات او اوراق الي ملف اخر

[جمال جبريل]

لدي ملف به عدة شيتات او اوراق ، واريد ترحيلها الي ملف اخر ، بعد مسح كل المعادلات التي بالاوراق

ترحيل عدة شيتات او اوراق الي ملف اكسل اخر.rar

[ياسر خليل أبو البراء]

أخي الكريم جمال الخطيب

أعتذر للتأخر في الرد على طلبك فقد كنت مشغولاً جداً ، وإليك الطلب الذي طلبته على الرابط التالي بالتفصيل

الرابط من هنا

[جمال جبريل]

شكرا لك على الاهتمام ، ومقدر جدا ظروفك الشخصية ، يكفي انك تعطي بعضا من وقتك للرد علينا ، وربنا يجزيك خيرا ان شاء الله ، ومتاكد انك سوف تنال هذا الجزاء الحسن ان شاء الله.

ولكني جربت هذا الكود على اوفيس 2016 وحدثت مشكلة ، لانني نقلته الي ملف اخر ، فهل هذه هي المشكلة ، ام انها سوف تعمل مع كل الملفات ومع تغيير او اضافة اوراق اخرى للمصنف

 

وممكن تكمل جميلك ، تجعلها مفتوحة ، اي اختار اسم الملف الذي اريد الترحيل اليه ، واختار ايضا المكان الذي احفظه ، خاصة لو  كان ملف جديد

تم تعديل أبريل 24, 2016 بواسطه جمال الخطيب

[ياسر خليل أبو البراء]

أخي الكريم كيف تختار اسم الملف المراد الترحيل إليه ..؟؟؟ الكود يعتمد على التصدير لمصنف جديد وليس إلى مصنف موجود بالفعل ..الأمر مختلف تماماً

أما بالنسبة لمكان الحفظ فيمكنك تغييره من خلال السطر التالي

.SaveAs ThisWorkbook.Path & "\Exported.xlsm", xlOpenXMLWorkbookMacroEnabled