تعلم كيفية استيراد بيانات مصنف Excel فى أداة التحكم listBox

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية استيراد بيانات مصنف Excel فى أداة التحكم listBox

مُساهمة من طرف السنى في الثلاثاء ديسمبر 03, 2013 3:19 pm

بسم الله الرحمن الرحيم 
المقال التى يوضح كيفية قراءة أو استيراد بيانات جدول Excel و عرضها فى عنصر التحكم listbox بخطوات سهلة و بسيطة للغاية 

_ فى البداية نفترض ان لدينا مصنف Excel يحتوى على البيانات التالية و نريد ان يتم عرض بيانات كل عمود من المصنف فى عنصر التحكم  listBox 

_ نقوم بإنشاء مشروع نوافذ جديد يحتوى على زر أمر و مربع نص و عدد 2 اداة تسمية label وعدد 2 عنصر تحكم  listBox كما فى الشكل التالى :

_نقوم بإضافة المكتبة Microsoft Excel 11.0 Object Library للمشروع 

_ نقوم بعد ذلك بفتح صفحة كتابة الكود لكتابة الشفرات التالية :

1_ نقوم بإنشاء طريقة و ليكن باسم SetTitleAndListValues للحصول على عناوين وقيم الاعمدة الموجودة فى مصنف الاكسل وذلك على النحو التالى :

الرمز:

Private Sub SetTitleAndListValues(ByVal sheet As Excel.Worksheet, _
    ByVal row As Integer, ByVal col As Integer, ByVal lbl As Label, ByVal lst As ListBox)
Dim range As Excel.range
Dim last_cell As Excel.range
Dim first_cell As Excel.range
Dim value_range As Excel.range
Dim range_values() As Variant
Dim num_items As Integer
Dim i As Integer

  للحصول على عناوين الاعمدة مع التنسيق المستخدم فى ورقة العمل مثل نوع الخط و اللون المستخدم
    Set range = sheet.Cells(row, col)
    lbl.Caption = CStr(range.Value2)
    lbl.ForeColor = range.Font.Color
    lbl.BackColor = range.Interior.Color

   تحديد أخر خلية فى العامود
    Set range = sheet.Columns(col)
    Set last_cell = range.End(xlDown)

  للحصول على جميع الاعمدة فى ورقة العمل
    Set first_cell = sheet.Cells(row + 1, col)
    Set value_range = sheet.range(first_cell, last_cell)

 الحصول على قيم كل عامود
    range_values = value_range.Value

    
    num_items = UBound(range_values, 1)
    For i = 1 To num_items
        lst.AddItem range_values(i, 1)
    Next i
End Sub
2_فى حدث النقر على زر الامر "استيراد" نقوم بكتابة الشفرات التالية :

_ نقوم بالاعلان عن الكائنات التى تستخدم فى التعامل مع مصناف Excel على النحو التالى :
الرمز:

Dim excel_app As Excel.Application
Dim workbook As Excel.workbook
Dim sheet As Excel.Worksheet
Set excel_app = New Excel.Application
_ نقوم بعدذ بانشاء مثيل جديد للكائن workbook و استخدام open لقراءة مصنف الاكسل وذلك من خلال تحديد مسار و اسم الملف على النحو التالى :
الرمز:

Set workbook = excel_app.Workbooks.Open( _
        FileName:=txtFile.Text, ReadOnly:=True)
حيث ان txtFile.Text هو مربع النص الذى سيتم كتابة اسم ومسار ملف الاكسل فيه 

_ نقوم تحديد  ورقة العمل الاولى Worksheet و التى تحتوى على البيانات على النحو التالى 
الرمز:

Set sheet = workbook.Sheets(1)

_نقوم بالحصول بالحصول على قيم أعمدة ورقة عمل أكسل من خلال استدعاء الطريقة التى تم إنشائها على النحو التالى :

الرمز:

SetTitleAndListValues sheet, 1, 1, lblTitle1, lstItems1
    SetTitleAndListValues sheet, 1, 2, lblTitle2, lstItems2
ِ
_حفظ التغيرات و انهاء كائنات العمل 
الرمز:

 workbook.Close SaveChanges:=False

      excel_app.Quit
و النتجية كما فى الشكل التالى :



مثال مرفق 

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13860834931.zip

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية استيراد بيانات مصنف Excel فى أداة التحكم listBox

مُساهمة من طرف زهراء في الأربعاء ديسمبر 04, 2013 11:11 am

الله يبارك لك فى علمك

زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 372
التقيم : 24
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعلم كيفية استيراد بيانات مصنف Excel فى أداة التحكم listBox

مُساهمة من طرف ذوكا في الأحد ديسمبر 08, 2013 7:12 pm

اشكرك على مجهودك

ذوكا
.....
.....

تاريخ التسجيل : 26/05/2013
المساهمات : 92
النقاط : 155
التقيم : 11
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى