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

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

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

(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

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

tahaayyoub

boudyonline

tahaayyoub

ابو ليلى

ابراهيم ايبو