منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ممكن احد يفهمني في هذا الخطا

(07-05-20, 10:58 PM)aljzazy كتب : [ -> ]

تفضل هذا كود تصدير اي بيانات من الداتا جرد فيو الى الاكسل

ضع الكود في موديل عام

كود :

Imports Microsoft.Office.Interop.Excel
Module Excel_Mod
   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
End Module

وكل ما عليك هو استدعاء الصب في الشاشة التي تعمل بها

كود :

dgv_ExportDataToExcelFile(ضع هنا اسم الداتا جرد فيو)

تقبل الله منا ومنكم صالح الاعمال
اخي نفس المشكل ونفس الرسالة تظهر حتى بعد الكود المرفق

اخواني الكرام
كل عام وانتم بخير
توجد ميزة بالداتا ست تصدر محتواها كملف xml  ثم بعد ذلك تفتح الملف بالاكسل وتعالج الامور المتبقية بعد خطوة التصدير.
هل تعرفون هذه الخطوة ولكنها لا تلبي المطلوب؟

تصدير DataGridView الى xls .

طريقته لا تستخدم أي من مكاتب الاكسيل جربه .