طلب كود لنقل بيانات

[egyblind]

الأعضاء الكرام

 

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

 

لدى ملف رئيسي أريد وضع الكود به ليقوم بفتح اختيار المجلد ثم نقل البيانات المحددة من الملفات وكل منها به ورقة واحدة إلى الملف الرئيسي بيانات كل ملف في صف وفي نهاية البيانات مسار الملف

بيانات الملفات رأسية لكن أريد نقلها أفقي في الملف الرئيسي باستخدام transpose

ملاحظة المجلد يحتوي على مجلدات فرعية أريد عم كل الملفات بداخلها.

 مرفق شكل الملف الرئيسي وبه أسماء الخلاية المراد نقلها من الملفات الأخرى الموجودة داخل المجلد.

 

 ارجو المساعدة من فضلكم، جزاكم الله كل الخير. 

master.xls

تم تعديل فبراير 1, 2018 بواسطه egyblind

[محمد طاهر عرفه]

راجع هذا الموضوع

 

[egyblind]

أ. محمد

 

أشكرك على هذا البرنامج

 في الحقيقة قمت بالتجربة الآن، للأسف تظهر لي رسالة خطأ كلما ضغطت على أي من أزرار البرنامج "can't find project or library"  وطبعًا يفتح لي الكود.

 ربما لاختلاف نسخة ال office? غير موضح بالبرنامج أقل نسخة يمكن استعماله عليها.

 لكن المهم لي إنني لدى مجلد به مجموعة من المجلدات الفرعية فلو أمكن عملهم في مرة واحدة أكيد يكون أفضل خاصة أنني لم أجد brows لكن أقوم بتحرير المسار يدوياً

كما أني كما كتبت في الموضوع أريد البيانات أن تنسخ في ملف معين به رؤوس الأعمدة وبه بيانات سابقة أيضًا

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

  أثق أنني أجد من يساعدني

 معزرة لو لم أتمكن من التعامل بشكل جيد مع البرنامج فكما ذكرت كوني كفيف اتعامل فقط بلوحة المفاتيح ولو استطعنا كتابة كود ثابت أكيد سيكون أفضل فقط أقوم بتحديد المجلد الرئيسي ويقوم بالنقل في الملف الرئيسي بعد آخر بيان مباشرة ..

 أكرر الشكر لحضرتك ولكل الأعضاء.

 

تم تعديل فبراير 1, 2018 بواسطه egyblind
بعد تجربة البرنامج

[egyblind]

أعزائي الأعضاء الكرام ارجو مساعدتكم. أطلب كود يقوم بالمهمة المشروحة في أول مشاركة..

 

تم تعديل فبراير 1, 2018 بواسطه egyblind

[محمد طاهر عرفه]

صراحة ليس لدي سجل بالتوافق للنسخ المختلفة و لكن مع نسخ الاوفيس القديمة يمكن استخدام الاصدرات الاقدم من الملف

عند التجميل يوجد فى المكتبة 5 اصدارات من البرنامج

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

DataCollectorWithSheet.xlsm

قم بكتابة المسار فى الخلية J7

و قم بكتابة المجال المطلوب استخراجه فى الخلية   J11

ثم اضغط على زر استخراج البيانات

و يتم الاستخارج من ورقة العمل الاولي من كل ملف

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

مع ملاجظة انه مع تقدم الاصدارات تم اضافة خصائص مختلفة جديدة كما هو فى وصف الملف بالمكتبة

[egyblind]

اشكرك محمد

 لكن لا يمكن وجود كود يقوم بهذا الأمر للأسف أريد خاصية transpose  والإصدار الخامس الموجودة به لا يوجد به شيت لكتابة المسار وغيره، غير إن الجهاز الذي أعمل عليه الآن به نسخة أوفيس2003  وهذه ليست المشكلة يمكن تغييرها لكن التعامل مع الواجهة ليس أفضل شئ لأني أريد تثبيت كل شئ وكل مرة أفتح الكود يقوم بجلب البيانات لنفس الشيت الرئيسي وليس عمل آخر جديد.

  انتظر الحل من الخبراء بالمنتدى

[أسامة البراوى]

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

بالنسبة لطلبك افحص الملف التالى وهو يعمل من خلال تلك الخطوات

اولا: حدد مكان الملفات المطلوب استدعاء او جلب البيانات منها حتى ولو فى نفس المجلد 

اثانيا: يطلب البرنامج منك عدة استفسارات ليقوم بعمله حسب رغبتك مع التأكيد ان الملفات يوجد بها ورقة عمل بأسم 

 "Data Form" ,

والا يكون غير مطابق

 

وفى النهاية يقوم باظهار تقرير يوضع عدد الملفات الى تم اضافة بياناتها و عدد الملفات التى تم تحديث بياناتها وكذلك عدد الملفات التى لا تطابق النموذج المطلوب

 

Collecting Data From Files.rar

تم تعديل فبراير 3, 2018 بواسطه أسامة البراوى

[egyblind]

أ. أسامة

 

اشكرك مقدمًا على هذا الجهد الرائع والمميز

جاري التجربة على الملفات الموجودة لدى، لكن تجربة النماذج المرفقة مع الكود رائعة.

  أكرر الشكر والتقدير لهذا الجهد والعمل المميز.

  جعله الله في ميزان حسناتك.