جلب بيانات من ملف اكسل آخر

[فـهـد]

 

 

أولا يعطيكم العافية إخواني الأفاضل  

 

 

لدي ملف اكسل رئيسي اسمه Trucks_Daily_Status Updating ،  احتاج انسخ  بيانات  من ملفات اكسل اخرى  ،  المطلوب انه يكون في زرين  الزر Get Info  لما اضغط عليه يفتح لي نافذة لتحديد مسار مجلد ما ( أيا كان مكانه في الحاسوب ) لجلب بيانات الملفات منه ، مهمته لتحديد مسار الملفات المراد أخذ البيانات منها مثلا في مجلد اسمه Folder 1  ، أما الزر الآخر فهي لمسح هذه جدول البيانات

نلاحظ  انه في الملف الإكسل Trucks_Daily_Status Updating   جدول فيه حقول مرتبة  و جاهزة 

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

الحقل Truck_Name ينسخ قيمته من الخلية J2 الموجودة في الملف الآخر

الحقل Driver Name  ينسخ قيمته من الخلية J3 الموجودة في الملف الآخر

الحقل Date In  ينسخ قيمته من الخلية B3 الموجودة في الملف الآخر

الحقل Time In  ينسخ قيمته من الخلية B4 الموجودة في الملف الآخر

الحقل Reasons  فياخذ  كل السطور اللي من  A11 حتى  A15   الموجودة في الملف الآخر و يضعها بكل سطر مختلف بحسب الموجود في الملف الآخر

الحقل Status  فياخذ  من  الحقل B2 الموجودة في الملف الآخر

الحقول Mechanics Name فراح تاخذ بياناتها  من الملف الآخر من الحقول   A18 حتى  A24 و تضعها في حقول ملفنا الرئيسي الأول أفقيا و ليس عموديا (   F6 حتى  K6 ) 

مع العلم أنه ليس من الضروري أن يكون مكتوبا في الملف الآخر ، ممكن يُذكر  فيه اسم شخص واحد أو  اثنين او اكثر أو قد لا يوجد ابدا

أما الحقول Spare Parts  فراح ينسخ بياناتها  من الملف الآخر من الحقول   B32 حتى  B43 و ضعها في حقول ملفنا الرئيسي الأول أفقيا و ليس عموديا (   F6 حتى  K6 )

مع العلم أنه ليس من الضروري أن يكون مكتوبا في الملف الآخر ، فممكن يذكر  فيه اسم قطعة واحدة او اثنتين او اكثر ( قد تصل الى 12 قطعة ) او قد لا يوجد ابدا

 

   أرفقت الملف الرئيسي  Trucks_Daily_Status Updating  و الملفات الأخرى موجودة في مجلد Folder 1  كأمثلة لجلب البيانات منها .

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

بارك الله فيك أخي ابو تامر 

 كنت اكتب  الموضوع في العمل من الظهر ولم انتهي منه الا قبل المغرب   لإنشغالي 

و اعتقد انني  اضفت سطرا في الملف في 

 آخر الأمر بعد تجهيزي للموضوع .. اعتذر 

يتم معالجة الملفات مرة واحدة : بعد ضغط الزر و ظهور النافذة لتحديد المجلد المطلوب لمعالجة كل الملفات مرة واحدة

وليس اختيار ملف واحد في كل ضغطة زر 

 

اعدت تعديل الموضوع أدناه مع المرفقات المعدلة

و اعتذر مرة اخرى للإزعاج

 

 

Daily_truck_updating.zip

[omar elhosseini]

الاخ Fahad141

حسنا الموضوع بسيط

اللهم يسر الله لنا الأمور

1- هل سيتم اختيار ملف في كل مره

أم حسب فهمي للموضوع تتم معالجة كل الملفات في فولدر Folder 1

2-

هل صحيح ام هي من A11 حتى A16

3-

هل صحيح ام هي من A18 حتى A25

وايضا

هل صحيح ام أفقيا و ليس عموديا (  H6  حتى M6)

لاحظ الملف الرئيس هذا الحقل 6 أعمدة فقط

الفرعي 7 أسطر

ايهما هو الصحيح

4-

هل صحيح ام هي من N6 حتي  Y6

ركز واهتم بمراجعة ما تريد قبل ارساله حفاظا علي وقت وجهد الأخرين !!!

بعد اجابتك لهذه التسألات و قبل ارسالها من فضلك قم براجعتها والتأكد من صحتها  ...

تحياتي

[omar elhosseini]

مرحبا اخي Fahad141

لقد اسعدني و امنعني العمل معك في موضوع الصور

 

يتبقي امر يسير

اكد او صحح لي هذه المعلومة

اسم الفلدر متغير ستقوم بإختياره

اما الملفات الفرعية هي كل الملفات في الفلدر المختار

 

ارجو ان تملئ احد الملفات الفرعية يالدتا لعمل التجارب عليه

و حتي لا اجد نوعيات داتا لها معالجة خاصة

تحيات لك

[فـهـد]

جزيت خيرا اخي ابو تامر 

يسر الله امورك كما تيسر للآخرين

و السعادة و الشرف من نصيبي  أنا 

 

 

