السلام عليكم جميعا
ممكن مساعدة فى اكمال البرنامج فى الخطوة الاخيرة ان امكن والمتمتلة فى تصدير بيانات الديتا قرايد الى ملف اكسل
وهى اظافة الكود الخاص بتصدير بيانات الديتاجرايد الى ملف اكسل فى الزر الاحمر بالبرنامج على ان يكون التصدير بنفس التنسيق والترتيب جزاكم الله خيرا
مرفق لكم البرنامج للتعديل علية
ضع هذا الكود في الفورم
كود :
Public Sub dgv_ExportDataToExcelFile(ByVal dgv As DataGridView)
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("ar-SA")
Dim SFD As New SaveFileDialog
Dim exlapp As New Application
Dim exlworkbook As Workbook
Dim exlworksheet As Worksheet
Dim misvalue As Object = System.Reflection.Missing.Value
exlworkbook = exlapp.Workbooks.Add(misvalue)
exlworksheet = exlworkbook.Sheets(1)
exlworksheet.DisplayRightToLeft = True
For colhead As Integer = 0 To dgv.ColumnCount - 1
exlworksheet.Cells(1, colhead + 1) = dgv.Columns(colhead).HeaderText
Next
For i As Integer = 0 To dgv.RowCount - 1
For j As Integer = 0 To dgv.ColumnCount - 1
exlworksheet.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value.ToString
Next
Next
SFD.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"
If SFD.ShowDialog = System.Windows.Forms.DialogResult.OK Then
exlworksheet.SaveAs(SFD.FileName)
End If
exlworkbook.Close()
exlapp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(exlapp)
System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworkbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworksheet)
exlapp = Nothing : exlworkbook = Nothing : exlworksheet = Nothing
If MessageBox.Show("هل تريد فتح الملف ؟", "فتح ملف الأكسل", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading) = MsgBoxResult.Yes Then
Process.Start(SFD.FileName)
End If
End Sub
ثم اكتب بحدث البوتون التالي
كود :
dgv_ExportDataToExcelFile(اسم الداتا جرد فيو)
طبعا" يجب ان تستدعي الرفرنس الخاص بالاكسل
Microsoft.Office.Interop.Excel
وكذلك استدعاء المكتبة في النيم سبيس
Imports Microsoft.Office.Interop.Excel
شكرا اخى على الرد ولاكن الكود لم ينجح معى فعند ادتدعاء Imports Microsoft.Office.Interop.Excel فى فالمشروع يحدة خطاء فى الكود الاتى
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\MyData.mdb"
Dim Conn As New OleDbConnection(ConStr)
رغم ان الكود كان شغال تمام قبل استدعاء مكتبة الاكسل توجد صورة للتوضيح