从DataGridView中将数据导出Excel（vb.net）

从DataGridView中将数据导出Excel

Public Sub ExportExcel(ByVal dgv As DataGridView, ByVal isonlyvisible As Boolean)

Try

Dim n, i, j, row, col As Integer

Dim excel As New Microsoft.Office.Interop.Excel.Application

excel.Application.Workbooks.Add(True)

col = 1

'记录列名

For n = 0 To dgv.ColumnCount - 1

If isonlyvisible Then

If dgv.Columns(n).Visible Then

excel.Cells(1, col) = dgv.Columns(n).HeaderText

col = col + 1

End If

Else

excel.Cells(1, n + 1) = dgv.Columns(n).HeaderText

End If

Next

row = 2

For i = 0 To dgv.RowCount - 1

col = 1

For j = 0 To dgv.ColumnCount - 1

If isonlyvisible Then

If dgv.Columns(j).Visible Then

excel.Cells(i + 2, col) = dgv.Rows(i).Cells(j).Value

col = col + 1

End If

Else

excel.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value

End If

Next

Next

excel.Visible = True

Catch ex As Exception

Throw ex

End Try

End Sub