[Marwan9990]

(10-08-18, 12:46 PM)mrnooo2000 كتب : جرب هذا الكود أخى 

كود :

       Try
           Dim MsExcel = CreateObject("Excel.Application")
           MsExcel.Workbooks.Add()
           Dim C As Integer = 0
           For i As Integer = 0 To dgv1.Columns.Count - 1
               If dgv1.Columns(i).Visible = True Then
                   C += 1
                   MsExcel.Cells(C).Value = dgv1.Columns(i).HeaderText
               End If
           Next
           C = 0
           For i As Integer = 0 To dgv1.Columns.Count - 1
               If dgv1.Columns(i).Visible = False Then Continue For
               C += 1
               For j As Integer = 0 To dgv1.Rows.Count - 1
                   MsExcel.Columns.HorizontalAlignment = 3
                   MsExcel.Columns.Font.Name = "Times New Roman"
                   MsExcel.Columns.EntireColumn.AutoFit()
                   MsExcel.Rows.Item(j + 1).Font.size = 13
                   MsExcel.Cells(j + 2, C).Value = dgv1.Rows(j).Cells(i).Value
               Next
           Next
           MsExcel.Visible = True
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

اهلا اخي الكريم
الكود شغال مية ميه يا مبببببببدع ربي يرزقك جنات النعيم يا رب انته وجميع احباب قلبك


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

مودتي لكم جميعا