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

[عادل حنفي]

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

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

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

[وجيه شرف الدين]

بارك الله فيكم استاذنا الفاضل ما شاء عمل رائع

[Ali Mohamed Ali]

أحسنت استاذنا الكبير عادل عمل رائع 

وحشتنا كتير لعل المانع خير

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

[حراثي تواتي]

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

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

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

[محمود_الشريف]

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

 

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

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

اضغط هنا

[حراثي تواتي]

بارك الله فيك شيخنا

انا كنت اقصد بدون صناديق الحوار

يعني كل شيء يتضمنه الكود

[عادل حنفي]

اخي وجيه شرف الدين مشكور مرورك

اخي  Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني

اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي

اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري

تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين

trans_2.rar

[Ali Mohamed Ali]

ملف ممتاز بارك الله فيك أستاذ عادل وزادك الله من فضله

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

[عادل حنفي]

حبيبي وانت بكل خير

[وجيه شرف الدين]

في ٢٠‏/٥‏/٢٠١٩ at 03:52, عادل حنفي said:

اخي وجيه شرف الدين مشكور مرورك

اخي  Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني

اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي

اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري

تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين

trans_2.rar 33.43 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

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

[عادل حنفي]

مشكو اخي وجيه