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

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


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





تجميع العديد من الملفات في ملف واحد

السلام عليكم و رحمة الله لدي العديد من الملفات حوالي 265 ملف و كل ملف يحتوي معلومات معينة و عدد الاوراق اثنان و نفس الا ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


26-03-2020 06:06 مساء
نجيب12
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2019
رقم العضوية : 17178
المشاركات : 6
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-7-1979
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 

السلام عليكم و رحمة الله 
لدي العديد من الملفات حوالي 265 ملف و كل ملف يحتوي معلومات معينة و عدد الاوراق اثنان و نفس الاسم للاوراق  و كل ملف باسم معين  و نفس الجدول في الاوراق كلها 
اقوم بالتجميع بملف ماكرو  حيث يقوم بالتجميع من كل الملفات  و كل ملف على حدى   . يقوم بفتح الملف و اخذ المعلومات الى  ملف التجميع  و يغلقه و من ثم الى باقي الملفات 
عند كتابتي للماكرو اكتبه 256 مرة  و احدد اسم الملف المراد اخذ المعلومات منه و نسخ و لصقها الى ملف التجميع .
و الحيلة التي استعملها هي  استعمال ليست في الاكسال و تعيين مسار الملفات حيث يضع لي كل الملفات الموجودة بالمجلد  و من ثم انسخ نفس الماكرو في صفحة الاكسال و بمعادلة فوركاب اقوم بتغيير اسم الملف في المكرو و  يقوم بوضع 256 مكرو منفرد و اجمعها بالنسخ و اللصق في الموديل و اقوم بتطبيق المكرو 
. اريد وضع مكرو واحد اوضح له عدد او مكان الملفات مهما كان اسمها و مهما كان تعدادها و هو يقوم بالتجميع في الصفحة .
و هذا مثال  للعمل على ملف واحد 
Sub nad()
Workbooks.Open Filename:= _
"C:nadjibRD1_120101.xlsm"
 ActiveSheet.Unprotect Password:="12"
Sheets("RD").Range("a2:K200" & Cells(Rows.Count, "c").End(xlUp).Row).Copy
    Workbooks("ALL.xlsm").Sheets("n").Activate
     Workbooks("ALL.xlsm").Sheets("n").Range("c" & Rows.Count).End(xlUp).Rows.Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues
Windows("RD1_120101.xlsm").Activate
  Application.CutCopyMode = False
    ActiveWindow.Close
 
   End Sub


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




26-03-2020 06:33 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تجميع العديد من الملفات في ملف واحد
وعليكم السلام أخي الكريم
ارفق نموذجين من الملفات التي تقوم بتجميعها وضع معهما ملف ثالث فيه شكل النتائج المتوقعة .. وهل سيتم التعامل مع ورقة واحدة في كل ملف من الملفات التي تتعامل معها أم التعامل مع الورقتين ؟ وإذا كان التعامل مع الورقتين هل سيكون التجميع لكل البيانات من كلتا الورقتين أم أن لكل ورقة منهما سيكون هناك ورقة تجميع منفصلة .. الأفضل وضع شكل النتائج المتوقعة

26-03-2020 07:10 مساء
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif تجميع العديد من الملفات في ملف واحد
تم تعديل الموضوع لوضع النص الكودى بين مربع التحرير الخاص به
يرجى اتباع تلك الأمور عند وضع أكواد وذلك بتطبيقه كما بالصورة التالية

GOkhM_2020-03-26_190756
 
 


26-03-2020 09:23 مساء
مشاهدة مشاركة منفردة [3]
نجيب12
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2019
رقم العضوية : 17178
المشاركات : 6
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-7-1979
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif تجميع العديد من الملفات في ملف واحد
ملف all هو ملف التجميع حيث اعتمد عليه في معرفة عدد و اسماء الملفات الموجودة  في المجلد nadjib  و من خلاله اصنع المكرو تلقائي و اجده مكتوب حسب الملفات  في الصفحة name 
و التجميع في الصفحة n 
اريد عمل مكرو واحد يتعرف على كل الملفات في مجلد معين احدده و ياخذ المعلومات من صفحة محددة و يضعها في  ملف التجميع . و ان امكن ان لا يفتح الملفات احسن 
شكرا لاخوتي الكرام
 
 
  ALL.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(739.078) KB
  RD1_120101.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(58.003) KB


27-03-2020 12:26 صباحا
مشاهدة مشاركة منفردة [4]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 232
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2179
عدد الإجابات: 28
 offline 
look/images/icons/i1.gif تجميع العديد من الملفات في ملف واحد
السلام عليكم ورحمة الله
حاول ان تجرب ملف الاول بعد اضافة يوزرفورم لجلب البيانات من اى شيت 
فى اى مكان بالجهاز سواء فى نفس الدرايف او درايف آخر
او على ملف فى مجلد فى نفس الدرايف او درايف آخر
اوملف فى مجلد داخل مجلد
 
 
  ALL.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(117.043) KB


27-03-2020 07:14 مساء
مشاهدة مشاركة منفردة [5]
نجيب12
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2019
رقم العضوية : 17178
المشاركات : 6
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-7-1979
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif تجميع العديد من الملفات في ملف واحد
شكرا استاذ .فكرة جد رائعة الا ان هناك مشكل في الماكرو و الصورة توضح ذلك 
ان صلحت الفكرة هل يمكن تطبيقها دون تعيين الملف . اي تطبيقها على المجلد و ما يحتويه 
 
 
  Sans titre.png   تحميل png Sans titre.png مرات التحميل :(1)
الحجم :(128.382) KB
  Sans titre1.png   تحميل png Sans titre1.png مرات التحميل :(0)
الحجم :(68.687) KB
 


27-03-2020 08:30 مساء
مشاهدة مشاركة منفردة [6]
نجيب12
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2019
رقم العضوية : 17178
المشاركات : 6
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 1-7-1979
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif تجميع العديد من الملفات في ملف واحد
عند ترحيل المعلومات  يقوم بالترقيم  و ياخذ 19 سطر من الجدول فقط  .
العملية ناجحة بعد التغيير في المكرو الا انه بقي الترقيم لم استطع نزعه . ان امكن ان ياخد كل المعلومات من لصفحة المطلوبة حت الى السطر 300 مئة و يضع المعلومات كما هي .
اعتذر استاذ شكرا على المجهود و جزاك الله كل خير 
للعلم الرقم الاول حو رقمه الدولي لا يمكن ان نغيره بترقيم 


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
تجميع ، العديد ، الملفات ، واحد ،


 










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

الساعة الآن 09:32 صباحا