أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تثبيت الكود علي خليه معينه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد

السلام عليكم ورحمة الله اخواني اساتدة المنتدى اصحاب الخبرة عندي مجلد (test) بداخله مجلد اخر(test2) , وعندي ملف اكسيل هذ ..



25-05-2019 12:59 مساء
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 

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


اخواني اساتدة المنتدى اصحاب الخبرة


عندي مجلد (test) بداخله مجلد اخر(test2)  , وعندي ملف اكسيل هذا فيه اكثر من 300 صفحة عمل من ضمنها ("الرئيسية") , والمطلوب بعد ادنكم هو : كود VBA ينسخ كل صفحة على حدى في ملف اكسيل جديد ويسميه على اسم الصفحة  ويحفظها في مجلد (test2) ويشمل هذا الصفحات المرقمة فقط  ,


يعني صفحات من 1 الى اخر رقم


النتيجة المطلوبة  كما في الصورة التي تمثل داخل مجلد (test2)


جزاكم الله خيرا

 
 
  test.rar   تحميل rar مرات التحميل :(5)
الحجم :(51.409) KB







25-05-2019 03:09 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1431
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 8892
الاعجاب : 149
 offline 
look/images/icons/i1.gif نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد
استخدم الكود التالى عله يفى بالغرض
Sub Alsaqr()
Dim i%, wb As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To Sheets.Count - 1
Set wb = Workbooks.Add
ThisWorkbook.Worksheets(i).Copy After:=wb.Worksheets(wb.Worksheets.Count)
wb.Worksheets(1).Delete
wb.SaveAs ThisWorkbook.Path & "\test2\" & i - 1
wb.Close False
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

ولو الملف به أكواد احفظ الملفات بصيغة xlsm مثلا بالكود التالى
Sub Alsaqr()
Dim i%, wb As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To Sheets.Count - 1
Set wb = Workbooks.Add
ThisWorkbook.Worksheets(i).Copy After:=wb.Worksheets(wb.Worksheets.Count)
wb.Worksheets(1).Delete
wb.SaveAs ThisWorkbook.Path & "\test2\" & i - 1, 52
wb.Close False
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: حسين مامون، ali mohamed ali، محمد الدسوقى، YasserKhalil، مدحت حافظ،




25-05-2019 03:22 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد
وعليكم السلام
يمكنك استخدام هذا الكود
Sub Splitbook2()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

او الإستعانة بهذا الرابط لأستاذنا الكبير ياسر خليل ابو البراء له منا كل المحبة والإحترام
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


أثارت هذه المشاركة إعجاب: Eslam Abdullah، حسين مامون، محمد الدسوقى، مدحت حافظ،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


25-05-2019 06:17 مساء
مشاهدة مشاركة منفردة [3]
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 
look/images/icons/i1.gif نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد
استاد Eslam Abdullah 
عمل رائع أسأل الله أن يجعله في ميزان حسناتك
تحياتي


أثارت هذه المشاركة إعجاب: Eslam Abdullah، مدحت حافظ،




25-05-2019 06:27 مساء
مشاهدة مشاركة منفردة [4]
حسين مامون
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 57
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 2
قوة السمعة : 79
الاعجاب : 17
 offline 
look/images/icons/i1.gif نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد
استاد ali mohamed ali
حفظك الله وجعل سائر اعمالك الصالحة في ميزان حسناتك
تحياتي


أثارت هذه المشاركة إعجاب: Eslam Abdullah، ali mohamed ali، مدحت حافظ،




25-05-2019 07:49 مساء
مشاهدة مشاركة منفردة [5]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد
عفوا استاذ اسلام
بارك الله فيك وجزاك الله كل خير -لم انتبه لمشاركة حضرتك اعذرنى من فضلك 
تقبل الله منكم سائر الأعمال

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، حسين مامون، Yasser Elaraby، مدحت حافظ،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


26-05-2019 12:35 صباحا
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1431
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 8892
الاعجاب : 149
 offline 
look/images/icons/i1.gif نسخ صفحات اكسيل وحفظ كل واحدة في ملف جديد داخل مجلد

الحمد لله على حل مشكلتك استاذ حسين


 

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


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، حسين مامون، Yasser Elaraby،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فتح ملف اكسيل جديد تحتوى صفحاته على مبيعات مفصله لكل عميل عبدالرحمن صبحى
5 176 محمود ابو الدهب
تحويل صفحات اكسيل الى تطبيق اندرويد للهاتف النقال زياد عبد الجليل
0 1462 زياد عبد الجليل

الكلمات الدلالية
مجلد ، داخل ، جديد ، واحدة ، وحفظ ، اكسيل ، صفحات ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:31 صباحا

أعلن هنا
أعلن هنا
أعلن هنا