كلامك صحيح ، اسم الفولدر و مكانه متغير فعلا ، فقط وضعته كمثال

و ايضا كلامك صحيح الملفات الفرعية هي التي بداخل الفولدر المختار

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

نوعية الداتا كلها نفس بعض ، اللهم حروفها قد تطول او تقصر

 

وهذا ملف فرعي مرفق اضافي حاولت ملئه و دمج سطرين عملتهم بلون مختلف كتوضيح ، بإمكانك وضعه داخل المجلد فولدر 1

 

رعاك الله

MX 34.xlsx

[omar elhosseini]

1- هل المدي H33 حتي H44  في الملفات الفرعية

خارج عملية النسخ

2- هل دمج الاسطر منتظم في الملفات الفرعيه ام عشوائي

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

[فـهـد]

لا يوجد ، فقط وضعتها خلايا فارغة بدون اي تنسيق

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

كذلك العمود E سيكون عبارة عن قيمة خلية منسوخة من خلايا وقت من الملف الفرعي

 يمكننا تنسيقها لاحقا لهذين العمودين ، أليس كذلك ؟

 

------------

اضافة 

 تذكرت شيئا قد يهم ،   الخليتين  B3 و B4 في الملفات الفرعية هي في الأصل خليتين مدمجة 

هل ستؤثر هذه عند نسخ قيمتهما فقط للملف الرئيسي ؟

 

 

يعطيك العافية

[omar elhosseini]

للوهله الأوله لللموضوع ظننا انه سهل ويسير

ولكنه  شاق وطويل 

لم اتطرق حتي الأن لعملية النقل

يومين لتجهيز مصفوفة عناوين الملفات الفرعية والملف الرئيسي

ولكني بإذن الله لها

اولا :  لن اقوم بالنسخ فهو مع كثرة الخلايا وعشوائية مكانها سيكون الكود طويل وممل اكثر مما هو طويل فعلا

علاوه علي مشاكل النسخ في حالة الدمج

سوف يتم قراءة الملف الفرعي خلية خلية ثم تعبئة الرئيسى خلية خلية حسب مصفوفات العناوين

ثم اجراء التنسيق علي الرئيسي دفعة واحدة

وعلي ذلك احتاج مثال  لتنسيق العمودين  D  و  E

واذا كان هناك اي تنسيقات خاصه اخري ارجو وضع مثال لها

 

ثانيا : اما بالنسبه ل B3 و B4

لقد لاحظتهما ولن يكون هنا مشكلة 
 

تحياتي

 

 

[فـهـد]

 عملت مثال مباشر لما اتوقعه أن يكون الملف الرئيسي المرفق بعد اخذ المعلومات من الملفات الفرعية المرفقة سابقا

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

 

و أعتذر لإثقالك بالأمر ، فطلباتي دوما  فيها لف و دوران   

Trucks_Daily_Status Updating.xlsx

[omar elhosseini]

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

او عمل مثال من ملفات فرعية ورئيسى

فقد وصلت لمرحلة ضبط التنسيق

ثم يأتي دور المراجعة والتدقيق

لعلي لا اثقل عليك

تحياتي لك

[omar elhosseini]

الحمدلله

لا تنسي تغير هذا السطر في موديول  SetUp

 

Public Const Ext = "*.xls"

الي

Public Const Ext = "*.xlsx"

مع اطيب تمنياتي بالتوفيق

شاهد المرفقات

Test_1.rar

[فـهـد]

اعتذر للتأخير

أرفقت الملفات ، وهي نفس الملفات السابقة

 

 

قمت بالتعديل 

وبعد التنفيذ و اختيار المجلد المطلوب واجهتني رسالة الخطأ التالية:

 

 

جربت ازالة الفراغ من اسم الملفات كلها لكن نفس المشكلة

 

بارك الله فيك و في وقتك

Folder 1.rar

[omar elhosseini]

تفضل اخي

 

 

Test_2.xlsm

[فـهـد]

مع أن قسم ال Spare Parts في الملف الرئيسي لم يمتلئ بأي معلومة  لكن  جدا راااائع ما عملته أخي ابو تامر 

 

سأقوم غدا بتجربته في مكتب العمل على ملفات اخرى و سأوافيك بالنتائج 

حفظك الله 

[omar elhosseini]

خطأ بسيط في التنيسق ( Add_Borders )

تم علاجة

 

المرفقات

 

 

Test_3.xls

[omar elhosseini]

في نهاية الروتين

Sub Get_Info()

يمكن اضافة 

Cells.Columns.AutoFit

لضبط اتساع الأعمدة الأ اذا كنت تريد عدم الضبط ففلاتضيفها

 

[فـهـد]

مرحبا بأخي تامر 

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

لكن حاليا (كله تمام التمام )

لا استطيع أن اوفي حقك إلا بالدعاء لك في ظهر الغيب 

حفظك الله و رعاك ، و جزاك الله عنا خير الجزاء 

 

 

[omar elhosseini]

تحت امرك اخي

Cells.Columns.AutoFit

 

[فـهـد]

الأمر لله وحده 

 

.

تم اضافتها و كانت ممتازة