استيراد البيانات من ملف خارجي

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

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

اساتذتنا الافاضل ارجوا مساعدتي في كود لاستراد البيانات من نطاق محدد من ملف خارجي آخر الى الملف المفتوح في نطاق محدد حسب الصورة

حبذا الملف الذي نسترد منه البيانات يبقى مغلقا او يغلق اليا بعد استراد البيانات منه

الملفان مرفقان

touati.rar

[عبدالفتاح في بي اكسيل]

تفضل    لا تنسى  تغيير مسار  الملف  على  حسب  مكان  التخزين 

Sub Test()
    Dim sr As Workbook
    
    Set sr = Workbooks.Open("C:\Users\alhagag\Downloads\touati\touati1.xlsx", True, True)
    ThisWorkbook.Activate
    Worksheets("sheet1").Range("B2:E200").Value = sr.Worksheets("sheet1").Range("a2:d200").Value
    sr.Close
End Sub

 

touati.rar

[abouelhassan]

شكر وتقدير واحترم من اخيك استاذ عبد الفتاح

[a.kawkab]

ممكن استاذ عبد الفتاح تعدل الكود بحيث يصبح ملف الاستيراد فى نفس مسار الملف لانى بيضبط مغى الملف فى اى قولدر اخذن فيه ماعدا فى نفس المسار ما ضابطه معى فلو تكرمت ممكن تعدل المسار فى نفس مسار الملف

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

تفضل a.kawkab : بعد فك الضغط عن الملف ضعه على سطح المكتب وافتح الملف touati2

touati.rar

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

شكرا جزيلا استاذنا الفاضل عبدالفتاح في بي اكسيل احتاج تعديل على هذا الكود شغال لكن احتاج بعد انتهاء عملية النقل يغلق الملف الخارجي ( touati1 ) 

وشكرا لكم مسبقا

Sub Test()
Dim file_name As Variant
Dim open_wk As Workbook
On Error GoTo 1
file_name = Application.GetOpenFilename(Title:="ÇÎÊÇÑ ãáÝ ÇáÇßÓíá", FileFilter:="Excel Files *.xlsx (*.xlsx),")
If file_name = False Then
1 MsgBox "ÚÝæÇ ÊÓãíÉ ÇáãáÝ ÛíÑ ÕÍíÍÉ", vbCritical
Exit Sub
Else
Set open_wk = Workbooks.Open(file_name)
End If
Windows("touati1.xlsx").Activate
Sheets("æÑÞÉ1").Select
Range("a2:d15").Select
Selection.Copy
ThisWorkbook.Activate
Sheets("sheet1").Select
Range("b2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[a.kawkab]

للأسف ليس هذا المطلوب هذا المسار يتطلب تغييره تبعا للجهاز اللى هاتشتغل عليه / التعديل المطلوب ان يكون فى نفس المسار مثل

ThisWorkbook.Path & "Output", FileFormat:=51=

بحيث يعمل على اى جهاز فى اى مكان دون تعديل

[a.kawkab]

لغلق الملف الخارجي ( touati1 )   اضف هذا السطر فى نهاية الكود

Windows("touati1.xlsx").close