استيراد من الاكسل الي اكسس

[النجاشي]

السلام عليكم احبتي 

الموضوع اريد كود يستورد البيانات من اكسل الي الاكسس بحيث ينشي لي جدول بنفس عدد الاعمده الذي بالاكسل 

تحياتي احبتي

NWBANY.mdb XX.xls

[د.كاف يار]

تفضل هذا المثال للتوضيح

تصدير و استيراد.accdb

[د.كاف يار]

اخي الكريم لا اعلم ما هو تنسيق الجدول الاصلي لديك

يبدوا ان الملف المحمل تم التعديل عليه بحذف صفوف

قد يلزمك انشاء كود متكرر يتم الاستيراد البيانات على دفعات حسب تقسيم الاكسل لديك

 

نصيحة

احذف الصفوف

انشئ جدول للعملاء

انشئ جدول للفواتير

 

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

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

[النجاشي]

6 دقائق مضت, د.كاف يار said:

اخي الكريم لا اعلم ما هو تنسيق الجدول الاصلي لديك

يبدوا ان الملف المحمل تم التعديل عليه بحذف صفوف

صحيح استاذي الكريم تم حذف صفوف من الاكسل 

بالنسبه للجدول  مابهيمنا غير انه  يكون غي كود مثلا يشي جدول جسب الحقول الموجوه بالاكسس ونستورد بعدها من ملف الاكسل

تحياتي اليك يالغالي

[صالح حمادي]

السلام عليكم

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164"
DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])"

 

[النجاشي]

26 دقائق مضت, صالح حمادي said:

السلام عليكم

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164"
DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])"

 

بارك الله فيك استاذي القاضل /صالح حمادي الف الف شكر اليك يالغالي كم بحثت عن هذا ولم اجده

دوما وانت تعمل لي اشياء مختصره وحلوه بارك الله فيك يالغالي

ولكن لدي شويه امور ياليت تكملها لي يظهر لي رقم العميل وتاريخ الانتهاء  والتاريخ الموجوده براس الورقه بالاكسل تظهر بالجدول نهايه السجلات

فاريد ان لا تظهر هذه الاشياء مع العلم انها لم تظهر عندك لاننا حذفت بعض السجلات من الورقه ياالغالي

مع شكري وتقديري للدكتور كاف الله يعطيه الصحه والعافيه دوما ما يقصر معنا

[essam rabea]

أخى ابو زاهر

هذه محاولة أخرى ولكن عن طريق الماكرو أرجو أن تفيد

ضع ملف الإكسيل فى ال \:D

NWBANY.accdb XX.xlsx

تم تعديل سبتمبر 4, 2019 بواسطه essam rabea

[النجاشي]

18 دقائق مضت, essam rabea said:

أخى ابو زاهر

هذه محاولة أخرى ولكن عن طريق الماكرو أرجو أن تفيد

ضع ملف الإكسيل فى ال \:D

NWBANY.accdb 452 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads XX.xlsx 17.01 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

مشكور استاذي عصام بطلع عليها غدا واوفيك بالنتيجه رغم انني ما بجب المكرو

الف شكر اليك يالغالي وتصبح على خير

نعست هههههههه

[صالح حمادي]

11 ساعات مضت, ابو زاهر said:

يظهر لي رقم العميل وتاريخ الانتهاء  والتاريخ الموجوده براس الورقه بالاكسل تظهر بالجدول نهايه السجلات

هذه لا تظهر لأنني حددت نطاق البيانات

11 ساعات مضت, ابو زاهر said:

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

أنا لم أحذف سوى السجلات الفارغة

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

هذه السجلات الفارغة تمثل الجدول الذي قمت بتحديد حدوده في الأكسل

[النجاشي]

استاذي  صالح حمادي

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

 

xx.xls

[صالح حمادي]

جرب الكود بهذا الشكل:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K"
DoCmd.SetWarnings False
DoCmd.RunSQL "delete from zaher Where isnull([المجموع/ض]) and isnull([المجموع])"
DoCmd.SetWarnings True

 

[النجاشي]

14 ساعات مضت, صالح حمادي said:

 

 

منذ ساعه, صالح حمادي said:

جرب الكود بهذا الشكل:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K"
DoCmd.SetWarnings False
DoCmd.RunSQL "delete from zaher Where isnull([المجموع/ض]) and isnull([المجموع])"
DoCmd.SetWarnings True

 

ممتاز جدا استاذي الفاضل جزاك الله خير هذا هو مطلوبي بكله 

الف تحيه اليك يالغالي