اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيفية عمل نسخة من ملف فى ملف جديد


الردود الموصى بها

الأخوة المشرفين واعضاء منتدانا العظيم

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

أرجو مساعدتي فى عمل مفتاح يقوم بانشاء نسخة من الملف فى ملف آخر باسم مذكور فى الخلية C1 من الملف المراد نسخة

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

____.rar

رابط هذا التعليق
شارك

السلام عليكم

اليك الكود التالى مع مراعاة ***** :Rules: اسماء اللاقراص الصلبه لديك ****

Dim FileName As String
FileName = Range("A1").Value
ActiveWorkbook.SaveCopyAs "d:\format\FileName.xls"

رابط هذا التعليق
شارك

السلام عليكم

اليك مثال

* مجرب

يفترض ان القرص الصلب D او غيره كما تحب

و هو منقول للامانه

test.rar

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

الأخ العزيز / أبو اسامة

بارك الله لك على الرد والاهتمام وتم تجربة الملف وكان ممتاز ولك جزيل الشكر . وان كان فيه تعب أرجو من سيادتكم التكرم بعمل ترحيل بيانات فى أعمدة من هذا الملف الى ملف آخر ولكم جزيل الشكر

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information