[tahaayyoub]

ممكن تصحيح الاخطاء الواردة في الكود بالصورة المرفقة
علما اني استعمل vb.net  2019 + office 2019

[boudyonline]

اولا : تأكد ان الأوفيس مركب على الجهاز بنجاح
ثانيا : ادخل الي Reference بالمشروع واختر صفحة Com واستعرض اذا كان Microsoft Excel [xx.x] موجود ام لا

[tahaayyoub]

(05-05-20, 07:35 PM)boudyonline كتب : اولا : تأكد ان الأوفيس مركب على الجهاز بنجاح
ثانيا : ادخل الي Reference بالمشروع واختر صفحة Com واستعرض اذا كان Microsoft Excel [xx.x] موجود ام لا

تخي تكرما منك
الاوفيس مثبت في الجهاز
وتم اضافة الملفات  في Reference
نغس المشكل

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
اضف المرجع  Microsoft.Office.Interop.Excel

استورده داخل النموذج

PHP كود :

Imports Microsoft.Office.Interop.Excel


Partial Public Class Form1

    Dim exlapp As Application
    Dim exlworkbook As Workbook
    Dim exlworksheet As Worksheet
    Dim misvalue As Object = System.Reflection.Missing.Value

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        exlworkbook = exlapp.Workbooks.Add(misvalue)
    End Sub

End Class 


[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
شكرا لك اخي ابو ليلى وجعله في ميزان حسناتك
اخي الكريم جرب هذا الكود وهو من باب الاحتمالات عله ينفع

كود :

Private Sub Btn_ExToExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ExToExcel.Click
       If dgv_table.Rows.Count = 0 Then
           Exit Sub
       Else
           System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
           System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
          :
           Try
               Dim xlApp As New Application
               Dim excelworkBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
               Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelworkBook.Worksheets(1), Worksheet)
               xlApp.Visible = False
               Dim currCol As Integer = 1
               excelWorksheet.Cells.Select()
               excelWorksheet.Cells.Delete()
               For iC As Integer = 0 To dgv_table.Columns.Count - 1
                   If dgv_table.Columns(iC).Visible = True Then
                       excelWorksheet.Cells(1, currCol).Value = dgv_table.Columns(iC).HeaderText
                       currCol += 1
                   End If
               Next
               For i As Integer = 0 To dgv_table.RowCount - 2
                   currCol = 1
                   For j As Integer = 0 To dgv_table.Columns.Count - 1
                       If dgv_table.Columns(j).Visible = True Then
                           excelWorksheet.Cells(i + 2, currCol).value = dgv_table.Rows(i).Cells(j).FormattedValue
                           currCol += 1
                       End If
                   Next
               Next

               excelWorksheet.Rows("1:1").Font.FontStyle = "Normal"
               excelWorksheet.Rows("1:1").Font.Size = 10
               excelWorksheet.Cells.Columns.AutoFit()
               excelWorksheet.Cells.Select()
               excelWorksheet.Cells.EntireColumn.AutoFit()
               excelWorksheet.Cells(1, 1).Select()
               xlApp.Visible = True
           Catch ex As Exception
           
               MsgBox("فشلت عملية التصدير حاول مرة ثانية")
           Finally
               System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

           End Try
       End If
   End Sub