[guma2155587]

(01-04-15, 10:26 PM)جزاك الله خيرا كتب :

(01-04-15, 10:13 PM)الدريساوي كتب : السلام عليكم 
محتاج كود تصدير بعض الاعمدة من DataGridView الى الاكسيل 
فقط بعض الاعمدة 
جزاكم الله خير جزاء 

PHP كود :

Try
            Dim MsExcel = CreateObject("Excel.Application")
            MsExcel.Workbooks.Add()
            For i As Integer = 0 To 4
                MsExcel.Cells(i + 1).Value = DataGridView1.Columns(i).HeaderText
            Next
            For i As Integer = 0 To 4
                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