التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود تصدير قاعدة البيانات إلى ملف Excel
#1
السلام عليكم ورحمة الله وبركاته
تقبل الله منا ومنك الصيام وصالح الاعمال
تمنياتي أن تكونو جميعا في أتم صحه وعافيه

لدي كود تصدير جدول DataGrid إلى ملف Excel 
ولكن تظهر لي مشكلة لا لم أستطع أن أجد لها حل
كود :
   Private Sub butt_export_Ex_Click(sender As Object, e As EventArgs) Handles butt_.Click
       Try
           butt_.Text = "Please Wait..."
           butt_.Enabled = False

           SaveFileDialog1.Filter = "Excel Document (*.xlsx)|*.xlsx"
           If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
               Dim xlApp As Microsoft.Office.Interop.Excel.Application
               Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
               Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
               Dim misValue As Object = System.Reflection.Missing.Value
               Dim i As Integer
               Dim j As Integer

               xlApp = New Microsoft.Office.Interop.Excel.Application
               xlWorkBook = xlApp.Workbooks.Add(misValue)
               xlWorkSheet = xlWorkBook.Sheets("sheet1")

               For i = 0 To DataGridView1.RowCount - 2
                   For j = 0 To DataGridView1.ColumnCount - 1
                       For k As Integer = 1 To DataGridView1.Columns.Count
                           xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
                           xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
                       Next
                   Next
               Next

               xlWorkSheet.SaveAs(SaveFileDialog1.FileName)
               xlWorkBook.Close()
               xlApp.Quit()

               releaseObject(xlApp)
               releaseObject(xlWorkBook)
               releaseObject(xlWorkSheet)

               MsgBox("Successfully saved" & vbCrLf & "File are saved at : " & SaveFileDialog1.FileName, MsgBoxStyle.Information, "Information")

               butt_.Text = "Export To MS Excel"
               butt_.Enabled = True
           End If
       Catch ex As Exception
           MessageBox.Show("Failed to save !!!", "Error Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Return
       End Try
   End Sub

   Private Sub releaseObject(ByVal obj As Object)
       Try
           System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
           obj = Nothing
       Catch ex As Exception
           obj = Nothing
       Finally
           GC.Collect()
       End Try
   End Sub
End Class

وهذي صورة من المشكلة

   
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
كود تصدير قاعدة البيانات إلى ملف Excel - بواسطة محمد العامر - 03-05-20, 09:01 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم