[خالد كامل1]

احبتى فى الله اتمنى ان تكونى بصجحه وخير كبير
انى استعمل هذا الكود فى تصدير البيانات الى الاكسيل من داتا جريد فيو ولدى فى الفورم 2 داتا جريد فيو فهل من طريقه عرض بيانات الداتا جريد فيو الاولى والثانيه او اكثر الى نفس ورقه الاكسيل 

كود :

Try


           Dim MsExcel = CreateObject("Excel.Application")


           MsExcel.Workbooks.Add()


           For i As Integer = 0 To DataGridView1.Columns.Count - 1
           
               MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText


           Next


           For i As Integer = 0 To DataGridView1.Columns.Count - 1


               For j As Integer = 0 To DataGridView1.Rows.Count - 1
 
                   MsExcel.Columns.HorizontalAlignment = 3


                   MsExcel.Columns.Font.Name = "Times New Roman"


                   MsExcel.Rows.Item(j + 1).Font.Bold = 1


                   MsExcel.Rows.Item(j + 1).Font.size = 14
               
                   MsExcel.Cells(j + 1).ColumnWidth = 14
                           
                   MsExcel.Cells(j + 2, i + 1).Value = DataGridView1.Rows(j).Cells(i).Value


               Next


           Next


           MsExcel.Visible = True


       Catch ex As Exception


           MsgBox(ex.Message)


       End Try

ولكم منى جيل الشكر