تغيير اسم ملفات

[خالد الشاعر]

السادة الخبراء

 

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

 

ولكن لتشابهم اسمائهم لا يعمل بشكل جيد

 

فهل يوجد حل لهذه المشكله

 

مرفق ملف للتوضيح

 

سؤال اخر لو سمحتو

 

Sub kh_Copy()
Dim mPath As String
Dim CopyName
Dim PasteName
mPath = ThisWorkbook.Path & "\"
CopyName = mPath & "New\*.xls"
PasteName = mPath & "\"
FileCopy CopyName, PasteName
End Sub

 

هذا الكود من اعمال الاستاذ العظيم عبد الله باقشير

 

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

 

ولكم جزيل الشكر والاحترام

 

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

rename.rar

تم تعديل أكتوبر 1, 2013 بواسطه خالد الشاعر