المقال التى يوضح كيفية قراءة أو استيراد بيانات جدول 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


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



مثال مرفق 

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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