+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] امساعدة فى لخطوة الاخيرة بالمشروع (/showthread.php?tid=44770)
امساعدة فى لخطوة الاخيرة بالمشروع - AMAZ1972AMAZ - 14-01-23
السلام عليكم جميعا
ممكن مساعدة فى اكمال البرنامج فى الخطوة الاخيرة ان امكن والمتمتلة فى تصدير بيانات الديتا قرايد الى ملف اكسل
وهى اظافة الكود الخاص بتصدير بيانات الديتاجرايد الى ملف اكسل فى الزر الاحمر بالبرنامج على ان يكون التصدير بنفس التنسيق والترتيب جزاكم الله خيرا
مرفق لكم البرنامج للتعديل علية
RE: امساعدة فى لخطوة الاخيرة بالمشروع - aljzazy - 14-01-23
ضع هذا الكود في الفورم
كود :
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
RE: امساعدة فى لخطوة الاخيرة بالمشروع - AMAZ1972AMAZ - 14-01-23
شكرا اخى على الرد ولاكن الكود لم ينجح معى فعند ادتدعاء 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)
رغم ان الكود كان شغال تمام قبل استدعاء مكتبة الاكسل توجد صورة للتوضيح
RE: امساعدة فى لخطوة الاخيرة بالمشروع - AMAZ1972AMAZ - 14-01-23
شكرا جميعا تم حل الموضوع