استيراد وتصدير من الاكسيل وإلى أكسس والعكس

[الجازع]

اخواني واساتذتي الكرام

 

الموضوع قد سبق وانطرح من قبل الاستاذ/عبدالله باقشير، ولاكن لم اسطتيع تنفيذ طلبي على الملف المطروح مسبقاً وطلبي هو ان لدي برنامج واريد في عملية الادخال يتم ادراج المدخلات في ملف اكسس بشكل تراكمي وفي حال طلب التقرير من خلال البرنامج يتم استراد البيانات من الاكسس للاكسيل ليتم عمل المعادلات واستخراج القيم المطلوبة.

 

ارجو ان يكون قد تم شرح الطلب بصورة واضحة.

 

ولكم جزيل الشكر والتقدير.

 

Qulity V16.rar

[الجازع]

ارجو المساعدة

[الجازع]

ارجو المساعدة

[عبدالله باقشير]

السلام عليكم

 

في الملف الذي ذكرت استيراد كل البيانات

وتصدير كل البيانات

[الجازع]

استاذي الفاضل

ارجو توضيح الرد

[عبدالله باقشير]

اعني في ملفي الذي ذكرته

لا يعتمد عل تصدير تراكمي

انما يصدر جميع البيانات ضربه واحدة ويستورد

كل البيانات بالمثل

 

فهمت

[الجازع]

يا استاذي الفاضل

اسعد الله صباحك

فهمت قصدك ولاكن كنت ارجو تنفيذ عملية التصدير على الملف المرفق بشكل تراكمي

 

ولكم جزيل الشكر والتقدير.

[احمد عبد الناصر]

السلام عليكم

 

هذا كود للاستدعاء من ملف الاكسيس

 

Dim rsData As ADODB.Recordset
Dim sConnect As String
Dim sSQL As String
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & اسم_ملف_الاكسيس & ".mdb;Persist Security Info=True "
sSQL = "select * from اسم_الجدول"
Set rsData = New ADODB.Recordset
rsData.Open sSQL, sConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
If Not rsData.EOF Then
'الخلية المراد جلب البيانات اليها
[a1].CopyFromRecordset rsData
End If

 

و هذا للاضافة الي ملف الاكسيس 

 

Dim rsData As ADODB.Recordset
Dim sConnect As String
Dim sSQL As String
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & اسم_ملف_الاكسيس & ".mdb;Persist Security Info=True "
'تحدد اسماء حقول الجدول لملف الاكسيس و  الخلاية التي تحتوي القيم المراد اضافتها
sSQL = "insert into اسم_الجدول (field1,field2,field3) values (" & [b1] & "," & [b2] & "," & [b3] & ")"
Set rsData = New ADODB.Recordset
rsData.Open sSQL, sConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText

 

ملاحظة فعل هذه 

tools > references >microsoft activex data objects 2.6 library

 

تحياتي