Экспорт в Excel

If View1DataGridView.Rows.Count > 0 Then
            Dim wapp As Microsoft.Office.Interop.Excel.Application
 
            Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
 
            Dim wbook As Microsoft.Office.Interop.Excel.Workbook
 
            Dim chartRange As Microsoft.Office.Interop.Excel.Range
 
 
 
            wapp = New Microsoft.Office.Interop.Excel.Application
 
            wapp.Visible = True
            wbook = wapp.Workbooks.Add()
 
            wsheet = wbook.ActiveSheet
 
            Dim iX As Integer
 
            Dim iY As Integer
            Dim iC As Integer
            For iC = 0 To View1DataGridView.Columns.Count - 1
 
                wsheet.Cells(1, iC + 1).Value = View1DataGridView.Columns(iC).HeaderText
 
                wsheet.Cells(1, iC + 1).font.bold = True
 
            Next
 
            For iX = 0 To View1DataGridView.Rows.Count - 1
                For iY = 0 To View1DataGridView.Columns.Count - 1
 
                    wsheet.Cells(iX + 2, iY + 1).value = View1DataGridView(iY, iX).Value.ToString
 
                Next
 
            Next
 
            wsheet.Columns.AutoFit()
 
 
        End If
    End Sub