مشكلة في ربط الاكسل بالفيجوال

إلى المبرمجة "متشوقة للمعرفة"

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

أولا: عليك بإضافة أداة Microsoft Ado Data Control 6 إلى المشروع عن طريق ال Project Components ثم إضافتها إلى النموذج من شريط الأدوات Toolbox

ثانياً: تعيين خصائص الأداة بالخطوات التالية:

1- الضغط المزدوج على الخاصية Custom واختيار علامة التبويب General من النافذة الفرعية

2- اختيار زر الراديو Use Connection String ثم الضغط على الزر Build

3- اختيار علامة التبويب Provider من النافذة الفرعية ثم اختيار Microsoft OLE DB Provider fro ODBC Drivers من القائمة الموجودة بالنافذة ثم اختيار Next

4- اختيار زر الراديو Use Connection String ثم الضغط على زر Build

5- اختيار علامة التبويب Machiene Data Source من النافذة الفرعية ثم اختيار Excel Files من القائمة الموجودة بالنافذة ثم الضغط على زر Ok

6- اختيار ملف Excel المطلوب ثم الضغط على زر Ok

7- الضغط على زر Ok من النافذة الحالية

8- اختيار علامة التبويب Record Source من النافذة الحالية ثم اختيار adCmdTable من القائمة المنسدلة Command Type الموجودة بالنافذة ثم اختيار النطاق المطلوب من القائمة المنسدلة Table or Stored Procedure Name الموجودة بنفس النافذة ثم الضغط على زر Ok

وبهذا نكون قد حددنا كل شيء بالنسبة لأداة البيانات

- ملحوظة:- بالنسبة للنطاق المقصود هو بلوك من الخلايا فى ملف إكسيل المستخدم نقوم بإعطائه اسماً في مربع "الاسم Name" في شريط الصيغة.

- يمكن بعد ذلك استخدام أداة الشبكة Microsoft HierachicalFlixgrid Control 6 والتي يمكن إضافتها للمشروع عن طريق ال Project Components ثم إضافتها إلى النموذج من شريط الأدوات Toolbox

بعد ذلك يمكن تعيين خاصية Datasource لها إلى أداة البيانات

بعد ذلك يمكن تشغيل المشروع بنجاح

اخى العزيز ارجو توضيح هذا بالكود ممكن بمعنى عندى شيت اكسيل عبارة عن sheet1 ,sheet2 ,sheet3

عايز combobox يكون فية كل الشيت الموجود فى ملف اكسيل

الكود

data1.databasename="c:\gol\book1.xls"

data1.recordsourse=combo1

بمعنى كل الشيتات الموجودة فى الفيل الاكسل تكون كوجودة فى الكومبو

شكرا