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

[النجاشي]

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

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

تحياتي احبتي

NWBANY.mdbFetching info... XX.xlsFetching info...

[د.كاف يار]

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

تصدير و استيراد.accdbFetching info...

[د.كاف يار]

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

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

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

 

نصيحة

احذف الصفوف

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

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

 

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

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

[النجاشي]

  في 4‏/9‏/2019 at 21:08, د.كاف يار said:

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

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

Expand  

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

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

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

[صالح حمادي]

السلام عليكم

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

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

 

[النجاشي]

  في 4‏/9‏/2019 at 21:31, صالح حمادي said:

السلام عليكم

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

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

 

Expand  

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

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

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

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

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

[essam rabea]

أخى ابو زاهر

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

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

NWBANY.accdbFetching info... XX.xlsxFetching info...

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

[النجاشي]

  في 4‏/9‏/2019 at 22:30, 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

Expand  

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

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

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

[صالح حمادي]

  في 4‏/9‏/2019 at 22:09, ابو زاهر said:

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

Expand  

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

  في 4‏/9‏/2019 at 22:09, ابو زاهر said:

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

Expand  

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

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

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

[النجاشي]

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

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

 

xx.xlsFetching info...

[صالح حمادي]

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

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

 

[النجاشي]

  في 5‏/9‏/2019 at 10:32, صالح حمادي said:

 

Expand  

 

  في 5‏/9‏/2019 at 23:27, صالح حمادي 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

 

Expand  

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

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