03-03-14, 10:45 AM
السلام عليكم ورحمة الله وبركاته
وضع به الادوات التالية:
1 ListView
2 Button
كما بالشكل التالي:
إذهب إلي Solution Explorer
إضغط زر الفأرة الأيمن اختار Add Reference
من التبويب .NET اضف المرجع Microsoft.Office.Interop.Excel
ثم في شاشة تحرير الكود إستدعي المرجع Microsoft.Office.Interop.Excel كما يلي:
في قسم التصاريح عرف المتغيرات التالية
كود زر جلب البيانات
يوجد مثال بالمرفقات
والله أعلي وأعلم
استيراد البيانات من 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
يوجد مثال بالمرفقات
والله أعلي وأعلم
{ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ }
" Mohamed M. Bedair - " Abu Anas
Genius Live , Egypt