[Genius Live]

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

استيراد البيانات من Excel إلي ListView

افتح مشروع جديد
وضع به الادوات التالية:
1 ListView
2 Button
كما بالشكل التالي:

إذهب إلي Solution Explorer
إضغط زر الفأرة الأيمن اختار Add Reference
من التبويب .NET اضف المرجع Microsoft.Office.Interop.Excel
ثم في شاشة تحرير الكود إستدعي المرجع Microsoft.Office.Interop.Excel كما يلي:

PHP كود :

Imports Microsoft.Office.Interop.Excel 


في قسم التصاريح عرف المتغيرات التالية

PHP كود :

Dim xlApp As Application
    Dim xlWorkBook As Workbook
    Dim xlWorkSheet As Worksheet
    Dim strDestination As String 


كود زر جلب البيانات

PHP كود :

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With ListView1
            .View = View.Details
            .FullRowSelect = True
            .GridLines = True
            .Columns.Clear()
            .Items.Clear()
            .Columns.Add("No.")
            .Columns.Add("Name")
        End With
        With OpenFileDialog1
            .Filter = "Microsoft Excel|*.xls;*.xlsx"
            .ShowDialog()
            strDestination = .FileName
        End With
        xlApp = New Application
        xlWorkBook = xlApp.Workbooks.Open(strDestination)
        xlWorkSheet = xlWorkBook.Worksheets("sheet1")
        Dim CountRows As Integer
        Dim A As Microsoft.Office.Interop.Excel.Range
        A = xlWorkSheet.UsedRange
        For CountRows = 1 To A.Rows.Count
            ListView1.Items.Add(New ListViewItem({A.Cells(CountRows, 1).value, A.Cells(CountRows, 2).value}))
        Next
        xlWorkBook.Close()
        xlApp.Quit()
    End Sub 


يوجد مثال بالمرفقات

والله أعلي وأعلم