هل بالامكان ترحيل من ملف الي ملف اخر مغلق دون فتحة

[محمد الزريعي]

صباح الخير شباب ،،

عندي هذا الملف ،، اريد ان ارحل منه الي ملفات اكسل الخاصة بالموظفين  والمتابعة شبه يومي .  حيث أن ملف الموظفين موجود في القرص d

بقية الشرح موجود في داخل الملف اكسل

 

ترحيل بيانات من ملف الي ملف اخر مغلق.rar

[أبوبسمله]

لا اعتقد انه يتم الترحيل وهو مغلق

ولكن هناك اكواد لفتح الملف دون ان تدرك انه تم فتحه وترحل السجلات باذن الله 

ان شاء الله يوافيك احد الاخوه الكرام باحد هذه الحلول 

حيث اننى اخطو خطواتى الاولى فى الاكسيل 

بالتوفيق اخى الكريم

[ياسر خليل أبو البراء]

أخي الكريم محمد

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

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

تقبل تحياتي

 

[مختار حسين محمود]

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

أخى أحمد الفلاحجى جزاك الله خيرا

أخى و أستاذى الفاضل ياسر خليل  جزاك الله خيرا  وبعد اذن حضرتك

أخى محمد الزريعى تفضل تم عمل المطلوب  فى المرفق التالى

بعد فك الضغط عن المرفق ستجد ملف + مجلد به ملفات 1 و 2 و 3    الخ كل واحد خاص بموظف

ضع هذا المجلد فى البارتش d  كما طلبت فى مشاركتك

افتح الملف و شغل الكود  و كرر التجربة مع تعديل بيانات الموظف ستجد ما تنشده بإذن الله

 أى استفسار  سيكون معك أخوك مختار و أستاذنا ياسر خليل الفارس المغوار    تحياتى

 

 

loop through Excel files in a specified folder and perform a set task on them Mokhtar.rar

[أبوبسمله]

استاذى العزيز  مختار جزاك الله كل خير 

اخى وحبيبى ابو البراء بارك الله فيك وجعلكم عونا للمبتدئين امثالى وجزاكم الله عنا كل خير 

بالتوفيق اخوانى الكرام

[محمد الزريعي]

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

وأشكر استاذي القدير ياسر أبو البراء ،، من زمان وأنت واقف معانا ،، الله يعينك ،، اخي ياسر ..

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

 

[مختار حسين محمود]

شكرا  أحمد الفلاحجى

شكرا  أخى محمد الزريعى     جزاكم  الله خيرا

[محمد الزريعي]

اخي مختار حسين محمود ::  اعتذر منك ،،

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

وأيضاً موجود الشرح في الملف المرسل سابقاً .

 

 

كما أن أسماء الملفات لابد أن تكون بأسماء الموظفين وليس ارقام التسلسل .

حاولت مع هذا الكود التالي  لكن مانفع معي طلع غلط .. 

 

 

Set WB1 = ActiveWorkbook 'تشنيط الملف الاول

 LR1 = ActiveSheet.Cells(Rows.Count, 2).End(3).Row 'عدد صفوف الملف الاول

For i = 4 To LR1

    fname = Cells(i, "b")

    Set Wk = Workbooks.Add

       Application.DisplayAlerts = False

          Worksheets(1).Cells(1, "a") = "م"

          Worksheets(1).Cells(1, "b") = "اسم الموظف"

          Worksheets(1).Cells(1, "c") = "العمر"

          Worksheets(1).Cells(1, "d") = "الوظيفة السابقة"

          Worksheets(1).Cells(1, "e") = "الراتب"

          Worksheets(1).Cells(1, "f") = "تاريخ التوظيف"

          Worksheets(1).Cells(1, "g") = "تاريخ الترقية "

          Worksheets(1).Cells(1, "h") = "الوظيفة الحالية"

          Worksheets(1).Cells(1, "i") = "ملاحظات "

          Wk.SaveAs Filename:="D:\New folder\" & fname & ".xlsx"

          Workbooks(fname & ".xlsx").Close SaveChanges:=False

 

 

[محمد الزريعي]

لقد بحث عن كود التحقق من أن الملف موجود في المجلد او لا  وهو كالتالي :

1-  يشوف أذا كان الملف الموجود في مجلد NEW FOLDER ومطابق للأسم FNAME  وامتداه XLSX  موجود أو لا         MyFlName = Dir("D:\New folder\" & fname & ".xlsx")  

2-  أذا كان فاضي يعني غير موجود ،  فإنة يقوم بإنشاء الملف ثم يقوم بتنسيقة وحفظة في المكان المخصص ثم أغلاقه .                                                               If MyFlName = "" Then

3- أذا كان موجود  فإنه يتابع الكود الذي كتبة الأستاذ مختار .  وقمت بتحديد المتغير X  لتحديد  قيمة التاريخ في WB1

4- ثم بعد فتح WB2   وضعت هذا الكود  LR2 = WB2.Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row  لتحيد اخر خلية فيه

5- ثم حددت المتغير yy  هو ليأخذ التاريخ الثاني .  ثم وضعت  IF  الشرطية اذا تساو X مع Y  لا يقوم باللصق . ليعود من جديد .

 

شكراً لكم جميعاً .

وحصلت على اكواد التنسيق أيضا كنت ابحث عنها ،، وهي كالتالي :

 Worksheets(1).Columns("a").ColumnWidth = 2

  'Rows("3:25").RowHeight = 25

تحياتي لكم ..