تقييم الموضوع :
  • 2 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
مثال - استيراد البيانات من Excel إلي ListView
#1
Rainbow 
السلام عليكم ورحمة الله وبركاته
استيراد البيانات من 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.ObjectByVal e As System.EventArgsHandles 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(CountRows1).valueA.Cells(CountRows2).value}))
        
Next
        xlWorkBook
.Close()
        
xlApp.Quit()
    
End Sub 

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

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


الملفات المرفقة
.rar   Genius_Live_ExcelToListView.rar (الحجم : 101.87 ك ب / التحميلات : 1,057)
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
#2
جزاك الله خيراً كثيراً
لو ممكن كيفية تصدير البيانات إلى اكسل
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

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

فهل هناك طريقة لاضافته
الرد }}}}
تم الشكر بواسطة:
#4
رائع استاذ جينيز
الرد }}}}
تم الشكر بواسطة:
#5
Rainbow 
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
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#6
طريقة جديدة أول ، لم يكن لدي أي معلومة عنها

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

تقبل مروري
الرد }}}}
تم الشكر بواسطة: HOMAR
#7
طيب لو حبيت أنه يستقبل أي مستند أكسل بدون أحدد له عدد الأعمده أيه الحل
الرد }}}}
تم الشكر بواسطة:
#8
ممكن تعدلون على الشمروع بحيث أني أفتح أي صفحة أكسل مهما كانت عرض النتيجه
الرد }}}}
تم الشكر بواسطة:
#9
(22-11-14, 11:42 AM)saud133 كتب : السلام عليكم ورحمة الله وبركاته

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

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

اتفضل لتحميل الملف https://www.dllme.com/dll/files/microsof...l_dll.html
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابسط مثال للتصاريح سعود 41 8,642 06-09-17, 02:21 PM
آخر رد: سعود
  مثال: كيفية اقتطاع صورة من صورة أخري بإستخدام الماوس silverlight 8 741 06-09-17, 02:20 PM
آخر رد: العواد الصغير
  [مثال] مثال لإرسال الرسائل من الاجهزة الفرعية الى برنامج سيرفر ابو ليلى 3 625 28-07-17, 01:46 PM
آخر رد: IBRA939
  [مشروع] مثال لنشر تحديثات تطبيقك للعملاء سعود 24 9,326 03-07-17, 07:38 PM
آخر رد: Mina Botros
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 42 5,911 14-05-17, 09:58 AM
آخر رد: جميل علي
  [مثال] حفظ ملفات لـ PDF و الوورد والاكسيل داخل قاعدة البيانات( تحديث جديد) جميل علي 11 2,263 10-05-17, 03:11 PM
آخر رد: safalo
  [مشروع] مثال حجز من المنتدى القديم سعود 14 3,888 05-04-17, 03:31 AM
آخر رد: naderalbanna
  [مشروع] حفظ جدول البيانات كصفحة انترنت sooriaty03 4 1,558 04-04-17, 09:30 PM
آخر رد: naderalbanna
  مشروع أخذ نسخه أحتياطيه من قاعدة البيانات أتمنى يعجبكم adel27 3 1,495 17-03-17, 09:58 AM
آخر رد: IBRA939
Lightbulb [مثال] مثال ابلاغ عملائك بوجود تحديث للبرنامج Basil Abdallah 13 1,398 08-03-17, 01:13 PM
آخر رد: Basil Abdallah

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم