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



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





طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات

السلام عليكم اريد كود لنسخ الورقة 1 و 2 و 3 الى مصنف جديد بدون المعادلات التي تحتويها و بدون الماكرو ووضعهم في مصنف محدد ..



08-08-2018 07:43 مساء
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 372
الاعجاب : 67
 offline 

السلام عليكم
اريد كود لنسخ الورقة 1 و 2 و 3 الى مصنف جديد بدون المعادلات التي تحتويها و بدون الماكرو ووضعهم في مصنف محدد داخل الكود






08-08-2018 08:07 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 324
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 17
قوة السمعة : 1928
الاعجاب : 501
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
وعليكم السلام اخى الكريم --أين الملف ؟





08-08-2018 09:08 مساء
مشاهدة مشاركة منفردة [2]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 372
الاعجاب : 67
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
استاذي الغالي اليكم الملف
بحيث اريد كل صفحة يتم نسخها في ملف ووضعها في مجلد اين يوجد الملف الرئيسي
 
 
 
  معادلة.rar   تحميل rar مرات التحميل :(6)
الحجم :(25.8) KB






08-08-2018 10:09 مساء
مشاهدة مشاركة منفردة [3]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 372
الاعجاب : 67
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
Private Sub CommandButton51_Click()
    Dim Ws As Worksheet
    For Each Ws In ActiveWorkbook.Worksheets
        On Error Resume Next
        Fname = ThisWorkbook.Path & "الملفالملف" & Ws.Name
        Ws.ExportAsFixedFormat Type:=xlsx, Filename:=Fname
    Next Ws
    MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ...", 64
End Sub

لقد قمت بمحاولة تعديل هذا الكود لكنه ينقل الى نسخة pdf لم اتمكن من الوصول الى نتيجة
 





08-08-2018 10:46 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4000
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 297
قوة السمعة : 11348
الاعجاب : 4035
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
أخي الكريم زياد
جرب الكود التالي عله يفي بالغرض إن شاء الله
* قم بإنشاء مجلد باسم Output في نفس مسار المصنف الحالي

Private Sub CommandButton1_Click()
    Dim wb          As Workbook
    Dim ws          As Worksheet
    Dim sPth        As String

sPth = ThisWorkbook.Path & "\Output\"

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        For Each ws In ActiveWorkbook.Worksheets
            ws.Copy
            Set wb = ActiveWorkbook
            ActiveWorkbook.Worksheets(1).UsedRange.Value = ActiveWorkbook.Worksheets(1).UsedRange.Value
            wb.SaveAs Filename:=sPth & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            wb.Close
        Next ws
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: زياد عبد الجليل،




08-08-2018 11:00 مساء
مشاهدة مشاركة منفردة [5]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 372
الاعجاب : 67
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
استاذ ياسر الكود يعمل بشكل جيد لكن هناك خلل بسيط لقد قمت بوضع الملف الرئيسي داخل مجلد و داخل نفس المجل قمت بانشاء مجلد output الى ان الاوراق المستخرجة لا تدخل داخل المجلد output وانما تظهر خارج المجلد مع المصنف الرئيسي اتمنى ان تكون الاوراق داخل مجلد وليست مبعثرة مع الملف الرئيسي و لك مني جزيل الشكر





08-08-2018 11:03 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4000
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 297
قوة السمعة : 11348
الاعجاب : 4035
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
يوجد قبل اسم المجلد Output باك سلاش وكذلك بعده ، ولكن لا أدري سبب عدم ظهور الباك سلاش في الكود ..
أرجو من الأخ ياسر العربي معرفة السبب ومعالجة الأمر لأنني لاحظت الأمر مراراً  ......

أثارت هذه المشاركة إعجاب: زياد عبد الجليل،




08-08-2018 11:46 مساء
مشاهدة مشاركة منفردة [7]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 372
الاعجاب : 67
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
اعتقد انني وجدت الحل ولقد جربته و نجح اليكم الكود مع التعديل
    Dim wb          As Workbook
    Dim Ws          As Worksheet
    Dim sPth        As String
        Dim Fname As String
    For Each Ws In ActiveWorkbook.Worksheets
    
 Fname = ThisWorkbook.Path & "\ziyad\"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
            Ws.Copy
            Set wb = ActiveWorkbook
            ActiveWorkbook.Worksheets(1).UsedRange.Value = ActiveWorkbook.Worksheets(1).UsedRange.Value
            wb.SaveAs Filename:=Fname & Ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook

            wb.Close
        Next Ws
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

شكرا للاستاذ ياسر على مساعدته و شكرا للجميع

أثارت هذه المشاركة إعجاب: YasserKhalil،




09-08-2018 12:02 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4000
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 297
قوة السمعة : 11348
الاعجاب : 4035
 offline 
look/images/icons/i1.gif طلب كود لنسخ اوراق العمل ووضعهم في ملف بدون الماكرو و المعادلات
بارك الله فيك أخي الكريم زياد
بعد الإطلاع على كودك لم ألحظ تعديل سوى أنك غيرت اسم المتغير فقط sPth إلى FName .. ووضعت الباك سلاش كما أشرت إليك

عموماً الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: زياد عبد الجليل،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
النسخة الحديثة و العجيبة من Internet.Download.Manager.v6.30.10 stenour
2 214 العوامى 3
اريد التعديل على كود اختيار الطابعات وعدد النسخ malik
2 270 malik
كيفية منع نقل البرامج المصممة علي الاكسيل من النقل او النسخ yousifaziz
4 453 أباالحسن
طلب تطبيق فكرة كود مرفق لنسخ المعادلات على ملف أخر محمد طولان
7 368 Yasser Elaraby
استخدم كود save Ase الذي يغنيك عن عمل كود لنسخة احتياطية زياد عبد الجليل
9 655 YasserKhalil

الكلمات الدلالية
لنسخ ، اوراق ، العمل ، ووضعهم ، بدون ، الماكرو ، المعادلات ،


 







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



الساعة الآن 01:46 صباحا

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