الرجاء كود استيراد بيانات من ملف لأخر

[محمد ابومروان]

السلام عليكم .. عند بدء أى مشاركة ,,,الرجاء كود لاستيراد بيانات من ملف اكسل الى ملف اكسل اخر عند الضغط على زر استيراد مع الاحتفاظ بالتنسيقات 

بيانات الصف الأول.xlsx سجل القيد.xlsx

[محمد هشام.]

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

تفضل اخي بعد تحميل الملف المضغوط سوف تجد مجلد باسم DATA

 C  قم بنسخه الى القرص
ثم افتح ملف سجل القيد
وقم باستدعاء البيانات عادي 

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

Sub MH_data()
Application.ScreenUpdating = False
Set currentworkbook = ThisWorkbook
Set sourceworkbook = Workbooks.Open("C:\DATA\Sheet1.xlsx")
sourceworkbook.Worksheets("Sheet1").Range("a2:d500").Copy
currentworkbook.Activate
currentworkbook.Worksheets("Sheet1").Activate
lastcell = Cells(Rows.Count, 2).End(xlUp).Row + 1
currentworkbook.Worksheets("Sheet1").Cells(lastcell, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False

sourceworkbook.Close
Set sourceworkbook = Nothing
Set currentworkbook = Nothing
ThisWorkbook.Activate
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Range("A4").Select
Application.ScreenUpdating = True
End Sub

ملاحظة:

يمكنك تغيير مسار الملف من هنا في حالة عدم توفر جهازك على قرص باسم C

Set sourceworkbook = Workbooks.Open("C:\DATA\Sheet1.xlsx")

سجل القيد_MH.rar

[محمد ابومروان]

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