أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil الغاء اعمده مخفيه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





مساعدة في كود استيراد بيانات من ملف مغلق

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



20-11-2019 09:40 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
لدي كود لاستيراد بيانات من ملف اكسيل مغلق   يوجد خطا  اتمنى مساعدتي في تصحيحه  مع العلم انا متاكد من اسم الملف وامتداده ومكان تخزينه  
هذا  الكود 
Sub im()
Dim sr As Workbook
Set sr = Workbooks.Open("C:UsersleoparDesktopمخزون البضائع 3-09-2019.xlsx", True, True)
ThisWorkbook.Activate
Worksheets("ورقة1").Range("b7:e200").Formula = sr.Worksheets("ورقة1").Range("b4:e200").Formula
End Sub
 
 
  2.xls   تحميل xls مرات التحميل :(4)
الحجم :(50.688) KB





20-11-2019 09:57 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
السلام عليكم 
لم تحدد الخطأ وفي أي سطر بالضبط
عموماً اضبط النطاق في آخر سطر لربما يكون هذا هو سبب المشكلة
Sub Test()
    Dim sr As Workbook
    
    Set sr = Workbooks.Open("C:\Users\leopar\Desktop\مخزون البضائع 3-09-2019.xlsx", True, True)
    ThisWorkbook.Activate
    Worksheets("ورقة1").Range("B4:E200").Formula = sr.Worksheets("ورقة1").Range("B4:E200").Formula
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali،



20-11-2019 11:33 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
شكر اخي ياسر  ولكن الخطا  لايحدده باي سطر مرة تطلعلي رسالة خطا  عند الضغط على زر الماكرو  وتارة يطلع خطا اخر عند تشغيل الكود من محرر الاكواد ارفق لك الصور
 
  error.jpg   تحميل jpg error.jpg مرات التحميل :(0)
الحجم :(13.084) KB
  error1.jpg   تحميل jpg error1.jpg مرات التحميل :(0)
الحجم :(16.663) KB
 





21-11-2019 05:46 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
لا أدري سبب الخطأ ..
ربما من الأفضل لو أرفقت كلا الملفين بحيث نجرب الكود ونراجعه على الملفات المرفقة ..




21-11-2019 08:27 صباحا
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
تفضل اخي ياسر  هذا  الملف  الذي سيتم سحب البيانات منه 
 
 
  مخزون البضائع 3-09-2019.xls   تحميل xls مرات التحميل :(0)
الحجم :(123.904) KB





21-11-2019 10:24 صباحا
مشاهدة مشاركة منفردة [5]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
اخي ياسر لقد تم حل المشكلة     لقد حاولت التطبيق في اكثر من ملف   الى ان وصلت الى الحل   حيث يعطيني رسالة  بمشكلة مسار الملف  واتضح  ان الكود يعمل مع الامتداد xls  وليس xlsx  ولكن هناك جزاية اريد ان استفسر عليها اخي ياسر لا ادري اذا كانت متوفرة بالاكسيل   لاحظت عندما يتم نسخ البيانات  يتم فتح الملف المغلق هل بالامكان النسخ من غير فتح الملف 




21-11-2019 12:25 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
الحمد لله أن تم حل المشكلة .. 
يمكن التغلب على المشكلة بوضع سطر لايقاف اهتزاز الشاشة وهذا لن يجعل المستخدم يشعر بأن هناك ملفات تفتح ..
Application.ScreenUpdating=False

 حيث يوضع السطر في بداية الكود




21-11-2019 12:44 مساء
مشاهدة مشاركة منفردة [7]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
شكرا اخي ياسر  ولكن ما قصدته عدم فتح ملف الاكسيل المغلق نهائيا   عند استيراد البيانات  هل من طريقة اذا كانت متوفرة  صحيح سطر الكود  لا يشعرك  بان شيء فتح  ولكن عند النظر اسفل الشريط  تجد الملف قد فتح  هذه ليست بمشكلة  المهم ان يتم استيراد البيانات هذا فقط فضول منى اذا كان هناك طريقة  يقلل من كثرة الملفات المفتوحة اسفل الشريط 




21-11-2019 05:59 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif مساعدة في كود استيراد بيانات من ملف مغلق
نعم يوجد طريقة باستخدام ADO .. ولكن لابد أن يكون الملف وورقة العمل المراد التعامل معها بشكل معين كأن تكون العناوين في الصف الأول من الورقة وألا يكون هناك بيانات أخرى في نطاق آخر في الورقة ..
لربما يفيدك في الموضوع أخونا حسونة حيث قام بالعمل على هذا الكود من فترة ولديه ملف عمل أرجو ان يفيدك به إن شاء الله






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود استيراد بيانات من ملف اكسيل مغلق حتى وان كان محمى الصقر
89 9728 hassona229
استيراد بيانات الطلاب من موقع الوزاره ناصر سعيد1
12 1216 مدحت حافظ
استيراد بيانات من ملف خارجي محدد- ملف البيانات- نصر الإيمان
9 521 محمد الدسوقى

الكلمات الدلالية
مساعدة ، استيراد ، بيانات ، مغلق ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:52 صباحا

أعلن هنا
أعلن هنا
أعلن هنا