اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم ...

راجع الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=5883

كما يمكنك استخدام الوظيفة الإضافية Microsoft Excel ODBC (XLODBC.XLA) ، راجع الرابط التالي :

http://office.microsoft.com/ar-sa/assistan...2092671025.aspx

قام بنشر

الاخ الكريم محمد حجازي

جزاك الله خيرا وزادك علما .... اشكرك علي سرعه الرد والاستيعاب

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

قام بنشر

السلام عليكم ...

لمعرفة المزيد عن كيفية كتابة الكود ، راجع الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=8790

أما عن كيفية استخدام الـ ADO في الكود فيوجد في الانترنيت الكثير من الدروس عنها ، و على ما أذكر أني وجدت في الماضي دروساً عنها من شخص يدعى هيثم القلاف .

قام بنشر

السلام عليكم ورحمه الله وبركاته

الاخ محمد حجازي

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

والكود يعمل بكفاءه عاليه

وبعد بعض الاعمال واجهتني المشكله التاليه

اريد ان احدد في ملف الاكسيل نطاق معين يتم قراءه قاعده البيانات منه علي ان يبقي باقي الشيت حر لاضافه الدوال الخاصه

مثال ان يتم قراءه قاعده البيانات خلال النطاق a1: k1000

علي ان لاتتغير باقي الاعمده بتشغيل الكود

Sub ADO()

Dim DB As Database

Dim RS As Recordset

Dim SQL As String

Dim Endrow As Long

SQL = "ضع الاستعلام هنا"

Set DB = OpenDatabase("C:\M\mah.mdb")

Set RS = DB.OpenRecordset(SQL)

Sheets(1).CopyFromRecordset RS

RS.Close

DB.Close

End Sub

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

قام بنشر

السلام عليكم

الاستاذ / محمد حجازي

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

بحيث لاتتعدا الاعمده النطاق المحدد

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information