Dim objExcel As New Excel.Application

        Dim objWorkbook As Excel.Workbook

        Dim objSheet As Excel.Worksheet

        objExcel.Visible = True

        objExcel.Workbooks.Add()

        objWorkbook = objExcel.Workbooks.Open("D:\excel.xls")

        objSheet = objWorkbook.Worksheets(1)

        For i As Integer = 0 To DGV.Rows.Count - 2

            For j As Integer = 0 To DGV.ColumnCount - 1

                objSheet.Cells(i + 1, j + 1) = DGV.Rows(i).Cells(j).Value.ToString

        Next

        Next