06-11-15, 05:16 PM
السلام عليكم ورحمة الله وبركاتة
كود تصدير من الداتا جريد فيو الى الاكسيل
الكود مش جديد لكن ممكن حد يستفيد بيه
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'تصدير لاكسيل
Dim EOpject As Object
Dim ENew As Object
Dim EWork As Object
'----------------------
Dim I, N As Integer
'---------------------------------------------------
EOpject = CreateObject("Excel.Application")
ENew = EOpject.Workbooks.Add
EWork = ENew.Worksheets.Add
'----------------------------------------------------
'-- Export From DataGridView To Excel
For I = 0 To DataGridView1.RowCount - 1
For N = 0 To Me.DataGridView1.ColumnCount - 3 '
EWork.Cells(I + 1, N + 1).Value = DataGridView1.Rows(I).Cells(N).Value
Next
Next
EOpject.Visible = True
End Sub
كود تصدير من الداتا جريد فيو الى الاكسيل
الكود مش جديد لكن ممكن حد يستفيد بيه
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'تصدير لاكسيل
Dim EOpject As Object
Dim ENew As Object
Dim EWork As Object
'----------------------
Dim I, N As Integer
'---------------------------------------------------
EOpject = CreateObject("Excel.Application")
ENew = EOpject.Workbooks.Add
EWork = ENew.Worksheets.Add
'----------------------------------------------------
'-- Export From DataGridView To Excel
For I = 0 To DataGridView1.RowCount - 1
For N = 0 To Me.DataGridView1.ColumnCount - 3 '
EWork.Cells(I + 1, N + 1).Value = DataGridView1.Rows(I).Cells(N).Value
Next
Next
EOpject.Visible = True
End Sub