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

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

رابط ملف العمل
www.mediafire....
*****************************************************
رابط قناة التليجرام
t.me/excelislive
رابط صفحتي على تويتر
/ 4fcrjlpcc981zck
رابط مدونة EXCEL LOVER على FACEBOOK للتواصل
/ excel-lovers-109609457...
رابط الجروب الاكسيل حياة على FACEBOOK
www.facebook.c...

[@azouzchabani]

بورك فيك على البساطة والمعلومات المفتوحة والمتقدة زادك الله خيرا

[@MohAboAbdo]

شكرا جزيلا أستاذي الفاضل. جزاك الله عنا خير الجزاء وبارك الله فيك. ونحن في انتظار الجزء الثاني بشغف.

[@abdelghani9556]

جزاكم الله خيرا ،ربي يجعلها في ميزان حسناتك يا أستاذ في اتظار الجزء الثاني

[@abdellahabuhjajabdellah]

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

[@محمدعبد-س2ظ2ش]

جزاكم الله تعالى خيرا . ننتظر منكم المزيد

[@rachidzouainia30]

شرح رائع.... لدي سؤال أستاذ في حالة كنت اريد لصق خاص (لصق قيم) paste values كيف اغير الكود وفي اي سطر

[@emadmadi1967]

جزاك الله خير شرح جميل جداً جداً جداً في ميزان حسناتك يارب العالمين

[@faris-math]

موفق استاذنا الفاضل

[@Mor-bd4yr]

لو سمحت لو عندى ملفات اكسل مغلقه فيها اسماء موظفين وكل اسم موظف له سطر،طويل فيه ارقام لو انا عاوز ابحث فى هذه الملفات وهى مغلقه لاستخراج بيانات محدده من الصف الموجود امامه اسم الموظف يعنى عاوز اكتب اسم الموظف البرنامج يبحث عنه فى الملفات المغلقه ولما يجد اسم الموظف ينسخ بيانات محدده من الصف الى موجود فيه

[@HAMADA_87230]

كيف اعدل على الكود الى مسار المجلدات ؟

[@محمدعبد-س2ظ2ش]

السلام عليكم استاذنا جربت الشيت وضغت على رن فظهر رسالة ظللت باللون الاصفر السطر 12 من الكود lr1 بعد set wb وفتح ملف رقم 1 فرع 6 اكتوبر وتوقف الكود

[@SamirTobeil]

انا راجعت االكود شغال تمام نزله تاني وجرب وان شاء الله يظبط

[@محمدعبد-س2ظ2ش]

@@SamirTobeil جزاكم الله تعالى خيرا وبارك بعلمكم سارسل لك على الماسنجرصور الخطأ الذي ظهر والاسم على الفيس بالعلم نرتقي

[@abdelghani9556]

قم بإستبدال Workbooks("DATA") بــــــWorkbooks("DATA.xlsm") في كامل الكود

[@محمدعبد-س2ظ2ش]

@@abdelghani9556 تم تصحيح الخطأ شكرالكم

[@ahmedshazly3952]

الف الف شكر ، بطل ❤​@@abdelghani9556

[@SamehRSameh]

ممكن انفذ ده بالكويرى .. ايه الفرق ؟

[@SamirTobeil]

صحيح لكن الكثير لا يجيد البور كويري

[@محمدعبد-س2ظ2ش]

نتمنى منكم استاذا ادخال المصفوفات في البحث حتى لا يصير بطيء

[@SamirTobeil]

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

[@shakir948]

باسورد فك الضغط الملف