طريقة استنساخ ملف عدة مرات

[خالدو]

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

وكل عام وانتم بخير بمناسبة هذه الأيام الفضيلة أعادها الله علينا وعليكم على الامة الإسلامية بالخير والبركة والنصر والتمكين

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

فارجو أن أجد لديكم سعة الصدر والحل لهذه المشلكة:

الملف المراد فتحه والعمل عليه هو:

CopyFile.xls

والملف المراد عمل نسخ منه هو : Mob-04-2010-100702.xls باسماء حسب ما هو مذكور في العمود

B من الملف الأولCopyFile.xls

بدون فتح الملف Mob-04-2010-100702.xls

الشغل من خلال العمل على الملف CopyFile.xls

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

Upload.zip

[طارق محمود]

السلام عليكم<

ضع الكود التالي في الملف CopyFile.xls

Sub cc()

For Each i In Selection

On Error Resume Next


 oldfile = ActiveWorkbook.Path & "\" & i.Value

 newfile = i.Offset(0, 1).Value

FileCopy oldfile, newfile

Next i

End Sub

ثم ظلل علي الخلايا التي بها الملفات المراد نسخها

شرط أن تكون في نفس المجلد الذي به الملف CopyFile.xls

تم تعديل نوفمبر 9, 2010 بواسطه TareQ M

[طارق محمود]

مرفق المجلد بعد تعديل الملف

ومعه فيديو أيضا للتوضيح

Upload.rar

[خالدو]

جزاك الله خيراً أخي طارق

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

نسخ لي فقط أول ملفين وتوقف رغم اتباعي لتعليمات ملف الفيديو .

جزاك الله خيراً على تعبك واهتمامك واشكرك جزيل الشكر.

[طارق محمود]

أخي الكريم

السلام عليكم

قد يكون الملف الثالث غير موجود

أو أنك لم تظلل غير ملفين قبل تشغيل الماكرو

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

تأكد أن المفات موجودة

وتأكد أن تظلل كامل الملفات التي تريد نسخها قبل إجراء الماكرو

[خالدو]

ملحوظة أخرى أخ طارق

هو ملف واحد فقط اللي موجود وهو : Mob-04-2010-100702.xls

ومطلوب إنشاء عدة نسخ منه باسماء مختلفة وفقاً للعمود B الملف CopyFile.xls

في المسار المحدد سابقاً في العمود C في الملف CopyFile.xls

يعني إنشاء عدة نسخ من نفس الملف الموجود ولكن باسماء مختلفة

[طارق محمود]

أنت لم توضح ذلك سابقا

المهم

إن شاء الله

سأنشيء لك كود قريبا بما تريد

[طارق محمود]

الكود الجديد هو

Private Sub CommandButton1_Click()


On Error Resume Next

org_file = ActiveWorkbook.Path & "\" & [B2]

Range("C2", [C1000].End(xlUp)).Select


For Each i In Selection

FileCopy org_file, i.Value

Next i

End Sub

[طارق محمود]

السلام عليكم

مرفق الفولدر به الملف وبه الكود وأيضا فيديو توضيحي

لاداعي للتظليل ، فقط إضغط الزر

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

بمعني أن لديك 240 ملف والكود ينسخ فقط 231

أيضا عندي ملحوظة

جميع الملفات ستكون بأسماء مختلفة لكن طبعا بياناتها من الداخل واحدة

أي انها جميعا تحتوي علي نفس البيانات التالية:

EmpID: 34271

Name: Saadeldin mahfooz salem salem Hassan

Position: Electrical engineer

Department: Technical

Cost center: X 31000CB

فلو أنك عندك جدول مثلا لبيانات مختلفة لعدد من الموظفين

فمن الممكن إنشاء الملفات مباشرة بنفس التنسيق وبالبيانات الجديدة

Upload2.rar

تم تعديل نوفمبر 10, 2010 بواسطه TareQ M

[خالدو]

جربت الكود واشتغل فعلاً

جزاك الله خيراً أخي طارق وأحسن إليك