خالد الشاعر قام بنشر أكتوبر 1, 2013 قام بنشر أكتوبر 1, 2013 (معدل) السادة الخبراء مرفق كود من اعمال هذا المنتدى العظيم لتغير اسم ملفات اكسل بناء على الخلية ولكن لتشابهم اسمائهم لا يعمل بشكل جيد فهل يوجد حل لهذه المشكله مرفق ملف للتوضيح سؤال اخر لو سمحتو 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 بواسطه خالد الشاعر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.