لو تكرمتم اريد كود استخراج الشيتات الى ملفات منفصله

[دكتور محمد صلاح]

الاخوة الكرام لدى ملفات اكسيل فيها اكثر من 200 شيت واريد استخراج كل الشيتات الموجودة فى الملف الى ملفات منفصله بنفس اسم الشيت مرة واحدة  وشاكر لكم تعاونكم الكريم

 

احترامى

[طارق محمود]

السلام عليكم

أخي العزيز

لابد من ملف (مثال)

لتساعد من يريد المساعدة

ولتحذف منه جميع الشيتات وتبقي علي 3 أو 4 فقط

[دكتور محمد صلاح]

جزاك اله خيرا اخى الكريم على الرد فقد قمت بتجربة هذا الكود وظبت معايا  بعون الله 

 

Sub SaveEachWS()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:=ws.Name
ActiveWorkbook.Close
Next ws

End Sub

 

فجزاكم الله خيرا على الاهتمام

 

محبكم 

دكتور محمد صلاح