الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استيراد بيانات من اكسل الى جدول اكسس

مغلقمُجاب
بدأه adsabbah في 20 فبراير 2014 · 10 رد · 5,399 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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


بارك الله فيكم وفي علمكم ونفع الله بكم المسملين


 سؤالي هل يمكن عمل الكود لاستيراد بيانات في ملف اكسل الى جدول في اكسس 


علما بأن ملف اكسل هذا هو نتيجة تصديره أصلا من جدول في قاعدة البيانات نفسها بمعنى هو هو بنفس اسماء الحقول وونفس الخصائص


وهذا هو الكود الذي وضعته لتصدير الجدول من القاعدة الى الاكسل


DoCmd.OutputTo acOutputTable, "جدول تسجيل الكتب", acFormatXLS, CurrentProject.Path & "\جدول تسجيل الكتب.xls", True


 


المطلوب كود عكسه لاستيراد البيانات مرة ثانية من الاكسل الى الاكسس


 وجزاكم الله خيرا 


#2

تفضل اخي الكريم

 

ضع ملف الأكسيل الخاص بك في نفس مجلد قاعدة البيانات ثم استخدم هذا الكود البرمجي تحت زر الأمر

 

 

Dim ImportFileName As String
 
ImportFileName = CurrentProject.Path & "\جدول تسجيل الكتب" & ".xls"
DoCmd.TransferSpreadsheet acImport, 8, "جدول تسجيل الكتب", ImportFileName , True
1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

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

أولا أشكر لكم سرعة استجابتكم في الرد على مشاركتي وجزاكم الله خيرا 

ولكن ظهرت مشكلة اثناء تنفيذ الكود وهي :

في حالة اختلاف اسم الحقل في الجدول عن التسمية التوضيحية الموجودة في خصائص هذا الحقل لا يمكنه تنفيذ الكود وهناك صعوبة في تغيير اسم الحقل كذلك صعوبة في تغيير التسمية التوضيحية

النقطة الثانية : هل لو هناك اكثر من جدول في نفس المجلد مع جدول تسجيل الكتب كيف يمكن استيرادهم معا بنفس الزر .

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

تم تعديل هذه المشاركة بواسطة adsabbah في 20 فبراير 2014 في 22:49

1
#4

اخي الفاضل

 

يرجى وضع قاعدة بياناتك وملفات الأكسيل وشرح المطلوب  ليتم العمل عليها مباشرة 

 

لأننا لو بقينا على هذا الحال من الأخذ والرد في الأسئلة فلن ينتهي الموضوع

 

 

بالتوفيق

1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#5

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

للأسف القاعدة حجمها كبير ولا أستطيع تحميلها 

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

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

مرفق لكم مثال بسيط كجزء من القاعدة مفتاح التصدر يعمل تماما 

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

أرجو أن يكون المطلوب واضح 

 

Ex.rar

تم تعديل هذه المشاركة بواسطة adsabbah في 21 فبراير 2014 في 23:30

#6

تفضل اخي الكريم

 

ملفك بعد التعديل بناء على طلبك

 

 

za-Export&Import.rar

 

 

بالتوفيق

1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#7

الاستاذة الكريمة / بارك الله فيكم وزادكم علما ونفع الله بكم الجميع

بتحليل الملف الذي تم عليه التعديل وجد الاتي : 

1. لابد من عمل استعلام حذف أولا لكي يستخدم بعد تصدير الجدول وهذا مفهوم وواضح وسهل .

2. تم توحيد عنوان الحقل ليكون مثل تسمية توضيحية الموجودة في خصائص الحقل () (وهذا ما لا كنت أتمناه ) 

3. لابد من تسمية اسم الجدول الذي تم تصديره بنفس اسم الجدول الموجود في القاعدة ( وهذه مشكلة ظهرت عندما تم التسمية جدول بيانات الطلاب (أما باسم  جدول بيانات لا توجد المشكلة) 

4.ظهرت مشكلة في كود حذف الاستعلامات معا (تسجيل الكتب ، بيانات الطلاب ) كما هو واضح في المثال المرفق الحالي

أخيرا :  هل يمكنني بعد الانتهاء من تصميم القاعدة حذف جميع التسميات الموجودة في خصائص الحقول بدون تأثير على القاعدة )

وفي النهاية لا يسعني إلا أن أقول لكم جزاكم الله خيرا كما علمنا الرسول صلى الله عليه وسلم " حيث قال فإن لم تجدوا ما تكافئونه فقولوا له جزاكم الله خيرا" أو كما قال الرسول صلى الله عليه وسلم 

لتصدير جدولين واستيرادهما معا من ملف اكسل.rar

تم تعديل هذه المشاركة بواسطة adsabbah في 23 فبراير 2014 في 14:42

#8

اين المساعدة جزاكم الله خيرا 

اريد التعديل على المرفق 

تم تعديل هذه المشاركة بواسطة adsabbah في 23 فبراير 2014 في 22:16

#9

مشكور فقد توصلت الى الحل ولكن كنت أريد أن أضع الجدول في مجلد مستقل داخل مجلد القاعدة فكان الكود هو 

DoCmd.OutputTo acOutputTable, "جدول الكتب", acFormatXLS, CurrentProject.Path & "\MyBook" & "\جدول الكتب.xls", True
حيث MYbook  هو اسم المجلد الجديد الذي سيضع فيه الجدول 
المطلوب الان تعديل هذا الكود ايضا لاستيراد الجدول منه ، هذا الكود اذا كان الجدول في نفس مجلد القاعدة 
Dim ImportFileName As String
ImportFileName = CurrentProject.Path & "\جدول الكتب" & ".xls"
DoCmd.TransferSpreadsheet acImport, 8, "جدول الكتب", ImportFileName, True
فكيف أعدل هذا الكود ليكون استيراد الجدول من مجلد جديد بعنوان Mybook داخل مجلد القاعدة 

تم تعديل هذه المشاركة بواسطة adsabbah في 25 فبراير 2014 في 22:26

#10 أفضل إجابة

تفضل اخي الكريم

 

لإستيراد بيانات ملف الأكسيل الموجود في المجلد MyBook  الموجدود في مجلد قاعدة البيانات الى الجدول

 

Dim ImportFileName As String
ImportFileName = CurrentProject.Path & "\MyBook\جدول الكتب" & ".xls"
DoCmd.TransferSpreadsheet acImport, 8, "جدول الكتب", ImportFileName, True
 
 
بالتوفيق
1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#11

الاستاذة الكريمة /  Zahrah   حفظكم الله

تم الوصول للمطلوب وجزاكم الله خيرا على اهتمامكم 

تم تعديل هذه المشاركة بواسطة adsabbah في 26 فبراير 2014 في 19:43

هذا الموضوع مغلق.

مواضيع مشابهة