منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مثال - استيراد البيانات من Excel إلي ListView - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : مثال - استيراد البيانات من Excel إلي ListView (/showthread.php?tid=2110)

مثال - استيراد البيانات من Excel إلي ListView - Genius Live - 03-03-14

السلام عليكم ورحمة الله وبركاته
استيراد البيانات من 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 

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

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

RE: مثال - استيراد البيانات من Excel إلي ListView - الجندى - 05-04-14

جزاك الله خيراً كثيراً
لو ممكن كيفية تصدير البيانات إلى اكسل

RE: مثال - استيراد البيانات من Excel إلي ListView - saud133 - 22-11-14

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

اخي الكريم لم اجد المرجع
Microsoft.Office.Interop.Excel

فهل هناك طريقة لاضافته

RE: مثال - استيراد البيانات من Excel إلي ListView - tarek - 24-11-14

رائع استاذ جينيز

RE: مثال - استيراد البيانات من Excel إلي ListView - Genius Live - 26-11-14

You can Just go to add reference and browse to
C:\Program Files\Microsoft Office\Office12
and Select Excel.exe it will automatically add a reference of the interop dll

RE: مثال - استيراد البيانات من Excel إلي ListView - أبووسم - 11-12-14

طريقة جديدة أول ، لم يكن لدي أي معلومة عنها

شكراً لك على الموضوع الرائع و الدرس المفيد

تقبل مروري

RE: مثال - استيراد البيانات من Excel إلي ListView - adel27 - 21-09-16

طيب لو حبيت أنه يستقبل أي مستند أكسل بدون أحدد له عدد الأعمده أيه الحل

RE: مثال - استيراد البيانات من Excel إلي ListView - adel27 - 28-09-16

ممكن تعدلون على الشمروع بحيث أني أفتح أي صفحة أكسل مهما كانت عرض النتيجه

RE: مثال - استيراد البيانات من Excel إلي ListView - محمد سالم المحترف - 06-09-17

(22-11-14, 11:42 AM)saud133 كتب : السلام عليكم ورحمة الله وبركاته

اخي الكريم لم اجد المرجع
Microsoft.Office.Interop.Excel

فهل هناك طريقة لاضافته

اتفضل لتحميل الملف https://www.dllme.com/dll/files/microsoft_office_interop_excel_dll.html