فصل ملف اكسل الى عدة ملفات اكسل

[طبيب جراح]

الاخوة الاعزاء

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

عندي ملف اكسل يحتوي على اكثر من مائة شيت متسلسلة من شيت 1 وحتى 100 

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

حاولت اتبع طريقة احد الاخوة بعمل ماكرو ولكن لم انجح ، وياحبذا لو احد الاخوة يضع فيديو لكي يستفيد الجميع

 

شاكر ومقدر لكم 

[سليم حاصبيا]

جرب هذا الكود مع شرح لكل سطر من الكود باللغة الاجنبية 

Option Explicit
Sub SheetsToWorkbooks()
'Step 1:  Declare all the variables.
    Dim ws As Worksheet
'Step 2: Turn screen updating off to speed up your macro code
    Application.ScreenUpdating = False
'Step 3:  Start the looping through sheets
    For Each ws In ThisWorkbook.Worksheets
'Step 4:  Copy the target sheet to the new workbook
    ws.Copy
'Step 5:  Save the new workbook with sheet name.
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name
    ActiveWorkbook.Close SaveChanges:=True
'Step 6:  Loop back around to the next worksheet
    Next ws
'Step 7: Turn screen updating on
    Application.ScreenUpdating = True
End Sub

 

[Ali Mohamed Ali]

أبدعت فأحسنت استاذى سليم كود ممتاز جعله الله فى ميزان حسناتك

[سليم حاصبيا]

الكود مقتبس من احد المواقع الاجنبية ولا اذكر اسمه

[طبيب جراح]

شكرا والله الف الف شكر ياغالي 

الملف يظهر فيه زر رن يعني الماكرو حيشتغل ان شاء الله 

هاحاول اشغله ولو اني مش عارف كيف يشغلون الماكرو لكن حابحث في اليوتيوب وربنا يسهل

 

شكرا مرة اخرى الله يعطيك العافية واللي عنده شرح كيف اشغل الماكرو ممكن يساعد ويكون الشرح مكمل لبعضه ^.^

 

[Ali Mohamed Ali]

تفضل اخى الكريم بعد اذن الأستاذ سليم الملف به الكود ومرتبط بزر عند الضغط على الزر سوف يقوم الكود بتقسيم الملف الى عدة ملفات منفصلة باسم كل صفحة

ولكن دائما وابدا عود نفسك عند رفع اى مشاركة لابد من رفع الملف معها بتوضيح دقيق عن المطلوب

 

Split.xlsm