10-11-19, 06:14 PM
احبتى فى الله اتمنى ان تكونى بصجحه وخير كبير
انى استعمل هذا الكود فى تصدير البيانات الى الاكسيل من داتا جريد فيو ولدى فى الفورم 2 داتا جريد فيو فهل من طريقه عرض بيانات الداتا جريد فيو الاولى والثانيه او اكثر الى نفس ورقه الاكسيل
ولكم منى جيل الشكر
انى استعمل هذا الكود فى تصدير البيانات الى الاكسيل من داتا جريد فيو ولدى فى الفورم 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
ولكم منى جيل الشكر