السلام عليكم
بيئة العمل هي vb.net 2008
الكـــــثير من المبرمجــــين يحتاجون الاســــتيراد والتــــصدير مع برنامج الاكسل ,, قــــمـت سابقــاً
بعمل موضوع يتضمن كيفية تصدير الداتا كرد والداتا بيس الى ملف اكسل xls او اي صيغة اخـــرى
والان نتعلم كيفية الاستراد من اكسل . يعني عملية معاكسة للموضوع السابق .. الامر سهل ان شاء الله
نبدأ بالعمل :
يتطلب وجود office 2003
اول شيء قم بادرج داتا كرد للمشروع الخاص بك
ثاني شيء ضع زر امر وغير الاسم ( ادراح ورقة عمل xls ) واكتب فيه الكود ادناه
كود:Dim ofd As New OpenFileDialog() ofd.Filter = "Classeurs Excel (*.xls)|*.xls" If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then Dim Excel = CreateObject("Excel.Application") Dim MsExcel = Excel.Workbooks.Open(ofd.FileName) Try If DataGridView1.Rows.Count > 0 Then DataGridView1.Rows.Clear() DataGridView1.Columns.Clear() DataGridView1.Refresh() End If For i As Integer = 0 To MsExcel.Application.ActiveSheet.UsedRange.Columns.Count - 1 If MsExcel.Application.Cells(i + 1).Value <> Nothing Then MsExcel.Application.Cells(i + 1).Value) DataGridView1.Columns.Add(Hex(i + 10), Hex(i + 10)) End If Next Application.DoEvents() For j As Integer = 0 To MsExcel.Application.ActiveSheet.UsedRange.Rows.Count - 1 DataGridView1.Rows.Add() For i As Integer = 0 To MsExcel.Application.ActiveSheet.UsedRange.Columns.Count - 1 If MsExcel.Application.Cells(j + 1, i + 1).Value <> Nothing Then DataGridView1.Rows(j).Cells(i).Value = MsExcel.Application.Cells(j + 1, i + 1).Value End If Next Next DataGridView1.AllowUserToAddRows = False ofd.Dispose() MsExcel.Close(False) MsExcel = Nothing Excel.Quit() Excel = Nothing Catch ex As Exception ofd.Dispose() MsExcel.Close(False) MsExcel = Nothing Excel.Quit() Excel = Nothing MsgBox(ex.Message) End Try End If
بعد ان اكمل كل سوالــــف الداتا كـــرد ارفع مــــشروع يــــضم جميع الاشياء الي تطرقنا الها
هسه اريدكم تكتبون الكود بديكم حتى تصير فكرة عندكم عن كتابة الاكواد وربطها بالداتا كرد
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة داستان
