احبتي الأفاضل بين يديكم مرفق عانيت فيه من أنه مرة يستورد وفجة لا يستورد البيانات من ملف أكسل ما المشكلة وفقكم الله لكل خير
مشكلة في الاستيراد
السلام عليكم
تم اضافة كود يقوم بفتح ملف الاكسل قبل الاستيراد واغلاقة بعد الاستيراد
اذا ظهرت لك رسالة خطاء عند ضغط زر الاستيراد
في محرر الاكواد في شريط Tools اختر References
اثم اتبع الخطوات التي في الصورة
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
عبدالله المجرب كتب:السلام عليكم
تم اضافة كود يقوم بفتح ملف الاكسل قبل الاستيراد واغلاقة بعد الاستيراد
اذا ظهرت لك رسالة خطاء عند ضغط زر الاستيراد
في محرر الاكواد في شريط Tools اختر References
اثم اتبع الخطوات التي في الصورة
شكرا أخي من الاعماق وجزاك الله خيرا جاري التحميل ......
تم تعديل هذه المشاركة بواسطة ABTH4000 في 4 مارس 2013 في 17:19
أخي عبدالله ما زالت المشكلة مستمرة علماً طبقت كل ما طرحته لكن يظهر لي محرر الاكواد يوحي ان هناك مشكلة
تم تعديل هذه المشاركة بواسطة ABTH4000 في 4 مارس 2013 في 18:55
هل انت متأكد انك اضفت مكتبة الاكسل الى References
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
أخي أحمد السلام عليكم ورحمة الله لا أزال أعاني من ظهور الرسالة من محرر الاكواد علما أني تتبعت كل ما في الصورة خطوة خطوة فلم أفلح
فقط احببت أن تكون في الصورة والسلام
اقتباسظهور الرسالة من محرر الاكواد
ارجو منك ارفاق صورة للخطاء
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
سم هذه الرسالة التي تظهر لي
السلام عليكم،
جرب هذه الطريقة ربما نفعت معك، وهي عبارة عن روتين عام Public Subroutine اسمه UpdateStudentDB ، يستخدم كائنات قياسية من نوع Object لفتح ملف إكسيل واستيراد البيانات ثم حقنها في الجدول المؤقت Backup . وعلى ذلك فهو لا يحتاج إلى إشارة مرجعية لأي مكتبات إضافية لتحميلها وقت التشغيل.
الملاحظة المهمة هي أن تقوم باستبدال مسار ملف إكسيل كاملا بدلاً من المسار الموجود حالياً بما يلائم مسار الملف على جهازك. يمكنك أيضاً تعديل الكود ليستخدم متغيراً ثابتا Constant .
Set xlw = xlx.workbooks.Open("D:\ArabTeam\ImportFromExcel\StudentGuidance.xls", , True)
بالتوفيق،
عبدالله،،،
شكرا أخي Ab Techno جعلها الله في ميزان حسناتك و كل من شاركني هذا الطرح فقد أصبت الهدف كما اشكر اخي عبدالله
تمت الإجابة والحمد لله
أخي Ab Techno السلام عليكم ورحمة الله وبركاته
فضلاً وليس أمرا بعد أن عمل كل شيء بشكل تمام ارغب بأن يكون المسار للإستيراد منطلق من سطح المكتب و قد ضبطت المسار بناءً على سطح مكتبي وفق التالي
Set xlw = xlx.workbooks.Open("C:\Users\الطيار\Desktop\StudentGuidance.xls", , True)
و حتى يكون المسار إلى سطح المكتب مفتوح لكل جهاز يتعامل مع مشروعي ارغب أن يكون يختصر المسار ويكون غير مقيد بأسم المستخدم للجهاز
والله الموفق
تم تعديل هذه المشاركة بواسطة ABTH4000 في 8 مارس 2013 في 14:36
حتى نخرج من بعض التعقيد، سوف نُعرف متغيراً نصياً جديدا اسمه strExcelPath ، وهو عبارة عن المسار الكامل لملف الإكسيل مع اسم الملف نفسه.
سنفترض جدلاً أن ملف الإكسيل سوف يكون دائماً في نفس مجلد قاعدة البيانات، جنباً إلى جنبا، بالتالي نستطيع أن نستخدم الكود التالي للحصول على المسار الكامل
strExcelPath = CurrentProject.Path & "\SutdentGuidance.xls"
أما إذا ضمنت أن الملف سوف يكون على سطح مكتب المستخدم مباشرة "إن لم يحذفه المستخدم أو يأرشفه في مكان آخر كما يفعل المستخدمون عادة"، فيمكنك استخدام الكود التالي لاستخراج المسار كاملاً بغض النظر عن اسم المستخدم:
strExcelPath = Environ("USERPROFILE") & "\Desktop\StudentGuidance.xls"
وضعت لك السطرين داخل الوحدة النمطية في قاعدة البيانات وأعدت رفعها. قم بإزالة علامة التعليق " ' " من أمام السطر المطلوب، واختبر القاعدة مرة أخرى.
بالتوفيق،
عبدالله،،،
لله درك أخي عبدالله جعل الله كل ما تقدمه من مشاركات في ميزان حسناتك يوم القيامة و رزقك خير الدنيا و الأخرة أنت ومن شاركنا هذا الطرح ووالدينا آمين
تمت الإجابة بحمد الله وفضله و السلام عليكم ورحمة الله وبركاته
ابوحمد