将2000多行数据从数据网格视图导出到vb.net中的excel文件

Dim excelApp As New Excel.Application
Dim workbook As Excel.Workbook = excelApp.Workbooks.Add()
Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

For i As Integer = 0 To dataGridView1.Rows.Count - 1
    For j As Integer = 0 To dataGridView1.Columns.Count - 1
        worksheet.Cells(i + 1, j + 1) = dataGridView1.Rows(i).Cells(j).Value.ToString()
    Next
Next

worksheet.Columns.AutoFit()

workbook.SaveAs("路径\文件名.xlsx")
workbook.Close()
excelApp.Quit()