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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil استخراج القيم المكررة والفريدة معا اكسيل اسئله واجابات


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


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

Preview




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

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



25-05-2019 12:59 مساء
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 122
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 9
قوة السمعة : 445
الاعجاب : 33
 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
المشاركات : 1493
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 80
قوة السمعة : 9582
الاعجاب : 89
موقعي : زيارة موقعي
 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




25-05-2019 03:22 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1540
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 65
قوة السمعة : 7162
الاعجاب : 141
 Online 
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

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




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

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





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





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



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

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

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


 

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







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الصفحات على شكل اكسيل دون حفظ الدوال والارتباطات bachiri401
0 102 bachiri401
هل يمكن تسمية صفحات الاكسيل بأسماء موجودة فى عمود moneer
10 459 YasserKhalil
فتح ملف اكسيل جديد تحتوى صفحاته على مبيعات مفصله لكل عميل عبدالرحمن صبحى
5 682 محمود ابو الدهب
تحويل صفحات اكسيل الى تطبيق اندرويد للهاتف النقال زياد عبد الجليل
0 2732 زياد عبد الجليل

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


 








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

الساعة الآن 10:07 مساء

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