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

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


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

اخواني كل عام وانتم بخير جميعا

بناء علي طلب احد الاخوة باللينك التالي

https://www.officena.net/ib/topic/91148-نقل-واسترداد-البيانات-من-ملف-اكسل-الى-ملف-اكسيل-أخر/?fbclid=IwAR0xbxEnx7AZelkY6NQoXHeffLqB-RzI3Q_b1LqE8IcQdkcl1jbpWCjWm3I

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

شرح العمل:-

افتح ملف" V2"

اضغط علي الزر لاظهار الفورم

اضعط علي زر استرداد بيانات من ملف اخر

الكود المستخدم

       Sheets(1).Range("D6:G15") = ""
       mm = ActiveWorkbook.Name
MyPath = ThisWorkbook.Path & "\v1.xlsm"
'On Error Resume Next
       Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Mybook = Workbooks.Open(Filename:=MyPath)
m = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Address
          Workbooks(mm).Sheets(1).Range(m).Formula = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Formula
          Workbooks("v1.xlsm").Close
      Application.DisplayAlerts = True
 Application.ScreenUpdating = True
MsgBox ("DONE")

 

trans.rar

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

شكرا اخي عادل حنفي على الكود والعمل الرائع دمتم ذخرا لنا

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

يعني لا احدد له الملف V1 وانما حرية فتح اي ملف كان المهم احدد له رقم الشيت و النطاق فقط

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

جزاكم الله خيرا أستاذنا // عادل حنفي

 

وبالنسبة لإستفسار  الاخ / حراثي

لو رجعت للموضوع الأصلي الخاص بك ستجد الاجابة 

اضغط هنا

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

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

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

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

Important Information