+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=42)
+--- الموضوع : استيراد ملف اكسل الى DataGridView (/showthread.php?tid=18899)
الصفحات:
1
2
استيراد ملف اكسل الى DataGridView - ابو ليلى - 21-01-17
Import Excel File To DataGridView
Table By Table Or Sheet By Sheet
استيراد بيانات ملف اكسل الى DataGridView
جدول جدول او ورقة ورقة
باستخدام المكتبة ExcelDataReader
Using ExcelDataReader
بســـــم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
توجد العديد من الطرق لكيفية القراءة و الكتابة الى ملفات اكسل و بعضها لا يحتاج الى مكاتب خارجية , هذه المقالة تتحدث عن استخدام مكتبة خارجية بسيطة و مجانية و سهلة الاستخدام.
في البداية تحتاج الى انشاء مشروع جديد يحتوي على فورم واحد فقط , و نضع عليه الادوات التالية
- DataGridView - نسميها Dgv
- ComboBox1
- Button نسميه btnOpen
الان نذهب الى Solution Explorer و بيمين الماوس نضغط و من القائمة الظاهرة نختار NuGet Packages
و نتابع كما بالصورة
في اعلى الفورم نعرف DataSet ،سميها Result
PHP كود :
Dim Result As New DataSet
بعد ذلك و في حدث الضغط على الزر لفتح ملفات من النوع Excel
PHP كود :
Result.Clear()
Dgv.DataSource = Nothing
Using Ofd As New OpenFileDialog()
With Ofd
.Filter = "Excel 2003|*.xls|Excel 2007|*.xlsx"
.ValidateNames = True
End With
If Ofd.ShowDialog = DialogResult.OK Then
Dim fs As IO.FileStream = IO.File.Open(Ofd.FileName, IO.FileMode.Open, IO.FileAccess.Read)
Dim Reader As Excel.IExcelDataReader
If Ofd.FilterIndex = 1 Then
Reader = Excel.ExcelReaderFactory.CreateBinaryReader(fs)
Else
Reader = Excel.ExcelReaderFactory.CreateOpenXmlReader(fs)
End If
Reader.IsFirstRowAsColumnNames = True
Result = Reader.AsDataSet()
ComboBox1.Items.Clear()
For Each Dt As DataTable In Result.Tables
ComboBox1.Items.Add(Dt.TableName)
Reader.Close()
Next
End If
End Using
و لانني اريد التعامل مع كل ورقة على حدا لذا ساقوم بتحميل اسماء الاوراق كجداول الى ComboBox
و من ثم اسناد كائن DataGridView الى الجدول المحدد
PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dgv.DataSource = Result.Tables(ComboBox1.SelectedIndex)
End Sub
المكتبة موجودة مع المثال المرفق
بالتوفيق للجميع
RE: استيراد ملف اكسل الى DataGridView - galas - 11-08-18
Merci c'est très intéressant
RE: استيراد ملف اكسل الى DataGridView - الوايلي - 23-08-18
يعطيك العافية والف شكر لك استاذنا
RE: استيراد ملف اكسل الى DataGridView - the viper - 23-11-18
الملف معطوب ممكن تحمل على رابط اخر
وشكرا
RE: استيراد ملف اكسل الى DataGridView - elgokr - 25-11-18
(23-11-18, 03:34 PM)the viper كتب : الملف معطوب ممكن تحمل على رابط اخر
وشكرا
الملف يعمل اخى الفاضل
فقط قم بتحميل اخر اصدار من WinRar
تحياتى لك
وتمنياتى لك التوفيق
RE: استيراد ملف اكسل الى DataGridView - the viper - 26-11-18
(25-11-18, 09:35 AM)elgokr كتب :(23-11-18, 03:34 PM)the viper كتب : الملف معطوب ممكن تحمل على رابط اخر
وشكرا
الملف يعمل اخى الفاضل
فقط قم بتحميل اخر اصدار من WinRar
تحياتى لكوتمنياتى لك التوفيق
اسف اخي المقصد انه عند عملية التحميل لايكمل العملية
انظر للمرفقات
RE: استيراد ملف اكسل الى DataGridView - resali - 18-02-20
جزيل الشكر لك
RE: استيراد ملف اكسل الى DataGridView - أمجد وضاح - 01-05-20
اريد كيفية التحرير
RE: استيراد ملف اكسل الى DataGridView - محمد العامر - 18-07-20
جزاك الله خير يا ابو ليلى ولكن كيف يمكنني ان اجعل زر من خلاله يتم معرفة اخر صف في جدول معين ثم اضافة جميع محتويات datagridview
RE: استيراد ملف اكسل الى DataGridView - tanmia - 24-10-20
بارك الله فيك