[Finish]

تعديل الكود

PHP كود :

Dim MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Add()

Dim c() = (From x In dgv1.Columns Where x.Visible).ToArray

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

For i As Integer = 0 To c.Count - 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, i + 1).Value = dgv1.Rows(j).Cells(i).Value

    Next
Next

MsExcel.Visible = True